Boucle sur textbox_change

Bonjour, Je voudrais boucler du textbox8 au textbox22 avec se code :

Private Sub TextBox9_Change()
If TextBox8 = TextBox9 Then
    TextBox9.BackColor = vbGreen
    CommandButton1.Enabled = True
Else
    TextBox9.BackColor = vbRed
    CommandButton1.Enabled = False
End If
End Sub

J'ai essayer ceci mais sa ne fonctionne pas :

Sub Textbox(i)_change()
For i = 8 To 22
    If USF5.Controls("TextBox" & i) = USF5.Controls("TextBox" & (i+1)) Then
    CommandButton1.Enabled = True
     TextBox(i+1).BackColor = vbGreen
     Else
       CommandButton1.Enabled = False
     TextBox(i+1).BackColor = vbRed
    End If
Next i
End Sub

Quelqu'un peux m'aider ? merci

Bonjour Ouf, bonjour le forum,

Il te faut passer par un Module de Classe. C'est quelque chose que j'ai déjà fait mais que je ne maîtrise pas très bien.

Mets ton fichier en pièce jointe et j'essaierai de le mettre en place et de t'en expliquer le fonctionnement...

bonjour,

Tu ne peux pas créer de procédure ..._change comme bon te semble :

Ces procédures sont créées par le système lors de la création de chaque contrôle ou du renommage de ce contrôle.

Comme il n'existe pas de contrôle nommé "Textbox(i)" il ne peut exister une telle procédure.

Pour les objets en nombre il existe une démarche particulière qui gère ce genre de situation sans avoir à écrire une macro par objet : Les modules de classe.

56classe-tbxusf.xlsm (20.36 Ko)

[EDIT] Salut Thautheme

A+

Rechercher des sujets similaires à "boucle textbox change"