Creer un loop sur textboxes

Version imprimable

18/09/2015, 16h11
zidane22

Creer un loop sur textboxes

Bonjour
j'ai sur ma form plus de 30 text (avec array)
je voudrai tester si tous les textes sont vides, on envoie un msgbox" il faut remplir au moins un text"
Merci

Salut

Citation:

j'ai sur ma form plus de 30 text (avec array)

si tu parles de groupe de TextBoxs indexé, voir ce

Code:

1
2
3
4
5
6
Dim T As Integer, NbrVide As Integer
'groupe de TextBox indexé
For T = 0 To Text1.Count - 1
    If Trim(Text1(T).Text) = "" Then NbrVide = NbrVide + 1
Next T
If NbrVide = Text1.Count Then MsgBox " il faut remplir au moins un text"

par contre si il s’agit de TextBoxs de Name différents

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim NbrDeTxtBox As Integer, NbrVide As Integer
Dim CntrL As Control
'groupe de TextBox.Name = TextBox2, TextBox3,TextBox4
Dim NomDesTxtBox As String
NomDesTxtBox = "Text2,Text3,Text4"
For Each CntrL In Me.Controls
    If TypeName(CntrL) = "TextBox" Then
        If InStr(1, NomDesTxtBox, CntrL.Name, vbTextCompare) <> 0 Then
            NbrDeTxtBox = NbrDeTxtBox + 1
            If Trim(CntrL.Text) = "" Then NbrVide = NbrVide + 1
        End If
    End If
Next
If NbrDeTxtBox = NbrVide <> 0 Then
     MsgBox " il faut remplir au moins un text"
End If

dans ce dernier code, les noms des TextBoxs pourraient être TxtNom, TxtPrenom, TxtTel, Txt......., il suffit de les mettre dans la variable NomDesTxtBox.

Citation:
Envoyé par ProgElecT
Salut
si tu parles de groupe de TextBoxs indexé, voir ce
Code:

1 2 3 4 5 6 Dim T As Integer, NbrVide As Integer 'groupe de TextBox indexé For T = 0 To Text1.Count - 1 If Trim(Text1(T).Text) = "" Then NbrVide = NbrVide + 1 Next T If NbrVide = Text1.Count Then MsgBox " il faut remplir au moins un text"
par contre si il s’agit de TextBoxs de Name différents
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim NbrDeTxtBox As Integer, NbrVide As Integer Dim CntrL As Control 'groupe de TextBox.Name = TextBox2, TextBox3,TextBox4 Dim NomDesTxtBox As String NomDesTxtBox = "Text2,Text3,Text4" For Each CntrL In Me.Controls If TypeName(CntrL) = "TextBox" Then If InStr(1, NomDesTxtBox, CntrL.Name, vbTextCompare) <> 0 Then NbrDeTxtBox = NbrDeTxtBox + 1 If Trim(CntrL.Text) = "" Then NbrVide = NbrVide + 1 End If End If Next If NbrDeTxtBox = NbrVide <> 0 Then MsgBox " il faut remplir au moins un text" End If
dans ce dernier code, les noms des TextBoxs pourraient être TxtNom, TxtPrenom, TxtTel, Txt......., il suffit de les mettre dans la variable NomDesTxtBox.
Oui les textes sont indexés
Merci beaucoup ProgElecT
ça marche tres tres bien
Je voulais pas être très lourd mais j'aimerais savoir s'il est possible cette fois de verifier si seulement un seul texte qui est remplis. pour envoyer un autre msgbox.
Je m''excuse profondément

C'est pas vraiment du VB6 mais de la logique, mise à par la syntaxe peut être.

Code:

1
2
3
If Text1.Count = NbrVide Then MsgBox " il faut remplir au moins un texte"
If Text1.Count - NbrVide = 1 Then MsgBox " vous n'avez remplit qu'un seul texte"
If Text1.Count - 1 = NbrVide Then MsgBox " il vous reste un texte à remplir"

19/09/2015, 00h19
Jipété

Citation:

Envoyé par ProgElecT

C'est pas vraiment du VB6 mais de la logique, mise à par la syntaxe peut-être.

Code:

If Text1.Count - NbrVide = 1 Then MsgBox " vous n'avez remplit qu'un seul texte"

Et un poil d'orthographe, :mouarf:

Code:

If Text1.Count - NbrVide = 1 Then MsgBox " vous n'avez rempli qu'un seul texte"

Hé oui, "remplir" se conjugue comme "finir".
19/09/2015, 01h00
zidane22

Merci beaucoup ProgElecT
Vous êtes un homme très genereux