Discussion :

[Allanbzh]

Bonjour,

Je suis bloqué dans un USF. Je m'explique.

1) Je regarde si les Textbox de 1 à 19 sont bien rempli => Réponse Vrai ou Faux
2) Je regarde si TextBox de 4 à 12 sont bien en blanc => Réponse Vrai ou Faux
3) Je regarde si au moins une TextBox est rouge => Réponse Vrai ou Faux
4) Je met des conditions selon les différentes réponse des tests des point 1,2,3.

Problème => Test_rempli = Ok Test_blanc = Ok MAIS le Test_rouge ne fonctionne pas comme il faut. C'est à dire que lorsqu'une textbox passe en rouge on a pas les images qu'il faut (on reste sur l'image 1 visible).

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Function Test_rempli() As Boolean
    Dim n%
    Test_rempli = False
    For n = 1 To 19
        If Me.Controls("TextBox" & n) = "" Then
            Test_rempli = False
            Exit For
        Else
            Test_rempli = True
        End If
    Next n
End Function
Function Test_blanc() As Boolean
    Dim n%
    Test_blanc = False
    For n = 4 To 12
        If Me.Controls("TextBox" & n).BackColor = RGB(255, 255, 255) Then
            Test_blanc = True
            Exit For
        Else
            Test_blanc = False
        End If
    Next n
End Function
Function Test_rouge() As Boolean
    Test_rouge = False
        If TextBox4.BackColor = RGB(204, 0, 0) Or _
           TextBox5.BackColor = RGB(204, 0, 0) Or _
           TextBox6.BackColor = RGB(204, 0, 0) Or _
           TextBox7.BackColor = RGB(204, 0, 0) Or _
           TextBox8.BackColor = RGB(204, 0, 0) Or _
           TextBox9.BackColor = RGB(204, 0, 0) Or _
           TextBox10.BackColor = RGB(204, 0, 0) Or _
           TextBox11.BackColor = RGB(204, 0, 0) Or _
           TextBox12.BackColor = RGB(204, 0, 0) Then
            Test_rouge = True
        Else
            Test_rouge = False
        End If
End Function
Sub BoutonActif()
 
If Test_rempli = True And Test_blanc = True Then
    Me.Image1.Visible = True
    Me.Image3.Visible = False
    Me.Image4.Visible = False
    Me.Label69.Caption = "Envoyez la requête"
ElseIf Test_rempli = True And Test_rouge = True Then
    Me.Image1.Visible = False
    Me.Image3.Visible = True
    Me.Image4.Visible = True
    Me.Label69.Caption = "Besoin d'une validation du Chef d'équipe"
Else
    Me.Image1.Visible = False
    Me.Image1.Visible = False
    Me.Image1.Visible = False
    Me.Label69.Caption = "Renseignez tous les champs"
End If
End Sub

Puis pour vérifier à chaque changement de valeur dans les TextBox

Code :

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

1
2
3
4
5
 
Private Sub TextBox1_AfterUpdate()
    BoutonActif
End Sub
 ..........

Si quelqu'un a une petite piste ça m'aiderait beaucoup

Cordialement.

[Menhir]

Tu es sûr que c'est la bonne variante de rouge que tu testes ?

Parce que normalement, le "vrai" rouge, c'est RGB(255, 0, 0).

[Allanbzh]

Bonjour Menhir

Oui, c'est un rouge un peu plus sombre, moins "pompier" héhé

Du coup, j'ai inversé la partie du IF et du ELSEIF dans la dernière partie du code et ça fonctionne ! Pourquoi ? Aucune idée malheureusement, j'aimerai comprendre si quelqu'un a une piste de réponse n'hésitez pas

Allan