[VBA Excel] Lien vers une page précise

Bonjour,

J'ai un classeur de base de donnée de voitures, composé d'une feuille récapitulant toutes les voitures et d'une feuille par voiture avec les détails.
Pour gérer les voitures, j'ai un userform qui a pour fonction d'ajouter, modifier et supprimer les voitures une a une. Ca fonctionne tres bien.

Après avoir rempli le formulaire pour ajouter une voiture, on peut cliquer sur un bouton (ayant pour nom bnNouvelleFeuilleVoiture) qui ajoute une nouvelle feuille ayant pour nom celui de la voiture c'est à dire la valeur de ce qu'il y a dans une textbox du formulaire (ici la textbox s'appelle txNomVoiture)

Voici le code du bouton :

Code:

---

1 2 3

Private Sub bnNouvelleFeuilleVoiture_Click() Sheets.Add after:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = txNomVoiture.Value

---

A cela il doit se créér un lien entre la Voiture sur le tableau principal Récapitulatif et la feuille des détails de la fameuse voiture. Voici la suite de la macro :

Code:

---

1 2 3 4 5 6

NomRéférence = txNomVoiture.Value Sheets("Récap").Select Range("????????").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ NomRéférence & "!B7", TextToDisplay:=NomRéférence

---

Question /// Que mettre en ligne 3 pour dire à la macro tu sélectionne LA cellule du nom de la voiture dans la feuille récap pour faire le lien?

D'avance merci

inspire toi de ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

NomRéférence = txNomVoiture.Value Dim r As Range Set r = Sheets("Récap").Range("b:b").Find(What:=NomRéférence, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False) If r Is Nothing Then MsgBox NomRéférence & " introuvable !!" Exit Sub End If r.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:= _ NomRéférence & "!B7", TextToDisplay:=NomRéférence   .

---

Merci c'est nikel !!!