Discussion :

[midoparis]

Bonjour !

Je suis en train de faire un UserForm avec des listbox et un bouton.
Lorsque l'utilisateur aura sélectionné les éléments dans les listbox, il appuie sur le bouton qui déclenche un certain nombre d'événements, dont principalement 2 fonctions : TracerGraphe et TrierColonne

L'appel à la fonction TrierColonne se passe parfaitement.
Par contre, pour TracerGraphe, il me dit "Attendu : ="

Pouvez vous me dire où est l'erreur et comment y remédié?

Voila le code !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub CommandButton1_Click()
 
Dim ordonneeCol, abscisseCol, fixeCol As Integer
...
TracerGraphe (abscisseCol, ordonneeCol)
TrierColonne (fixeCol)
 
End Sub
 
Sub TrierColonne(ByVal colonne As Integer)
...
End Sub
 
SubTracerGraphe(ByVal abscisse, ordonnee As Integer)
...
End Sub

[ThierryAIM]

enlève les parenthèses !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TracerGraphe abscisseCol, ordonneeColl
TrierColonne fixeCol

et ça c'est pas terrible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SubTracerGraphe(ByVal abscisse, ordonnee As Integer)

Pour la nieme fois, en VB6 il faut typer toutes les variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub TracerGraphe(ByVal abscisse As Integer, ByVal ordonnee As Integer)

[midoparis]

Merci !

maintenant je m'en rappelerai !!