Vérifier si texbox ou combobox sont vident ?

[B52]

Bonjour à tous, le forum,

Voilà, j'ai crée un userform pour saisir des données.
une fois que l'on valide la saisie, j'ai mis un code pour vérifier que toutes les textbox et combobox ont étés renseignées.(if userforl1.textbox1="" then Msgbox.....), mais c'est très lourd et très long....
Je voudrais savoir, s'il est possible de faire un code Vba plus simple,du genre:
vérifié que tous les elements ne sont pas vide (textbox, combobox...) et si il y en à des vides => une MsgBox s'affiche.

Par avance merci et bon WE à tous

Stéphane

 

[peper-eliot]

Salut oh forum
&
Bonjour B52

Bon alors là, tu n'as pas du utiliser la fonction de recherche sur le forum ;-)

Ce code n'est pas de mois, mais de @+Thierry


'Thierry's Macro Démo sur www.excel-Donwloads.com, August 2003
'++++++++++++++++++
'AJOUT DE VALEUR DU USERFORM
'++++++++++++++++++
Private Sub CmdAjouter_Click()
Dim CTRL As Control 'Variable pour la collection des controls


'ici une boucle sur tous les controls, si un est vide on sort et on set le focus dessus

For Each CTRL In Me.Controls
If CTRL = "" Then MsgBox "Donnée Incomplete", vbCritical
CTRL.SetFocus: Exit Sub
Next CTRL


Bon courage