Couleur userform suivant la couleur d'une cellule

[donpopo]

Bonsoir le forum,
J'essaie de colorer un userform de la même couleur q'une cellule de la feuille sélectionnée. Je m'explique:
j'ai 3 feuilles de calcul de présentation identique. Chaque cellule de titre (B1) à une couleur différente par feuille.
Lorsque j'appelle le userform commun à ces trois feuilles, je souhaite que celui-ci soit coloré dans la même gamme de couleur que la cellule B1 de la feuille sélectionnée.
Ex.: lorsque je sélectionne la feuille 1 (rouge en B1), le formulaire doit s'ouvrir en rouge (pas spécialement le même rouge).
J'espère avoir été assez clair.
Merci de votre aide,
donpopo

 

[Lone-wolf]

Bonsoir donpopo, le Forum

Private Sub UserForm_Activate()
Me.BackColor = ActiveSheet.Range("b1").Interior.Color
End Sub

Ou, à mettre dans le module Thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
UserForm1.Show
UserForm1.BackColor = ActiveSheet.Range("b1").Interior.Color
End Sub

 

[donpopo]

Bonjour lone wolf et le forum,
Merci pour cette réponse rapide.
C’est exactement ce que je cherchais. Je ne connaissais pas interior.color.