Vérifier si USERFORM est vide

Bonjour le Forum

J'ai un userform avec 18 TextBox et Combobox.
Il y aussi un bouton Valider et un bouton cancel.

J'essai de vérifier si l'utilisateur a fait au moins une entrée lorsqu'il a pressé sur le bouton Valider.

Je peux le faire en vérifiant chacune des boites, mais il y a t-il un moyen plus rapide de type Isempty(userform) ?

Merci pour intérêt

bonjour Bugzy1963 le forum "brut comme cela " je suppose que tu as renommme tes textboxs pour simplifier !!! autrement une boucle dans ce style est suffisante

Code:

---

1 2 3 4 5 6

Dim x As Byte, i As Byte For x = 1 To 18 If Controls("textbox" & x) <> "" Then i = i + 1 Next x 'ect...

---

autrement dans ce style je suppose un seul combobox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub valider_Click() Dim j As Control, i As Byte For Each j In Controls If TypeOf j Is MSForms.TextBox Then If j <> "" Then i = i + 1 End If: End If: Next If i > 0 Or ComboBox1 <> "" Then MsgBox "renseignee" Else MsgBox "pas renseignee" End If End Sub

---

Merci Laetitia

Je n'ai pas renommé les Texbox car j'utilise Cstr pour retirer les valeurs numériques.

Je ne connais pas la fonction Controls, mais je vais chercher,

J'imagine qu'il y aura une autre boucle pour les Combobox.

merci

re, en complement pour les combobox je suppose nb..=4

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub valider_Click() Dim x As Byte, i As Byte For x = 1 To 18 If Controls("textbox" & x) <> "" Then i = i + 1 Next x For x = 1 To 4 If Controls("combobox" & x) <> "" Then i = i + 1 Next x If i > 0 Then MsgBox "renseignee" Else MsgBox "pas renseignee" End If End Sub

---

ou encore renommee ou pas!!! plus simple dans certains cas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub valider_Click() Dim j As Control, i As Byte For Each j In Controls If TypeOf j Is MSForms.TextBox Or TypeOf j Is MSForms.ComboBox Then If j <> "" Then i = i + 1 End If: Next If i > 0 Then MsgBox "renseignee" Else MsgBox "pas renseignee" End If End Sub

---