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
 

Fichiers joints

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+
 

Fichiers joints

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
 

Fichiers joints

themyse1

XLDnaute Nouveau
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+
Merci
 

Discussions similaires


Haut Bas