Mise en forme conditionnelle suivant une liste annexe

fred70_7 · 21 Décembre 2009

Bonjour à toutes et à tous,
J'ai un problème pour mettre en forme automatiquement mon tableau.
Je souhaite créer un planning de réservation des salles (Feuille Janvier) et pour donner des repères visuelles, je souhaite affecter un code couleur en fonction du service qui retient la salle (Onglet data).
J'ai donc consulté le forum pour regarder ce que la collectivité a proposé et trouvé des choses intéressantes que je duplique mais voila, cela ne fonctionne pas...

Sur mon exemple, en annexe, je peux requêter en fonction d'une liste mais cela ne récupère par la couleur de fond

Par avance merci pour votre aide
Frédéric

BOISGONTIER · 21 Décembre 2009

Re : Mise en forme conditionnelle suivant une liste annexe

Bonjour,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([D5:AA66], Target) Is Nothing Then
    On Error Resume Next
    Target.Interior.ColorIndex = [liste].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

JB
Formation Excel VBA JB

fred70_7 · 21 Décembre 2009

Re : Mise en forme conditionnelle suivant une liste annexe

Merci Beaucoup, c'est parfait

Bonnes fêtes de fin d'année
Frédéric

Mise en forme conditionnelle suivant une liste annexe

fred70_7

XLDnaute Nouveau

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

fred70_7

XLDnaute Nouveau

Discussions similaires