Discussion :

[tetanos34]

Bonjour !

J'ai un nouveau problème, j'aimerais changer les couleurs de fond de mes champs, d'un formulaire en Vba selon la valeur qu'il y a a l’intérieur.
Voila a quoi ressemble mon formulaire.
Les champs vont chercher une valeur dans une de mes table selon certaine condition :

Code :

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

=RechDom("[Diff_VL_HPM]";"T_Diff";"[Diff_ID_Unique] = 21")

Maintenant j'aimerais que si la valeur afficher dans mes champs est entre -10 et 10 les couleurs de fond sois verte sinon elle sois rouge.
J'ai essayer ça

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
Private Sub Form_AfterUpdate()
 
If Me.Texte71 > 10 Then
   Me.Texte71.BackColor = vbRed
   Me.Texte71.BackColor = (15)
Else
   Me.Rectangle1.BackColor = vbGreen
 
End Sub
 
Private Sub Texte71_AfterUpdate()
 
If Me.Texte71 > 10 Then
   Me.Texte71.BackColor = vbRed
   Me.Texte71.BackColor = (15)
Else
   Me.Rectangle1.BackColor = vbGreen
End If
 
End Sub
 
Private Sub Texte71_BeforeUpdate(Cancel As Integer)
 
If Me.Texte71 > 10 Then
   Me.Texte71.BackColor = vbRed
Else
   Me.Rectangle1.BackColor = vbGreen
End If
 
End Sub

mais cela ne fonctionne pas ... J'ai un peu regarder les forums mais mes tentatives échouent

Pouvez-vous m'aidez ?

[madefemere]

Bonjour,

D'après ce que tu expliques, une Mise en Forme Conditionnelle serait suffisante pour "colorier" tes champs selon conditions.

Cordialement.

[tetanos34]

Effectivement .... desolé ... Trés simple.

[candice27]

Bonjour,

J'ai pas trouvé de topic a proprement parlé sur mon soucis du coup je fais suite à celui là qui s'en rapproche le plus...

Je suis un peu novice en vba mais j'aimerai utiliser des conditions de couleur sur un userform.

En clair j'ai une macro et à la fin j'ai un resultat. Je souhaite qu'il s'affiche dans un label : pas de soucis jsuque là. Mais je souhaite qu'il s'affiche avec une couleur de fond donnée associé à mon résultat. Je l'ai fais dans ma table avec la mise en forme en conditionnelle du coup je pensais utiliser ce code là pour l'userform:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_Open()
 
ligne_tableau = Feuil3.Range("A1048576").End(xlUp).Row
Resultat.Label4.Caption = Feuil3.Cells(ligne_tableau + 1, 10).Value
 
Label1.BackColor =  Feuil3.Cells(ligne_tableau + 1, 10).Interior.Color
 
Resultat.Show
 
End Sub

ce code ne marche pas : mon fond de label apparait blanc car une mise en forme conditionnelle ne défini pas le fond de la cellule. Même si ma cellule est rouge son fond est défini blanc dans le bandeau Accueil

Du coup j'ai voulu mettre des conditions sur l'userform

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
 
Private Sub Workbook_Open()
 
ligne_tableau = Feuil3.Range("A1048576").End(xlUp).Row
Resultat.Label4.Caption = Feuil3.Cells(ligne_tableau + 1, 10).Value
 
If Resultat.Label4.Caption = "correct" Then
   Resultat.Label10.BackColor = RGB(224, 0, 0)
End If
 
If Resultat.Label4.Caption = "incorrect" Then
   Resultat.Label10.BackColor = RGB(0, 160, 255)
End If
 
End sub

ca ne fonctionne pas non plus... je ne vois pas ou est le soucis... je suis sous office2013 si ca peut aider

merci d'avance de votre aide
bonne soirée