Discussion :

[OnixT]

Bonjour,

Je suis un débutant et j'ai un problème quand j'essaye d'utiliser le "Or" ... Voici mon problème :

Quand je mets ca:



Je me retrouve avec ça :



Sûrement parce que il y a plusieurs "Or" car quand je mets que " If TextBox1.text Or TextBox2.text = "" then

MsgBox("TEST")" Ca marche

Pouvez vous me dire la cause de l'erreur et me dire comment la résoudre ? Merci !

[sevyc64]

Tu compte faire quoi avec ça ?

La seconde solution ne devrait pas plus marcher que la première. En tout cas aucun des deux n'ont de signification.

quand tu fait If condition Then, condition doit être un résultat de type boolean. Si tu utilise des or ou des and dans l'expression, chaque opérandes doit aussi être une résultat de type boolean.
Or Textbox.Text n'est pas de type boolean, mais de type texte, il ne peut pas être testé avec des opérateurs OR.

Il faut que tu fasse un test qui renvoie un booléan, comme TextBox1.Text = "", Textbox2.Text <> "Retour Maison", IsNumeric(TextboxMachin.Text), ...

[jopopmk]

Salut,

if (text) pourrait marcher en C mais pas en VB
Ce que tu cherches à faire est de savoir si toutes ces chaines sont vides ? Il faut alors répéter à chaque fois le test conditionnel.
Ça donne un truc du genre if (text1 = "" Or text2 = "" Or text3 = "") Then ...
Pour aller plus loin tu pourrais même utiliser l'opérateur OrElse qui parait tout indiqué dans ton cas.

Maintenant je te conseille de prendre quelques minutes pour lire un tuto VB, tout te semblera plus clair très rapidement

[OnixT]

Enfaite je veux dire que si le textbox1 est vide alors msgbox ("test") ( je pense que tu as compris ^^) sauf que j'ai 8 textbox et que pour ces 8 textbox c'est la meme commande .

Je me suis donc dit que avec Or je pourrai accumuler les textbox ...

Je peux t'assurer que si on met que " if textbox1.text or textbox2.text = "" ca marche

Et si j'ai bien compris, "TextBox1.Text = "", Textbox2.Text <> "Retour Maison", IsNumeric(TextboxMachin.Text)" va convertir le textbox en boolean ??

Merci pour ton aide ^^

[sevyc64]

ça converti pas, ça fait une comparaison et le résultat de la comparaison est un boolean

[OnixT]

Je comprend pas là, a quoi sert ce que tu m'as dit ?

Et pourquoi jopo me dis que en mettant text1 or text2 or text3 ca marche ? Qui m'aiclaire svp ?? :~(

[jopopmk]

Je pense que la partie intéressante et primordiale de mon message est en fin de compte : commence par lire quelques tuto.

[ToshiroSama]

Bonjour,

Je vais essayer à mon tour de t'expliquer ce que tu trouvera au début de n'import quel tuto

Pour commencer :

Je peux t'assurer que si on met que " if textbox1.text or textbox2.text = "" ca marche

Je peux t'assurer que non !! en fait ce qui se passe est le suivant, tu as une condition (ton if) composée de deux expressions (séparé par le OR). ta condition sera "vraie" que si les deux expressions sont "vraies". il faut savoir que la conditionif Textbox1.Text Then marchera si on saisi un long (ou un entier.. ou quelque chose convertible automatiquement en long), du coup si tu saisi "1" elle retournera "vrai" parce que la conversion vers le type "long" est faite sans exception et que "1" est différent de "0" qui le nullable du type "long"
Autrement dit : tu était entrain de tester SI textbox2.text n'est pas null et au même temps si ce qui est saisi dans textbox1 est different de la valeur null du type long, bien entendu si tu saisi une lettre dans Textbox1, ca va te sortir une belle exception relative à la conversion de String vers Long.

Ce que tu es sensé faire :
Tester sur l'ensemble de tes TextBox. TextBox1.Text <> ... Or TextBox2.Text <> ... ainsi de suite.

Pour reprendre le mot "convertir"
ON NE CONVERTIT RIEN DANS UN BLOC IF !!!
quelque chose derrière (pour ne pas sortir d'autres termes qui risquent de poser d'autres problèmes ) va tester chacune des expressions de ta condition ( rappel : IF expr1 OR expr2 AND expr3 est une condition ). et à chaque fois il va remplacer l'expression par son équivalence en terme de "Vrai/Faux" à la fin il va combiner les "vrai/faux" suivant les opérateur OR/AND... quelque chose comme FAUX AND VRAI => FAUX ...

Enfin :
PREND L'HABITUDE d'utiliser (String.Empty) et non ""...

[Mortlhomme]

Pour que le code soit moins lourd tu peut renommer tes textbox avec des nom plus court, ici je les nommerais ainsi = 'TB1', 'TB2', etc.
Ce n'est pas forcement la meilleur façon de les nommer mais c'est pour l'exemple...

Ensuite tu vas devoir faire comme ça :

Code :

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

1
2
3
If TB1.text = "" Or  TB2.text = "" Or  TB3.text = "" Or  TB4.text = "" Or  TB5.text = "" Or  TB6.text = "" Or  TB7.text = "" Or  TB8.text = "" Then
[...]
End If

En fait entre chaque 'Or' il y a une seul condition, et si tu fait

Code :

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

If TB1.text Or TB2.Text Or TB3.Text = ""

cela ne corespond pas a lui dire 'Si dans TB1 ou dans TB2 ou dans TB3 il n'y a pas de texte alors' mais cela correspond a : "Si le texte de TB1 est vrai ou que le text de TB2 est vrai ou que il n'y a pas de texte dans TB3 alors" (cela ne veut rien dire)

un équivalent de ce que tu a écrit est

Code :

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

If TB1.text = True Or TB2.Text = True Or TB3.Text = ""

[Theze]

Bonjour,

Sinon, tu peux faire une boucle sur tes TextBox :

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
17
18
19
20
21
22
23
24
25
26
27
28
 
Dim Txt As Control
Dim Vide As Boolean = True
 
For Each Txt In Me.Controls
 
    If TypeName(Txt) = "TextBox" Then
 
        If Txt.Text <> "" Then
 
            Vide = False
            Exit For
 
        End If
 
    End If
 
Next Txt
 
If Vide = False Then
 
    MsgBox ("Au moins un des champs n'est pas vide !")
 
Else
 
    MsgBox ("Tous les champs sont vide !")
 
End If

Hervé.

[rv26t]

@Theze
Autant utiliser l'exemple de la FAQ Comment intervenir sur un ensemble de même type de contrôles d'un conteneur ?
Et on l'écrit

Code :

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

1
2
3
4
5
6
    For Each ctrl In Me.Controls.OfType(Of TextBox)() 
            if ctrl.text = "" then
               messagebox.show ("Vide")
               exit for
            end if
        Next

Et tu peux même positionner le curseur sur le textbox qui est vide (s'il y en a un). Avec ctrl.Focus() placé derrière la ligne "messagebox.show ..."

[Sehnsucht]

et quitte à utiliser les méthodes d'extension issues de Linq (OfType) autant pousser le vice jusqu'au bout et faire

Code :

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

1
2
3
If Controls.OfType(Of TextBox).Any(Function(tb) tb.Text = "")
    MessageBox.Show("vide")
End If

[JetLibre]

Essai

Code :

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

1
2
3
If TextBox1.text = "" Or TextBox2.text = "" Or TextBox3.text = "" then
MsgBox("Texte est Vide")
EndIf