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 ?