Couleur police sur plusieurs textbox

Bonjour,

j'aurais besoin de votre aide !!!!!

j'essai d'appliquer une petite mise en forme sur mes textbox si le nombre de caractère dépasse 6

j'y arrive individuellement comme ceci

Private Sub TextBox13_Change()
    If Len(TextBox13) <> 6 Then
     TextBox13.ForeColor = RGB(255, 0, 0)     'Police rouge si <> de 6 carractères
    End If
    If Len(TextBox13) = 6 Then                'Police noir si = à 6 carractères
     TextBox13.ForeColor = RGB(0, 0, 0)
    End If
End Sub

mais je dois l'appliquer à d'autre textbox, du coup j'ai pensé a faire un bout de code en module puis de l'appeler

mais la je n'y arrive pas.

j'ai fais comme ceci

Sub Taille_Ref()
    Dim Mes_ref As MSForms.TextBox
    With UserForm1
    Mes_ref = .TextBox11 Or .TextBox12 Or .TextBox13 Or .TextBox14 Or .TextBox19 Or .TextBox20 Or .TextBox21 Or .TextBox22
    If Len(Mes_ref) <> 6 Then
     Mes_ref.ForeColor = RGB(255, 0, 0)     'Police rouge si <> de 6 carractères
    End If
    If Len(Mes_ref) = 6 Then                'Police noir si = à 6 carractères
     Mes_ref.ForeColor = RGB(0, 0, 0)
    End If
    End With
End Sub

Pourriez vous me dire d'ou viens mon ou plutôt mes erreur ?

je presise que je debute merci d'etre indulgent avec moi et d'utiliser des termes simples

A plus.

Bonjour,

Essaie plutôt ainsi :

Sub CouleurTexte(tb As Integer)
    Dim nc%
    With Controls("TextBox" & tb)
        nc = Len(.Value)
        Select Case nc
            Case 6
                .ForeColor = vbBlack
            Case Else
                .ForeColor = vbRed
        End Select
    End With
End Sub

Et pour chaque TextBox concernée, la procédure Change appelle la proc. ci-dessus en lui communiquant le numéro d'index.

Exemple :

Private Sub TextBox13_Change()
    CouleurTexte 13
End Sub

Même chose pour toutes les TextBox concernées.

Cordialement.

Bonjour,

merci pour la réponse mais ça ne marche pas pas j'ai essayer pour les textbox11 et 13 je suppose qu'il manque un petit quelque chose .

je joint le fichier pour plus de compréhension.

A plus

Commence par mettre la procédure dans le module du Userform, là où elle doit fonctionner et ensuite tu pourras me reparler de tes tests...

Woops je viens de comprendre effectivement cela marche bien mieux

Merci pour ton aide tu m’enlèves une bonne épine du pied