Discussion :

[Viper7]

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 :

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

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 :

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

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

[SfJ5Rpw8]

inspire toi de ce code :

Code :

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

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
 
.

[Viper7]

Merci c'est nikel !!!