Lien hypertexte vers onglet et valeur de cellule

Bonjour,

J'ai créé une macro qui recherche dans un tableau une valeur (ici on prendra 2 en exemple)

' x = 2

Sheets("affectation  outillage ").Select
 Range("a1").Select
  Cells.Find(what:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
        , SearchFormat:=False).Activate

La recherche se fait bien et active la cellule ayant la valeur 2

Je veux ensuite que la cellule est un lien hypertexte vers la feuille ayant le nom 2

Mais après le code suivant ne fonctionne pas.

 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
x

J'ai essaye avec subaddress:= cell.value/range.value,...

Mais rien ne fonctionne, il ne me reste que ça pour finaliser ma macro.

Une petite idée?

Merci !

up

(précision le "x" est une variable dans une boucle

Bonjour

Peut-être qu'en joignant le fichier...

Cordialement

bonjour,

essayer avec cela, car je crois qu'il faut une cellule à la suite du nom de la feuille, non ?

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    x & "!A1"

@ bientôt

LouReeD