mise en mise en forme conditionnelle pour absence de lien hypertexte

[patouman]

Bonjour à tous,
sur ma base de données, j'ai une colonne réservée à un intitulé renvoyant à un lien hypertexte qui ouvre un fichier pdf.
Je souhaiterais que l'absence de lien hypertexte apparaisse par une couleur de fond.

Peut on faire une mise en forme conditionnelle ? si oui merci de m'éclairer......

 

[Lone-wolf]

Bonjour patouman

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

Macro à adapter.

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

 

[patouman]

Bonjour patouman

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

Macro à adapter.

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

 

[patouman]

Merci beaucoup pour avoir pris le temps de répondre, ta macro est elle adaptée à ma vieille version 2003 ?
je veux bien verser un fichier mais le lien ne fonctionnera plus, mais je vais essayer de m'expliquer :

en A1 date
en B1 N° de facture

sur le n° de facture je mets un lien hypertexte permettant d'ouvrir la facture en pdf dans un autre dossier sur mon ordi.

Mon but étant seulement que le fond de la cellule concernée soit de couleur s'il y a absence de lien ou si le lien n'est plus actif.
Ainsi je pourrai savoir si des factures ont été déplacées ou supprimées, ou encore si j'ai oublié d'y mettre le lien

Merci pour votre intérêt

 

[Lone-wolf]

Re

Tu copie la macro et tu test.

 

[patouman]

Bonjour, mes excuses pour l'important délai pour ma réponse mais des obligations professionnelles m'ont largement retardé.
J'ai bien testé la macro, mais elle ne fonctionne pas sur 2003.
quelqu'un aurait il une autre idée ?