salut a tous
en vb6
Avec ce code, tout les labels s'apel 'label1.  
Quand je click sur la command1, un premier label1 devient visible;  
Je click sur la command2 et dans le label1 s'affiche la lettre C.  
 
Je reclick sur la command1 et un deuxieme label1 devient visible;  
je click sur la command3 et la lettre D s'affiche dans le deuxieme labe1  
 
le probleme et que le premier label1 a maintenant la lettre D a l'interieur,alors qu'avant yaver un C  
 
en fait a chaque fois que je click sur un commandbutton la lettre qui lui et attribuer s'affiche dans les labels  
si je tape un C et apres je tape un D, ya D et D au lieu d'avoir C et D dans les labels  
 
Moi j'aimerais :
click 1 = C dans label 1 (N°1)
click 2 = D dans label 1 (N°2)
 
je recherche cette methode car plus tard je veut multiplier le nombre de label avec d'autre lettre de l'alphabet
 
J'ai ce code
----------------------------------------------
Dim nbr As Integer
----------------------------------------------
Private Sub Command1_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= Label1.Count Then
    nbr = 2
End If
For n = 0 To Label1.Count - 1
If n <= nbr Then
Label1(n).Visible = True
Else
Label1(n).Visible = False
End If
Next n
End Sub
------------------------------------------
Private Sub Command2_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= Label1.Count Then
    nbr = 2
End If
For n = 0 To Label1.Count - 1
If n <= nbr Then
Label1(n).Caption = "C"
End If
Next n
End Sub
------------------------------------------
Private Sub Command3_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= Label1.Count Then
    nbr = 2
End If
For n = 0 To Label1.Count - 1
If n <= nbr Then
Label1(n).Caption = "D"
End If
Next n
End Sub
-------------------------------------------
Private Sub Form_Load()
nbr = -1
End Sub
-------------------------------------------
Salut et Merci a ceux qui save et aux autres aussi.
 

 
For n = 0 To Label1.Count - 1
If n <= nbr Then
Label1(n).Caption = "D"
End If
Next n
 
C'est pas bon ca ... comme nbr c'est ton nombre de label, soit label1.count-1
 
=> quand tu fais 'If n <= nbr ' tu vas modifier ts tes labels puisque , sera ts le tps inferieur a nbr.

Grand Merci  A Oazar, ca marche au top,Merci