XL 2016 mise en forme conditionnelle et lien hypertexte

themyse1

XLDnaute Nouveau
Bonjour,

je viens solliciter votre aide parce que que j'ai beau le prendre dans tous les sens je n'arrive pas a trouver de solution.
voila j'aimerais qu'en fonction de ma colonne "Locataires" de l'onglet "Liste locataire" le numéro de parking dans l'onglet " Plan parking" se mette en vert s'il est vacant et rouge s'il est occupé.


Merci de votre Aide
 

Pièces jointes

  • Parking Blaise Pascal1.xlsm
    48.9 KB · Affichages: 25

job75

XLDnaute Barbatruc
Bonsoir themyse1, JHA,

A placer dans le code de la feuille "Plan parking" (clic droit sur l'onglet et Visualiser le code) :
Code:
Private Sub Worksheet_Activate()
Dim h As Hyperlink
For Each h In Hyperlinks
    h.Parent.Font.ColorIndex = IIf(Evaluate(h.SubAddress) = "", 14, 3) 'vert ou rouge
Next
End Sub
La macro se déclenche quand on active la feuille.

A+
 

Pièces jointes

  • Parking Blaise Pascal(1).xlsm
    58.3 KB · Affichages: 9

job75

XLDnaute Barbatruc
Avec les couleurs de fond :
Code:
Private Sub Worksheet_Activate()
Dim h As Hyperlink
For Each h In Hyperlinks
    h.Parent.Interior.ColorIndex = IIf(Evaluate(h.SubAddress) = "", 20, 44) 'bleu clair ou orange
Next
End Sub
 

Pièces jointes

  • Parking Blaise Pascal(2).xlsm
    58.5 KB · Affichages: 8

Statistiques des forums

Discussions
311 709
Messages
2 081 754
Membres
101 812
dernier inscrit
trufu