Discussion :

[pheonix00fr]

Bonjour, je voudrais mettre une fonction qui contrôle les liens hypertexte de mon document.
J'ai une colonne " F4 à F..." qui contient des liens qui pointe sur un lecteur réseaux. Je voudrais tester ses liens et selon le résultat colorer les cellules.
Je ne suis pas très doué en VBA, j'ai trouvé cette macro qui correspond à ce que je cherche mais il y a une erreur "For sans Next", je comprends bien le problème mais je ne sais pas le régler, si quelqu'un peut m'aider?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub control()
 
Dim sht As Worksheet, rng As Range
Set sht = ThisWorkbook.Worksheets("Feuil1")
For Each rng In sht.Range("F4:F100")
    With rng
         If Len(.Value) Then
            If (Dir(.Value) <> "") Then
                .Interior.Color = vbGreen
            Else: .Interior.Color = vbRed
            End If
         End If
    End With
End Sub

[Kimy_Ire]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub control()
 
Dim sht As Worksheet, rng As Range
Set sht = ThisWorkbook.Worksheets("Feuil1")
For Each rng In sht.Range("F4:F100")
    With rng
         If Len(.Value) Then
            If (Dir(.Value) <> "") Then
                .Interior.Color = vbGreen
            Else: .Interior.Color = vbRed
            End If
         End If
    End With
Next rng
End Sub

[pheonix00fr]

Merci, il n'y a plus d'erreur mais cela ne fonctionne pas correctement, toutes les cellules contenant des liens sont rouge même celle avec un lien valide ????

[pheonix00fr]

J'ai un peu avancé, les liens sont crée par une autre macro et elle remplaçait le texte du lien par "Lien direct", en laissant le lien cela fonctionne mais il y a une erreur d’exécution 52 "nom ou numéro de fichier incorrect" et au débogage c'est la ligne " If (Dir(.Value) <> "") Then " qui est pointé, si vous avez une idée?

[pheonix00fr]

Désolé je me suis précipité, c'est une erreur dans la création du lien, c'est parfait, merci.