Bonjour
Je dois faire des interfaces à l’aide du VB6.0 qui fait appel aux mesures à partir du fichier Excel pour générer un histogramme.
Moi j'ai essayé avec le code suivant mais ça pas marché, aidez moi à le corriger svp et merci

Private Sub Command1_Click()
Workbooks.Open Classeur = "C:\Classeur.xls"
End Sub
Private Sub bouclePlagesCellules()
End Sub
Public Static Function statistiques()
Dim Cell As Range
Dim Ws As Worksheet
Dim RxLev As Variant
Dim i As Integer
i = 0
j = 0
k = 0
m = 0
n = 0
For Each Cell In Ws.Range("AB")
If -120 <= Cell.Value < -94 Then RxLev1 = i + 1
Next Cell
RxLev = [RxLev1/RxLev total] * 100
MsgBox "Le pourcentage de RxLev est, " & " %"
Else
If -94 <= Cell.Value < -82 Then RxLev2 = j + 1
Next Cell
RxLev = [RxLev2/RxLev total] * 100
MsgBox "Le pourcentage de RxLev est, " & " %"
Else
If -82 <= Cell.Value < -74 Then RxLev3 = k + 1
Next Cell
RxLev = [RxLev3/RxLev total] * 100
MsgBox "Le pourcentage de RxLev est, " & " %"
Else
If -74 <= Cell.Value < -65 Then RxLev4 = m + 1
Next Cell
RxLev = [RxLev4/RxLev total] * 100
MsgBox "Le pourcentage de RxLev est, " & " %"
Else
If -65 <= Cell.Value < -10 Then RxLev5 = n + 1
Next Cell
RxLev = [RxLev5/RxLev total] * 100
MsgBox "Le pourcentage de RxLev est, " & " %"
End Function

Configuration: Windows XP
Internet Explorer 7.0