Bonsoir le forum

En règle générale, je désire souvent m'assurer que tous les TextBoxs d'un UserForm soient remplis. J'utilise, pour ce faire, le code suivant, pour (dans l'exemple) les 5 TextBoxs :
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
18
19
20
21
22
23
24
25
Sub VérifRemplissage()
    Dim i As Byte
    For i = 1 To 5
  If Controls("TextBox" & i).Value = "" Then
                 CommandButton1.Enabled = False  
            Exit Sub
        End If
    Next i
    CommandButton1.Enabled = True
End Sub
Private Sub TextBox1_change()
    VérifRemplissage
End Sub
Private Sub TextBox2_change()
VérifRemplissage
End Sub
Private Sub TextBox3_change()
VérifRemplissage
End Sub
Private Sub TextBox4_change()
VérifRemplissage
End Sub
Private Sub TextBox5_change()
VérifRemplissage
End Sub
Ma question :
1/ Puis-je m'assurer que si les TextBoxs 1, 3 & 5 ne sont pas "vides" alors CommandButton1.Enabled = True et si oui, comment "le dire" dans la boucle (For i = 1 to 5) ??
Merci de vos contributions et bonne fin de week-end.