Discussion :

[AZERTY2006]

Bonjour à tous.

J'aurai besoin d'aide pour établir une macro qui ferait la choses suivante :
- dans la colonne A, j'ai du texte avec des liens hypertextextes qui ne sont plus les bons
- dans la colonne B j'ai en texte les nouveaux liens à mettre à la place de ceux qui sont dans la colonne A

Comment faire ?

Merci d'avance.

[SilkyRoad]

bonjour

tu peux tester

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Cell As Range
'Dim Texte As String
 
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
   'option pour conserver le meme texte qui s'affiche dans la celule
   'Texte = Cell.Hyperlinks(1).TextToDisplay
 
   ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:=Cell.Offset(0, 1)
   'Cell.Hyperlinks(1).TextToDisplay = Texte
Next Cell

michel