[VBA-E]nombre qui influe sur une boite de dialogue

Pour info, à ceux qui voudraient une solution pour "forcer le remplissage des TextBox

Mettez un mot commun (ici lbl) a la propriété .Name de vos textBox,

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Definissez une variable de controle (ici Mycontrol). ' Dim Mycontrol As Control   For Each Mycontrol In Remplissage.Controls 'pour chaque controle de la userForm Remplissage If InStr(Mycontrol.Name, "lbl") <> 0 Then 'quand le nom contient le mot lbl If Mycontrol.Value = "" Then 'si la valeur de ce controle est vide afficher la fenetre d'erreur MsgBox "Champs non remplis", vbExclamation, "Fiche non remplie" Exit Sub End If End If Next Mycontrol

---

voila.
Je pense avoir été un peu plus clair, ouskel'n'or. Ne t'en offusque pas.

Pas de soucis ! Le ok n'est là que pour le fun... Tu peux parfaitement t'en passer et ça fait un boolean de moins.
Je l'utilise généralement quand j'ai des and ou des or dans les conditions du if afin de faciliter la relecture mais on peut s'en passer... surtout si on ne comprend pas son rôle... ;)

Bonne prog'

Aaah ben tu vois que tu peux comprendre le code fourni. 8-)
Il n'y avait pas besoin de te fâcher sur moi. :aie:

Petite info supplémentaire:

Il existe une fonction peu connue:

TypeName

Elle permet d'écrire:

Code:

---

If TypeName(Mycontrol) = "Label"

---

Sans se soucier de renommer tous ses labels (bien qu'il soit plus "propre" de le faire).

Ok et merci Alain. Je n'utilise pas Typename dans l'exemple donné (et l'avais d'ailleurs oublié) car, ainsi que le montre l'exemple concret que j'ai mis, j'ai une "foultitude" de "familles" de textbox - DébutAprèsMidi DébutMatin RemplaçantMatin Remplaçant... etc. etc. (cent et quelques champs à renseigner)
Mais tu as (encore) raison, le plus souvent TypeName est suffisant. ;)

A+