Discussion :

[Lasmal]

Bonjour,

Je souhaiterais contrôler la saisie de plusieurs TextBox et ComboBox, excepté une seule en particulier que j'ai nommé "ComboBoxFiche"
J'utilise ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnajout_Click()
 
Dim ctrl As Control, Verif As Boolean
For Each ctrl In Me.Controls
 
    If TypeOf ctrl Is MSForms.TextBox Or TypeOf ctrl Is MSForms.ComboBox Then
       If ctrl.Value = "" Then Verif = True
 
   End If
Next
 
If Verif = True Then
    MsgBox "Tous les champs doivent être complétés ! ", vbExclamation, "Oups !"

Quelqu'un pourrait-il m'aider ?
Un grand merci par avance

[BENNASR]

bonjour
tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim ctrl As Control, Verif As Boolean
For Each ctrl In Me.Controls
 
 
    If TypeOf ctrl Is MSForms.TextBox And ctrl.Name <> "ComboBoxFiche" Or TypeOf ctrl Is MSForms.ComboBox Then
      If ctrl.Value = "" Then Verif = True
 
   End If
Next
 
If Verif = True Then
    MsgBox "Tous les champs doivent être complétés ! ", vbExclamation, "Oups !"
End If
End Sub

[Lasmal]

Bonjour BENNASR,


Je viens de tester ta proposition.
Malheureusement, j'obtiens toujours le même résultat

[BENNASR]

vérifie le nom de textbox exclu du controle, il se peut il y a un espace
si non file un petit fichier test sans données confid

[Lasmal]

je viens de tester une autre solution en me basant sur ta proposition : Et cela fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub btnajout_Click()
 
Dim ctrl As Control, Verif As Boolean
For Each ctrl In Me.Controls
 
If TypeOf ctrl Is MSForms.TextBox Or TypeOf ctrl Is MSForms.ComboBox And ctrl.Name <> "ComboBoxFiche" Then
      If ctrl.Value = "" Then Verif = True
 
   End If
Next

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii