Novice - Boucle sur TextBox

Bonjour à tous.

Je voudrais rechercher si une valeur est indiquée dans l'un des trois textbox.
Mais quelque chose cloche avec ce code, il ne trouve pas si une valeur est indiquée sur le textbox2 ou le textbox3.
Pouvez m'aider svp?

Code:

---

1 2 3 4 5 6 7

For i = 1 to 3 If .Controls("TextBox" & i) = "" Then MsgBox " Pas de valeur" Else MsgBox "Valeur" End If Next i

---

Merci à tous,
fasedan

bonjour

quand tu utilise ".control" en general c'est que tu es dans une boucle "with et end with"ou alors metre le prefixe "me" ou le nom de l'userform devant ".controls"

Code:

---

1 2 3 4 5 6 7 8 9

sub trucmachin() For i = 1 to 3 If Me.Controls("TextBox" & i) = "" Then MsgBox " Pas de valeur" Else MsgBox "Valeur" End If Next i end sub

---

au plaisir

Merci patricktoulon.

Effectivement le code se trouve bien dans une boucle:
With et End With
Voilà le pourquoi du : .Controls au lieu du Me.Controls
J'aurais du le précisser.

fasedan

re

Il y a un autre moyen de boucler sur les textboxs qu'avec une boucle avec "control & i" : ça serait d'utiliser une variable object.

En effet, on nomme très souvent les controls à notre idée ou besoin, il deviens alors très difficile de boucler avec des nom assez différents.

Pour ma part je préfère la méthode avec le type (object) ce qui évite de devoir connaître les noms.

Exemple :

Code:

---

1 2 3 4 5 6 7

sub truc machin() dim ctrl as object for each ctrl in me.controls If TypeName(ctrl) = "TextBox" Then msgbox ctrl.text end if next

---

Au plaisir.

Merci patricktoulon,

Je retiens ton code pour le coté pratique, car il ne tient pas compte du nom des contrôles.

Mais comment ajouter à ce code :
Si un des trois textbox est non vide afficher msgbox "Pas vide."
et si les trois sont vides, afficher msgbox "Vide."

Merci d'avance,
fasedan

re
c'est tout simple

et la il y a encore plusieurs variantes

une tres facile serait de donner une valeur a une varaible de string on la nommerait texto

Code:

---

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

sub truc machin() dim ctrl as object,texto as string for each ctrl in me.controls If TypeName(ctrl) = "TextBox" Then if ctrl.text<>"" then texto=texto & ctrl.text end if   next 'maintenant que l'on est sorti de la boucle notre variable a été instruite 'si la variable texto est différente de rien on affiche le message if texto<>"" then msgbox "pas vide!!!" else msgbox "queudale dans le bastring" end if end sub

---

et il y a bien d'autre facons
au plaisir

Bonjour,

Ajoute une variable booléenne à ton code, initialise-la à False et positionne-la à True dès qu'un des contrôles est rempli.

pour suivre l'idée de alaintech

Code:

---

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

sub truc machin() dim ctrl as object,textoplein as boolean,message as string for each ctrl in me.controls If TypeName(ctrl) = "TextBox" Then if ctrl.text<>"" then textoplein=true end if   next 'maintenant que l'on est sorti de la boucle notre variable a été instruite 'si la variable textoplein esta true on affiche le message message=iif (textoplein,"vide","pasvide") msgbox message end sub

---

au plaisir

Merci à tous pour votre précieuse aide.

Je pense que ces différents codes doivent faire l'affaire.
Je teste touts ca dès que possible.

Encore merci à vous.
fasedan