bonjour au forum,

Je souhaite effectué le control sur des TextBox, si l'une d'elles est vide un message s'affiche et donne le nom du label concerné puis focus et coloration de la TextBox en question. J'arrive a faire une partie mais dans l'état actuel, les deux TextBox sont colorées

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
For Each ctl In Me.Controls
    If TypeOf ctl Is MSForms.TextBox Then
        If ctl.Text = "" Then
'Message disant que Validité est vide
            MsgBox "Saisie incomplète"
                With TxtBoxValidite
                .BorderStyle = 1: .BackColor = RGB(241, 221, 220): .BorderColor = RGB(255, 0, 0)
                .SetFocus
                End With
                With TxtBoxCategorie
                .BorderStyle = 1: .BackColor = RGB(241, 221, 220): .BorderColor = RGB(255, 0, 0)
                .SetFocus
                End With
            Exit Sub
        End If
    End If
Next
Pouvez-vous m'aider svp?

Merci

Stephanie