Contrôler les TextBox et ComboBox sauf une !

Version imprimable

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:

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

bonjour
tester

Code:

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

08/03/2022, 13h34
Lasmal

Bonjour BENNASR,

Je viens de tester ta proposition.
Malheureusement, j'obtiens toujours le même résultat :(
08/03/2022, 13h38
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

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

Code:

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 :D