Activer liens hypertextes plusieurs cellules

Résolu/Fermé

BM - 22 août 2013 à 19:09
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 22 août 2013 à 23:21

Bonjour,

J'aimerais activer des liens hypertextes de cellules contenant déjà des adresses de sites web. J'en ai une centaine donc j'aimerais ne pas devoir le faire manuellement.

Sur ce poste j'ai trouvé comment faire l'opération contraire, mais ne connait pas le code qui pourrait m'aider.

Merci pour votre aide :)

A voir également:

Activer lien hypertexte excel
Liste déroulante excel - Guide
Lien url - Guide
Verifier un lien - Guide
Formule excel - Guide
Créer un lien pour partager des photos - Guide

4 réponses

Réponse 1 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
22 août 2013 à 21:11

Effectivement, tu veux transformer les adresses des sites en hyperliens,
adapte ce code à ton besoin :

Sub test()
Dim c As Range

  For Each c In Range("A1:A4")
    c.Hyperlinks.Add c, c.Value
  Next c

End Sub

Réponse 2 / 4

BM
22 août 2013 à 20:51

Merci beaucoup,

Toutefois je pense que je me suis mal exprimé. Par "activer", je veux dire:

transformer toutes les cellules où sont écrites une adresse de site web (de type www.siteweb.com) mais qui lorsqu'on clique dessus rien ne se passe..
--> en cellules qui possèdent un lien hpertexte amenant au site web dont l'adresse est écrite dans la cellule.

Merci :)

Réponse 3 / 4

BM
22 août 2013 à 21:20

Cher Patrice, je te remercie, cela fonctionne parfaitemment!

J'ai toujours été frustré par VBA car la programmation est un sujet que je maîtrise autant que la physique quantique (càd absolument pas), et que malgré un cours d'informatique là dessus à l'unif il y a trois ans, je ne sais toujours pas écrire un code! Néanmoins, les bases insoupconnées que j'ai combinées avec ton aide précieuse m'a permis d'atteindre mon but, MERCI!

Brice

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
22 août 2013 à 23:21

De rien, au plaisir de te relire sur le Forum

Cordialement
Patrice

Réponse 4 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
22 août 2013 à 20:07

Bonjour

En VBA :

Sub test()
Dim h As Hyperlink
 For Each h In ActiveSheet.Hyperlinks
   h.Follow
 Next h
End Sub

Newsletters