Rechercher une cellule d'une feuille "A" dans une feuille "B"
Résolu
nasut0
-
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans le cadre de projet d'entreprise, je souhaite mettre un place un tableau de ratio.
Pour le moment il se décompose en deux feuilles, une feuille "Affaires" et une feuille "Tableau de Surface".
Dans la feuille Affaire je note toutes nos affaires passés et dans la feuille Tableau de Surface, des surfaces liées à l'affaire.
Ce que je souhaiterai faire, c'est qu'en cliquant sur le nom de l'affaire dans la feuille Affaire (par un double clic de préférence) je soit redirigé vers la feuille Tableau de Surface, sur la ligne de l'affaire en question
Cordialement,
RG
Dans le cadre de projet d'entreprise, je souhaite mettre un place un tableau de ratio.
Pour le moment il se décompose en deux feuilles, une feuille "Affaires" et une feuille "Tableau de Surface".
Dans la feuille Affaire je note toutes nos affaires passés et dans la feuille Tableau de Surface, des surfaces liées à l'affaire.
Ce que je souhaiterai faire, c'est qu'en cliquant sur le nom de l'affaire dans la feuille Affaire (par un double clic de préférence) je soit redirigé vers la feuille Tableau de Surface, sur la ligne de l'affaire en question
Cordialement,
RG
2 réponses
-
Bonjour nasut
1) il faut une clé commune aux 2 feuilles, nom de l'affaire, n° d'ordre ..
2) Ensuite il est simple par macro de se positionner en bonne ligne en feuille 2 lors d'un double clic en feuille 1
3) pour établir la macro il faut connaitre la structure de ton classeur : poste un exemple de ton classeur sur cjoint.com ou monpartage.fr, fais créer un lien que tu copies et reviens coller ici
Cdlmnt
Via
-
-
J'ai un nouveau problème avec ton code,
Je l'ai copié sur une autre feuille pour faire la même manip, mais n'importe où où je clique, j'ai un
"Erreur d’exécution '13'
Incompatibilité de type"
j'ai gardé le même code, seulement changé le nom des feuilles et des colonnes :
Mon code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B")) Is Nothing And Target <> "" Then
On Error GoTo erreur
Dim Ligne As Long
With Sheets("3. DPGF (2)")
Ligne = .Columns(2).Find(Target, , , , xlByColumns, xlPrevious).Row
.Activate
.Range("B" & Ligne).Select
End With
End If
Exit Sub
erreur:
MsgBox "Ce nom n'est pas répertorié"
End Sub
-
-
Re,
Ton fichier avec la macro
https://mon-partage.fr/f/AKowxAEz/
ALT+F11 pour voir le code
Cdlmnt
Via
