Lien Alpha

Bonjour

Je recherche un code VBA lien alpha.

j'ai dans une feuille une liste alpha de "B6 a B500"et j'aimerai me rendre par lien

Je joint mon fichier qui seras plus explicite

Je vous remercie de votre aide

Cordialement

Max

Max18 a écrit :

Bonjour

Je recherche un code VBA lien alpha.

j'ai dans une feuille une liste alpha de "B6 a B500"et j'aimerais me rendre par lien

Je joins mon fichier qui sera plus explicite

Je vous remercie de votre aide

Cordialement

Max

bonjour,

désolé je ne comprends pas ce que tu veux dire par "j'aimerais me rendre par lien" ?

et ton fichier n'est pas beaucoup plus explicite.

Re,

C'est à dire que j'ai dans la même feuille en "F2:AE2" une liste alpha A,B,C,D, ect..... et a l'aide de cette liste j'aimerai me rendre a la lettre équivalente qui eux se trouve en "B6 a B500"

J’espère que je me suis bien expliquer

@+

Max

Max18 a écrit :

Re,

C'est à dire que j'ai dans la même feuille en "F2:AE2" une liste alpha A,B,C,D, ect..... et à l'aide de cette liste j'aimerais me rendre à la lettre équivalente qui se trouve en "B6 à B500"

J’espère que je me suis bien expliqué

@+

Max

bonsoir,

voici, une macro qui crée les liens. à insérer dans un module VBA. ALT-F11, Insérer module, puis coller le code.

Sub creerlien()

With Worksheets("feuil1")
derlig = .Range("B" & .Rows.Count).End(xlUp).Row
For i = 1 To 26
 r = .Range("B5:B" & derlig).Find(.Cells(2, 5 + i)).Row
    .Cells(2, 5 + i).Hyperlinks.Add Anchor:=.Cells(2, 5 + i), Address:="", SubAddress:="Feuil1!B" & r
 Next i
End With
End Sub

Bonjour h2so4

Je te remercie beaucoup c'est NICKEL

Je te souhaite une bonne après-midi

@+

Max