Discussion :

[ogho4326]

Pour créer un lien hypertexte dans une macro, j'ai utilisé le code renvoyé par excel lorsque je l'ai enregistré manuellement :

Code :

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

1
2
3
4
Range("J9:L10").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'Fiche '!J5", ScreenTip:="voir les tarifs", TextToDisplay:= _
        "voir les tarifs"

Mais à l'exécution ça bogue : La méthode Range de l'objet global a échoué.
Qui peut m'éclairer sur ce point ?

[fred65200]

bonsoir,
ton onglet est bien nommé "Fiche ", avec un espace?
@+

[ogho4326]

Hélas, oui.
Ca ne vient donc pas de là, dommage

[fred65200]

bonjour,
je crois que tu peux obtenir une erreur s'il y a déjà un lien hypertexte dans ta cellule, tu dois soit le supprimer avant, soit le modifier.
cordialement

[ogho4326]

Il y en avait un que j'ai supprimé ainsi :

Code :

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

1
2
3
    Range("J9:L10").Select
    Selection.Hyperlinks.Delete
    Selection.ClearContents

Et malgré tout ...

[La Zélie]

suite à ton problème, je pose une question: est-il possible de créer un lien sur 2 cellules(J9:L10)?

Ton range est située sur 2 cellules!

[ogho4326]

Il s'agissait d'une cellule fusionée.
J'ai essayé avec Range("J9") seulement, et c'est toujours pareil !

[fred65200]

bonjour,

pour moi, le code suivant fonctionne, que J9 soit fusionnée ou non

Code :

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

1
2
    ActiveSheet.Hyperlinks.Add Anchor:=Range("J9"), Address:="", SubAddress:= _
        "Feuil1!A1", TextToDisplay:="Feuil1!A1"

@+