Discussion :

[thib42]

Bonjour,

Je cherche un moyen de parcourir toutes les TexteBox d'un feuille pour en verifier le contenu.
Voilà ce que j'ai essayé de faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Cont as new Control
dim textb as new TextBox
 
For Each Cont in Form1
    if Cont is textb then
            if cont.text ="" then
                messagebox.show("La TextBox est vide")
            end if
   end if
Next

le probleme c'est que meme lorsque le controle en cours est une textbox, Visual Basic passe à Next directement.

Si quelqu'un peut m'aider.

[Aspic]

NOn il faut faire ca :

Code :

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

1
2
3
4
5
6
7
8
9
For Each txt As TextBox In Me.Controls
            If TypeOf txt Is TextBox Then 'si c'est une TextBox
                If txt.Text = "" Then
                    MsgBox("la textbox est vide")
                Else
                    MsgBox("elle n'est pas vide")
                End If
            End If
        Next

[thib42]

merci beaucoup.

[Tusbar]

NOn il faut faire ca :

Code :

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

1
2
3
4
5
6
7
8
9
For Each txt As TextBox In Me.Controls
            If TypeOf txt Is TextBox Then 'si c'est une TextBox
                If txt.Text = "" Then
                    MsgBox("la textbox est vide")
                Else
                    MsgBox("elle n'est pas vide")
                End If
            End If
        Next

Salut,

A quoi ça sert de controler si l'objet est une textbox si tu fais une boucle appelant uniquement des textbox ?

[Aspic]

Salut,

A quoi ça sert de controler si l'objet est une textbox si tu fais une boucle appelant uniquement des textbox ?

Oui j'ai pas fait attention :

Code :

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

1
2
3
4
5
6
7
8
9
For Each txt As Control In Me.Controls
            If TypeOf txt Is TextBox Then 'si c'est une TextBox
                If txt.Text = "" Then
                    MsgBox("la textbox est vide")
                Else
                    MsgBox("elle n'est pas vide")
                End If
            End If
        Next

Et ca :

Code :

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

1
2
3
4
5
6
7
For Each txt As TextBox In Me.Controls
                If txt.Text = "" Then
                    MsgBox("la textbox est vide")
                Else
                    MsgBox("elle n'est pas vide")
                End If
        Next

... sont equivalents