RESOLU - atteindre page web quand clic sur cellule

[Usine à gaz]

Je crois avoir trouvé "ma bêtise" :

If .Cells(Ligne, 1) <> "" Then .Hyperlinks.Add .Cells(Ligne, 1), .Cells(Ligne, 1000)

Il fallait écrire :

If .Cells(Ligne, 1) <> "" Then .Hyperlinks.Add .Cells(Ligne, 1), .Cells(Ligne, 1)


Bonjour à toutes et à toutes,

Je reviens sur mon soucis de liens à rendre "cliquables".

Camachepas avait eu la gentillesse de me donner une solution qui a fonctionné pendant un certain temps et j'ai du faire des modifications intempestives et ..... "camarcheplus".

Voici ma macro dans Module 1 (1ère macro)

Sub liens()
With ActiveSheet
    For Ligne = 4 To .Cells(.Rows.Count, 1).End(xlUp).Row
        If .Cells(Ligne, 1) <> "" Then .Hyperlinks.Add .Cells(Ligne, 1), .Cells(Ligne, 1000)
    Next Ligne
End With
End Sub

J'ai mis dans "le bidule" de la feuille à traiter un "Call liens" afin que chaque fois que l'on clic sur la feuille, la macro soit exécutée.


J'ai pensé un moment que le soucis provenait de la feuille en mode protégé mais protégée ou non, cela ne change rien.

Mais je n'ai pas trouvé le moyen de la rendre à nouveau opérationnelle.

Pourriez-vous m'aider ? je joins le classeur test concerné dans le premier post car je ne sais pas faire sur le présent post LOL.

Avec mes remerciements, je vous souhaite à toutes et à tous un très bon dimanche.
Amicalement,
Lionel,