Discussion :

[AidezMoiSvp]

Bonjour,

Je suis face au problème suivant : j'ai une liste déroulante. Si elle est égale à "oui", deux textbox apparaissent. L'utilisateur peut vérifier les données qu'il a entrées dans ces deux textbox en appuyant sur un bouton.
Comment faire pour que les bordures apparaissent en rouge si la textbox est vide ? Si les deux sont vides, les deux ont les bordures rouge. Si une seule des deux est vide, seule les bordures de la vide a les bords rouge.

J'ai énuméré les solutions possibles mais je voudrais passer par une boucle pour éviter d'énumérer toutes les solutions (même si pour le présent cas il n'y en a pas beaucoup).

Merci

[robyseb]

Bonjour ! Voici un exemple provenant de Microsoft

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
Sub Form_Current()
    Dim curAmntDue As Currency, lngBlack As Long
    Dim lngRed As Long, lngYellow As Long, lngWhite As Long
 
    If Not IsNull(Me!txtPastDue.Value) Then
        curAmntDue = Me!txtPastDue.Value
    Else
        Exit Sub
    End If
    lngRed = RGB(255, 0, 0)
    lngBlack = RGB(0, 0, 0)
    lngYellow = RGB(255, 255, 0)
    lngWhite = RGB(255, 255, 255)
    If curAmntDue > 100 Then
        Me!txtPastDue.BorderColor = lngRed
        Me!txtPastDue.ForeColor = lngRed
        Me!txtPastDue.BackColor = lngYellow
    Else
        Me!txtPastDue.BorderColor = lngBlack
        Me!txtPastDue.ForeColor = lngBlack
        Me!txtPastDue.BackColor = lngWhite
    End If

Si tu possède seulement ces 2 textbox dans ton formulaire tu peut utiliser une boucle comme celle-ci :

Code :

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

1
2
3
4
5
6
7
8
Dim ctl As Control
 
For Each ctl In Me.Controls
         If TypeOf ctl Is TextBox  Then
 
                  ctl.BorderColor = lngRed
 
         End If

[Domi2]

Bonjour,

Si tu possède seulement ces 2 textbox dans ton formulaire tu peut utiliser une boucle comme celle-ci :

Une astuce intéressante dans ce cas, c'est d'utiliser la propriété "Remarque" du contrôle. Ainsi, tu peux "isoler" certains contrôles sur lesquels tu désires effectuer un traitement en faisant un test supplémentaire. Pour ces deux zones de texte uniquement, tu renseignes la propriété "Remarque" avec par exemple "MFC" (pour mise en forme conditionnelle) et tu modifies légèrement le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim ctl As Control
For Each ctl In Me.Controls
 
    If TypeOf ctl Is TextBox  Then
 
        If ctl.Tag = "MFC" Then        
 
            ctl.BorderColor = lngRed
 
        End If
 
    End If
 
Next

Domi2

[robyseb]

merci pour l'astuce j'y avait pas pensée

[AidezMoiSvp]

Bonjour,

Merci pour les codes.

Cependant le point qui me pose le plus problème n'est pas résolu

En effet, les codes ne vérifient pas si les textbox sont vides ou pas.
J'ai essayé avec "ctl.value" mais bien sûr ça ne marche pas

[Domi2]

Bonjour,

Code :

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

If IsNull(ctl.Value) Then

ne fonctionne pas ?

Domi2