Boucle avec lien hypertexte

Bonjour,

j'ai un deux cellules (pour simplifier) O5 et O6

dans O5 j'ai un lien hypertexte mais pas dans O6.

J'exécute le code suivant mais on me revoie un bogue :

For i = 5 To 6

Range("O" & i).Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False

Next i

J'ai également essayer ceci en vain :

For i = 5 To 6

Range("O" & i).Select

If IsEmpty("O" & i) Then

Range("K11").Select

Else

Range("L12").Select.Value ("1")

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False

End If

Next i

Si vous pouvez m'aider, je suis certain que le bogue est dû à un détail, mais je n'ai pas trouvé de solution après plusieurs recherches.

Merci,

Bonjour et bienvenu(e)

Teste si il y a un lien

Sub Test()
  For i = 5 To 6
    If Range("O" & i).Hyperlinks.Count > 0 Then
      Range("O" & i).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
    End If
  Next i
End Sub

très fort,

je savais que c'était une question de détail (Range("O" & i).Hyperlinks.Count > 0),

il y a plusieurs petites fonction comme Range("O" & i).Hyperlinks.Count > 0

qui manque 'a mon perfectionnement excel.

un gros merci,