Discussion :

[Miss Jenny]

Bonjour à tous !

Comme vous pouvez le constater je suis nouvelle sur le forum !

Je vous explique mon soucis...

J'ai un tableau sur une feuille nommée Tableau et une fiche à remplir sur une feuille nommée Fiche, jusque la ça va .

Dans ce tableau j'ai 3 colonnes en particulier qui m'interresses les colonnes Immatriculation, Entretien à réaliser et une colonne Fiches.

Je souhaite que lorsque l'on clique sur une cellule de la colone fiche cela ouvre la feuille fiche (qui sera masqué) et pré-remplisse les cellules Immatriculation et Entretien.

J'arrive au résultat espéré avec une macro :

Code :

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

1
2
3
4
5
6
7
8
Sub Visualiser()
 
Sheets("Fiche").Visible = True
Sheets("Fiche").Select
Range("B15").Value = Sheets("Tableau").Range("B2")
Range("B23:D26").Value = Sheets("Tableau").Range("D2")
 
End Sub

Le problème c'est que avec cette macro il me faut créer un bouton pour chaque ligne et je veux juste pouvoir tirer ma colonne fiches car le tableau sera mise à jour régulièrement et il n'y aura pas toujours la même quantité de lignes.

Je vous joint le fichier pour plus de compréhension.

Merci par avance pour le temps que vous avez accordé à me lire et je m'excuse pour les fautes d'orthographes / conjugaisons.

Jennifer.

[Menhir]

Il y a beaucoup plus simple : crée un lien hypertexte.
Tu sélectionnes la cellule souhaitée.
Clic droit > Lien hypertexte
A gauche, tu sélectionnes "Emplacement dans ce document"
Tu indiques quelle est la feuille de destination du lien et, éventuellement, la cellule à sélectionner dans cette feuille de destination.
Tu valides et c'est fini.

Inutile de réinventer ce qui existe.

[Miss Jenny]

Bonjour,

C'est déjà fait cependant le lien hypertexte ne me permet pas de récupérer les données de la feuille "tableau" pour renseigner les champs de la feuille "fiche" en focntion de la ligne où est situé la cellule qui doit faire le changement de feuille .

Je ne veux pas juste faire un lien vers cette feuille mais la "démasquer" et renseigner les champs en fonction de la feuille "Tableau" .

Ce que fait ma macro mais seulement en appuyant sur un bouton et pour une seule ligne mais comme je l'ai expliqué dans mon post la quantité de ligne est variable d'un mois à l'autre.

Y'aurait-il une autre solution ???

Merci, Jennifer.

[joe.levrai]

Bonjour,

et en utilisant l'évènement FollowHyperlink ?

colle ça dans le module de ta feuille où y'a tes données et regarde si ça correspond (le lien hypertexte de ton fichier est mal paramétré ... mais ça n'empêche pas mon code de fonctionner)

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
 
With Sheets("Fiche")
    .Visible = True
    .Activate
    .Range("B15").Value = Target.Range.Offset(0, -7).Value
    .Range("B23:D26").Value = Target.Range.Offset(0, -5).Value
End With
 
End Sub

Je te conseille plutôt de ne pas utiliser d'hyperliens, tu écris dans chaque cellule "ALLER A LA FICHE" et tu mets cette procédure à la place de la précédente :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
' je pars du principe qu'il n'y aura jamais de "ALLER A LA FICHE" en dehors de la colonne I !
If Target.Column <> 9 Or Target.Value <> "ALLER A LA FICHE" Then Exit Sub
 
With Sheets("Fiche")
    .Visible = True
    .Activate
    .Range("B15").Value = Target.Offset(0, -7).Value
    .Range("B23:D26").Value = Target.Offset(0, -5).Value
End With
 
Cancel = True
 
End Sub

en faisant simplement un double clic sur n'importe quelle cellule de la colonne I (et dès lors qu'il est écrit "ALLER A LA FICHE"), ça effectue ton action

[Miss Jenny]

Re-Bonjour !

C'est super !!!
Merci beaucoup c'est exactement ce que je voulais !!!!!
Je débute à peine sur excel j'ai cherché un bon moment sans y arrivé !
En tout cas encore merci Joe !

Je clos le post, bonne soirée Jennifer.