Bonjour à tous!

Je demande votre aide après 2h d’essais infructueux..

Voila j'explique ce que je cherche à faire.

J'ai une feuille avec un certain nombre de colonne, et dans la colonne A, j'ai des lien, mais qui ne sont pas en lien hypertexte. On voit juste le chemin, mais comme un texte banale.

Ce que je voudrais faire c'est faire que toute la colonne en partant de "A2", jusqu’à la dernière cellule rempli de la colonne, soit mise en lien hypertexte.

Je sais comment mettre en lien hypertexte ma sélection, mais je n'arrive pas a m’arrêter a la dernière cellule, ce qui fait planter la macro, car il s’arrête en 65536, or y' a pas de texte, et ça plante...

ça peut paraitre tout bête...mais la je bloque.

Merci.

Indice Lien Hypertexte:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Range("A2").Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:=Selection

EDIT:
Après une heure de plus j'ai trouvé la solution^^
La voici pour ceux qui pourrait avoir le même problème.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim ligne As Integer
For ligne = 2 To Range("D65536").End(xlUp).Row + 1
        Range("A" & ligne).Select
        Selection.Hyperlinks.Add Anchor:=Selection, Address:=Selection
Next
J'y ai repensé en aidant un problème de ce forum concernant la sélection de toute une ligne sauf la première colonne.

Merci.