Function et Sub

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

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

Non sa marche pas :( il renvoie toujours Vrai ou Faux pour la variable Lalettre



-------------------------------
Réponse au message :
-------------------------------

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

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 ?

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

-------------------------------
Réponse au message :
-------------------------------

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 ?