Discussion :

[candice27]

Bonjour à tous,

J'ai pas trouvé de topic a proprement parlé sur mon soucis...

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

En clair j'ai une macro qui me donne à la fin un resultat. Je souhaite qu'il s'affiche dans un label dans un userform : 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 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...

merci d'avance de votre aide
bonne journée

[kiki29]

Salut, à lire ( en Anglais ) : Conditional Formatting Colors
Extrait sans appel :

Unfortunately, the Color and ColorIndex properties of a Range don't return the color of a cell that is displayed if Conditional formatting is applied to the cell. Nor does it allow you to determine whether a conditional format is currently in effect for a cell.

[patricktoulon]

Bonjour
allons donc !!

cet exemple te donne la couleur de la formatconditions(1).interior.color de la cellule "B5"

Code :

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

1
2
3
4
5
6
Sub test()
couleur=Cells(5, 2).FormatConditions(1).Interior.Color
 
'donc exemple 
 'userform1.label1.backcolor=couleur 
End Sub

il te faudra peut être tester si la cellule a un formatconditions pour éviter les erreurs

[candice27]

Bonjour
allons donc !!

cet exemple te donne la couleur de la formatconditions(1).interior.color de la cellule "B5"

Code :

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

1
2
3
4
5
6
Sub test()
couleur=Cells(5, 2).FormatConditions(1).Interior.Color
 
'donc exemple 
 'userform1.label1.backcolor=couleur 
End Sub

il te faudra peut être tester si la cellule a un formatconditions pour éviter les erreurs

Merci !! ca marche en partie car j'ai de la couleur mais pas la bonne... voilà le message qui s'affiche aussi
" l'indice n'appartient pas à la selection "
en fait j'ai beaucoup de condition de couleur sur le format de mes cellules. Est ce que c'est pas l'indice du "formatconditions(1)" qui beugue ?
Bizarement il affiche la première couleur inscrite dans mes conditions mais qui ne correspond pas à ma cellule... quand je mets rien comme indice ca ne fonctionne pas non plus...

Ca met sur la piste, je vais continuer sur cette voie
merci !!