mise en mise en forme conditionnelle pour absence de lien hypertexte

Lone-wolf à dit:

Bonjour patouman

Le fichier il est où?? 🙄. Moi j'aurais une proposition par VBA.

Macro à adapter.

VB:

Private Sub Worksheet_Change(ByVal R As Range)
Dim k$, Vide

    Application.EnableEvents = False

    If Intersect(R, Columns("B:B")) Is Nothing And R.Count > 1 Then Exit Sub

    On Error Resume Next
    k = R.Hyperlinks(1).TextToDisplay
    If k <> Vide Then
        R.Interior.Color = xlNone
    Else
        R.Interior.Color = vbGreen
    End If
    k = Vide
    Application.EnableEvents = True

End Sub

Cliquez pour agrandir...