Function et Sub

Signaler
Messages postés
59
Date d'inscription
mercredi 25 octobre 2000
Statut
Membre
Dernière intervention
19 janvier 2004
-
Messages postés
59
Date d'inscription
mercredi 25 octobre 2000
Statut
Membre
Dernière intervention
19 janvier 2004
-
Bonjour,
Voila je voudrai faire un truc avec function ou sub car le procédé se répette 24 fois (pour chaque lettre de l'alphabet)
Mais sa ne marche pas voici le code :

Function QLettre(Lalettre As String)
For test = 0 To 9
If lettre(test) = Lalettre Then
Label1(test).Caption = Lalettre
bonnelettre = 1
End If
Next
Coup = Coup + 1
If Coup = 1 Then
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
End If
If Coup = 2 Then
Line4.Visible = True
Line5.Visible = True
End If
If Coup = 3 Then
Line6.Visible = True
End If
If Coup = 4 Then
Shape1.Visible = True
End If
If Coup = 5 Then
Line7.Visible = True
Line8.Visible = True
Line9.Visible = True
End If
If Coup = 6 Then
Line10.Visible = True
End If
If Coup = 7 Then
Line11.Visible = True
Line12.Visible = True
End If
Lalettre.Enabled = False
Historique.AddItem (Lalettre)
End Function

En fait je voudrait l'appeller par QLettre(A) et que sa façe tout sa mais sa mais a la place de A Vrai ou Faux et je comprend po
Ciao
SZ %-6

4 réponses

Messages postés
85
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
18 avril 2005

essai de mettre Private sub ou Public sub au lieu de function !
Essai je ne sé pa si ca va marcher mé essai kan mem
PtitJeoJeo
0
Messages postés
59
Date d'inscription
mercredi 25 octobre 2000
Statut
Membre
Dernière intervention
19 janvier 2004

Non sa marche pas :( il renvoie toujours Vrai ou Faux pour la variable Lalettre
0
Messages postés
85
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
18 avril 2005

bon fo ke jte demande un truc : pourkoi tu met ca : If lettre(test) = Lalettre Then
c koi lettre c koi test
logiquement lettre devrai etre une fonction vu k'il y a l'argument test entre parenthèse
si lettre est une fonction dit moi a koi elle sert
et que recois test ???

fin voila avec plus de détail pourré ptet T D des fois c seulement un ptit truc ki prend la tete et on s'en appercois pa !

j'atten les détails !!!

PtitJeoJeo

ps : ca serait po un pendu ke tu fé la ?
0
Messages postés
59
Date d'inscription
mercredi 25 octobre 2000
Statut
Membre
Dernière intervention
19 janvier 2004

dans le général g fait Dim Lettre(8)
donc c po une fonction
et oui c un pendu
et c bon g trouvé la solution au lieu de faire Qlettre(a)
je fait
Lalettre = "A"
Call QLettre
Et sa marche Ciao
0