Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Couleur userform suivant la couleur d'une cellule

donpopo

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Réponses
31
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…