Discussion :

[Nico451]

Bonjour,

Lors de la validation de mon UserForm, je fait un contrôle si toutes les Texbox sont rempli, le souci que je n'avais pas prévus, c'est que je fait apparaitre ou non 1 Texbox. Et forcement au moment du contrôle il me dit que tous n'est pas rempli. Normal.

Voici mon code de vérification

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim ctl As Control
 
        For Each ctl In Me.Controls
            If TypeOf ctl Is MSForms.TextBox Then
                If ctl.Text = "" Then
                    MsgBox "Saisie Incomplète"
                    Exit Sub
                End If
            End If
        Next

Je voudrait rajouter une condition pour qu'il ne vérifie que les Textbox visible.

Et qu'il pointe sur le textbox non remplis

merci de votre aide.

[unparia]

Bonjour

pour qu'il ne vérifie que les Textbox visible.

et alors ? Ajoute donc cette condition ! --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ctl.Text = "" Then

--->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If clf.visible = true and ctl.Text = "" Then

Quand même ...!!!

[Nico451]

Petite précision pour moi je défini le clf à quoi

Je l'ai mis a as Control mais ça ne lui plait pas.

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim ctl As Control
         For Each ctl In Me.Controls
            If TypeOf ctl Is MSForms.TextBox Then
                If ctl.Text = "" And ctl.Visible = True Then
                    MsgBox "Saisie Incomplète"
                    Exit Sub
                End If
            End If
        Next