Discussion :

[fasedan]

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 :

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

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

[patricktoulon]

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 :

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

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

[fasedan]

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

[patricktoulon]

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 :

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

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.

[fasedan]

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

[patricktoulon]

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 :

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

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

[AlainTech]

Bonjour,

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

[patricktoulon]

pour suivre l'idée de alaintech

Code :

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

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

[fasedan]

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