backcolor sur userform

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:

---

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:

---

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

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

Citation:

---

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.

---

Bonjour
allons donc !!

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

Code:

---

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

Citation:

---

Envoyé par patricktoulon

Bonjour
allons donc !!

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

Code:

---

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 !!