histogrammes en vb6.0!! un problème aidez moi Fermé

Question

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

Polux31 · Answer

Bonjour,

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)

Polux31 · Answer

As-tu coché la référence corespondante dans Projet -> Références ... ?

Polux31 · Answer

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".

'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)

Histogrammes en vb6.0!! un problème aidez moi

3 réponses

Discussions similaires

Newsletters