Lien hypertexe

James007

XLDnaute Barbatruc

• 4 Janvier 2011

• #2

Re : Lien hypertexe

Bonjour,

Tu veux une macro qui génère l'hyperlink ou qui l'exécute ...?
Si la macro doit ouvrir le site ...comment veux tu qu'elle se déclenche ?

A +
🙂

 

Vote positif 0 Vote négatif

E

ericTA

XLDnaute Occasionnel

• 4 Janvier 2011

• #3

Re : Lien hypertexe

Je cherche que l'adresse de la cellule devienne un lien hypertexe (en bleu) et non du texte.
Eric

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 4 Janvier 2011

• #4

Re : Lien hypertexe

ericTA à dit:

Je cherche que l'adresse de la cellule devienne un lien hypertexe (en bleu) et non du texte.
Eric

Cliquez pour agrandir...

OK ...
Avec cette macro, une fois ton curseur placé sur la cellule où se trouve le site :

Code:

Sub AjoutHyper()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Selection.Value, TextToDisplay:=Selection.Value
End Sub

A +
🙂

 

Vote positif 0 Vote négatif

E

ericTA

XLDnaute Occasionnel

• 4 Janvier 2011

• #5

Re : Lien hypertexe

Merci pour cette réponse mais je me suis mal exprimé (désolé).
Voici mon PB, j'ai dans un fichier Excel des cellules qui sont des adresses internet de produit
Seulement dans mon fichier Excel l'adresse et considérée comme du texte et pas comme un lien hypertexte (c'est-à-dire en bleu souligné). Pour rendre ce texte en lien hypertexte, il faut que je le sélectionne et qu'a la fin je rajoute à la main un espace et là il devient en bleu souligné (donc lien hypertexte). Comment faire cela de façon automatique par macro?
Car par la suite je copie mon tableau sous Word avec des références produits et le lien qui va avec, que l'on peut sélectionner pour avoir la fiche du produit mais comme sous Excel, c'est du texte dans Word, c'est pareil.

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 4 Janvier 2011

• #6

Re : Lien hypertexe

Si cela ne te gêne pas ... n'hésites pas à joindre un bout de ton fichier ...

A +
🙂

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 4 Janvier 2011

• #7

Re : Lien hypertexe

Bonsoir,

For Each c In [A1:A3]
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=c.Value, TextToDisplay:=c.Value
Next

JB

 

Vote positif 0 Vote négatif

E

ericTA

XLDnaute Occasionnel

• 4 Janvier 2011

• #8

Re : Lien hypertexe

Bonsoir JB,
quand je lance ta macro j'ai un message "erreur d'exécution 5".
de plus est-ce que je peux changer activesheet par Sheets("Paramétres").Hyperlinks.Add Anchor:=c, Address:=c.Value, TextToDisplay:=c.Value
Help
Eric

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 4 Janvier 2011

• #9

Re : Lien hypertexe

Tu peux maquiller tes données ... l'essentiel est que le bout de fichier reproduise exactement le problème que tu rencontres ...

Je suis certain que la solution n'est affaire que de quelques secondes ... mais c'est toi qui décide ...

A +

 

Vote positif 0 Vote négatif

E

ericTA

XLDnaute Occasionnel

• 4 Janvier 2011

• #10

Re : Lien hypertexe

Voici un fichier qui explique mon PB.
Merci de ton aide
Eric

 

Pièces jointes

• exemple Lien Hypertexte.xls

  17 KB · Affichages: 55
• exemple Lien Hypertexte.xls

  17 KB · Affichages: 58
• exemple Lien Hypertexte.xls

  17 KB · Affichages: 62

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 4 Janvier 2011

• #11

Re : Lien hypertexe

Eric,

Voilà ton fichier test ...

A +
🙂

 

Pièces jointes

• TestHyperlink.xls

  33 KB · Affichages: 54
• TestHyperlink.xls

  33 KB · Affichages: 58
• TestHyperlink.xls

  33 KB · Affichages: 53

Vote positif 0 Vote négatif

E

ericTA

XLDnaute Occasionnel

• 4 Janvier 2011

• #12

Re : Lien hypertexe

Merci pour ta réponse, mais il y a 2 pb
-1er si la cellule ne contient pas de valeur ça plante
- le 2ème est plus complexe car mes valeurs sont dans un autre onglet et là ActiveSheet. ne marche pas
j'ai essayé de remplacer activesheet pas Sheets("Paramétres"). mais ça plante aussi.
merci pour ton aide.

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 4 Janvier 2011

• #13

Re : Lien hypertexe

Re,

N'hésites surtout pas à poster ta macro qui ne fonctionne pas et ...et ... et ...

...l'essentiel est que le bout de fichier reproduise exactement le problème que tu rencontres ...

A +
🙂

 

Dernière édition: 5 Janvier 2011

Vote positif 0 Vote négatif

E

ericTA

XLDnaute Occasionnel

• 5 Janvier 2011

• #14

Re : Lien hypertexe

voici ton fichier modifié pour reproduire mon PB.
Cordialement.
Eric

 

Pièces jointes

• TestHyperlink2.xls

  23.5 KB · Affichages: 64

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 5 Janvier 2011

• #15

Re : Lien hypertexe

Bonjour,

Serions-nous sur le point de conclure ...??? 🙂

A +
🙂

 

Pièces jointes

• TestHyperlink.xls

  35.5 KB · Affichages: 61
• TestHyperlink.xls

  35.5 KB · Affichages: 61
• TestHyperlink.xls

  35.5 KB · Affichages: 63

Vote positif 0 Vote négatif