Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour à tous et à toutes
SVP chers membres si vous pouvez m'aider a resoudre ce probleme
Dans ma Form1 dans ce projet ci dessous ..j'ai 10 Text et 3 Combo
J'aimerai bien si vous m'aidez bien sur ..
Si je clique sur Combo3 .. un message s'affichera qui m'indique les TextBox qui sont vides et seront automatiquement colories en rouges ..
Merci beaucoup d'avance pour l'aide
Cordialement
MADA BLACK

[l_autodidacte]

Dans un tel cas, le mieux est d'utiliser un groupe de TextBox indexés de 0 à 9 et ce en sélectionnant le premier TextBox et en allant dans sa fenêtre de propriétés et mettre dans la propriété Index la valeur 0(zéro).
Ensuite, sélectionne le contrôle Text1 sur l'objet Form puis clic droit sur ce dernier et copier puis Coller 9 fois. On peut tout aussi bien le faire dynamiquement.

Code :

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

1
2
3
4
5
6
Private Sub Combo3_Click()
    Dim I%
    For I = 0 To Text1.Count - 1
         If Text1(I).Text = "" Then  Text1(I).BackColor = vbRed
    Next I
End Sub

[MADA BLACK]

Bonjour L'autodidacte
Merci beaucoup pour votre super intervention
Merci beaucoup pour votre super et impeccable solution
C'est tres gentil de votre aprt
C'est parfaitement resolu
Cordialement
MADA BLACK