Discussion :

[zidane22]

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

[ProgElecT]

Salut

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

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

Code :

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

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 :

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
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.

[zidane22]

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

Code :

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

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 :

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
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

[ProgElecT]

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

Code :

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

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"

[Jipété]

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

Code :

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

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

Et un poil d'orthographe,

Code :

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

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

Hé oui, "remplir" se conjugue comme "finir".

[zidane22]

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