If avec un label

Bonjour à tous,

j'aimerais faire en sorte que si ma textbox est = a mon label, alors l'autre textbox 1 else 0,

jusque la pas de probleme, j 'ai mis une condition for dessus conclusion il me les mets toutes en 0...

Private Sub CommandButton7_Click()
For i = 284 To 291
    For r = 639 To 646
    If Me.Controls("label" & i) = TextBox647 Then
    Me.Controls("TextBox" & r) = 1
     Else
     Me.Controls("TextBox" & r) = 0
     End If
     Next
Next i
End Sub

Private Sub UserForm_Initialize()
TextBox647.Value = "E"
End Sub

suremenet qqch que j'ai oublier... je vous joins le fichier aussi

Merci pour vos réponse

Bonsoir svbb,

C'est normal, il n'y a pas de liaisons entre tes labels et tes textbox....il ne sait pas que si label284 = E alors Textbox639=1

Essaies ainsi avec une seule boucle:

355 = 639 (première Textbox) - 284 (premier Label) ;ainsi label&i correspond à TextBox& i+355

(donc label284 correspond à TexTbox284+355 soit TextBox639)

Private Sub CommandButton7_Click()
For i = 284 To 291
   ' For r = 639 To 646
    If Me.Controls("label" & i) = TextBox647 Then
    'Me.Controls("TextBox" & r) = 1
    Me.Controls("TextBox" & i + 355) = 1
     Else
     'Me.Controls("TextBox" & r) = 0
     Me.Controls("TextBox" & i + 355) = 0
     End If
     'Next
Next i
End Sub

Cordialament,

bah oui ... c est assez logique mdr j suis dessus depuis des heures mdr enfin merci beaucoup