Frame via textbox si vide message
Bonjour a vous,
J'si mis en place cette ligne de code :
If TextBox1 = "" And TextBox2 = "" And TextBox3 = "" And TextBox4 = "" Then
MsgBox "Impossible ! La fiche est vide"
Exit Sub
End If
cela fonctionne, mais serai t'il possible de remplacer textbox1, textbox2.....par quelque chose de plus....court !
le userform a un frame1, la ou sont les textbox1, textbox2, ....Ne connaissant pas la syntaxe exacte...
Merci de votre support
Fred
Bonjour à toi,
Je suis pas sur mais en déclarant une variable peut être .. comme ceci :
Dim tb as textboxMais tu ne pourra pas effectuer le test avec une boucle ^^.
Sinon en groupant toutes les valeur de tes textbox dans une seule variable :
Dim vtb as string
vtb = textbox1.value & textbox2.Value etc.Je n'ai pas d'autres solutions (je vais aussi regarder comme évolue ton fil
Cdlt,
Bonjour VH_AE.
j'ai trouvé un truc du genre :
Dim c As Control
For Each c In Frame1.Controls
Select Case TypeName(c)
Case "TextBox": c.Value = ""
End Select
Next c
MsgBox "Impossible ! La fiche patient est vide"
Exit Sub
Cela fonctionne !
thx
Fred
Bien joué !
Merci beaucoup pour ton retour cela va me servir
Cdlt,