XL 2016 mise en forme conditionnelle et lien hypertexte

[themyse1]

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

 

[JHA]

Bonjour à tous,

Un début de piste, je n'ai pas fait les motos.
Pour la colonne "D" de l'onglet "Liste locataires", j'ai mis un format de nombre personnalisé.

JHA

 

[job75]

Bonsoir themyse1, JHA,

A placer dans le code de la feuille "Plan parking" (clic droit sur l'onglet et Visualiser le 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+

 

[JHA]

Bonjour à tous, Job75😉

Avec une colonne supplémentaire.

JHA

 

[job75]

Avec les couleurs de fond :

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

 

[themyse1]

Bonjour à tous,

Un début de piste, je n'ai pas fait les motos.
Pour la colonne "D" de l'onglet "Liste locataires", j'ai mis un format de nombre personnalisé.

JHA

Merci

 

[themyse1]

Merci à tous vous êtes géniaux...

 

[themyse1]

Bonsoir themyse1, JHA,

A placer dans le code de la feuille "Plan parking" (clic droit sur l'onglet et Visualiser le 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

 

[themyse1]

Avec les couleurs de fond :

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

Merci