XL 2016 mise en forme conditionnelle et lien hypertexte

JHA à dit:

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

Cliquez pour agrandir...

job75 à dit:

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+

Cliquez pour agrandir...

job75 à dit:

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

Cliquez pour agrandir...