Discussion :

[coyotl73]

Bonjour a tous,

Voila mon problème:
Dans une colonne A, je crée via VBA un hyperlien basé sur le contenu des cellules de cette colonne (voir extrait de code ci-après)
Je voudrais alors créer ce même lien dans la cellule voisine de la colonne B
Ma feuille se présente ainsi:

Colonne A | Colonne B
101 blabla
102 blablu
103 blibla

Le code:

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub hyperlien()
Dim cel As Range
Dim mon_lien As String
For Each cel In Range([A2], [A657].End(xlUp))
mon_lien = cel.Value & "suite_de_mon_lien"
ActiveSheet.Hyperlinks.Add cel, mon_lien
Next c
End Sub

Voila, en esperant avoir été clair et vous remerciant d'avance pour votre aide !

[Invité]

Bonjour,

Essayez :

Code :

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

ActiveSheet.Hyperlinks.Add cel.offset(0,1), mon_lien

Cordialement.

[coyotl73]

Merci beaucoup, cela fonctionne parfaitement !

Cordialement

coyotl73