Histogrammes en vb6.0!! un problème aidez moi
sarah
-
sarah -
sarah -
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
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
A voir également:
- Histogrammes en vb6.0!! un problème aidez moi
- Vb6.0 download - Télécharger - Divers Utilitaires
- Faire un histogramme excel - Guide
- Changer largeur d'un histogramme - Forum Excel
- Faire un histogramme groupé et empilé ✓ - Forum Excel
- Histogramme avec 2 axes en abscisse - Forum Bureautique
3 réponses
Bonjour,
Es-tu sous VB6 ou en VBA sous Excel ?
Ce code ne marche pas :
Il faut faire :
As-tu des messages d'erreur ? Si oui, les quels.
Il existe des fonction "chart" dans Excel. Utilise l'aide (F1) quand tu es dans l'éditeur VB.
;o)
Es-tu sous VB6 ou en VBA sous Excel ?
Ce code ne marche pas :
Private Sub Command1_Click() Workbooks.Open Classeur = "C:\Classeur.xls" End Sub
Il faut faire :
Private Sub Command1_Click()
Workbooks.Open("C:\Classeur.xls")
End Sub
As-tu des messages d'erreur ? Si oui, les quels.
Il existe des fonction "chart" dans Excel. Utilise l'aide (F1) quand tu es dans l'éditeur VB.
;o)
Je n'ai pas VB6 sur mon poste, mais de mémoire, dans le menu de l'éditeur, tu dois avoir Projet et en sous menu Références. Tu cherches dans la liste et tu coches la case qui doit correspondre à peu près à "Microsoft Excel xx.x Object library".
Tu trouveras des infos ici : Extrait FAQ VB6
Bon courage.
;o)
'Ensuite il faut que tu déclares ton objet Excel :
Dim myXL As Excel.Application
'Puis ton objet Workbook (classeur)
Dim myWk As Workbook
'création de l'objet Excel
Set myXL = CreateObject("Excel.Application")
'ouverture du fichier Excel
Set myWk = myXL.Workbooks.Open("C:\Classeur.xls")
Tu trouveras des infos ici : Extrait FAQ VB6
Bon courage.
;o)
non je travaille avec vb6 et je fais débogage il m'affiche que Dim cell as range est une erreur de compilation, le type est indéfini