Discussion :

[vovor]

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 :

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

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.

[ouskel'n'or]

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'

[AlainTech]

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

Petite info supplémentaire:

Il existe une fonction peu connue:

TypeName

Elle permet d'écrire:

Code :

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

If TypeName(Mycontrol) = "Label"

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

[ouskel'n'or]

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+