Rechercher une cellule d'une feuille "A" dans une feuille "B&quot

Résolu/Fermé
Signaler
-
Messages postés
13225
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2021
-
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

2 réponses

Messages postés
13225
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2021
2 294
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
http://www.cjoint.com/c/GJylx6NCcIQ

Voici mon excel

Donc en résumé :

Je double clic sur le nom ALSEI dans la feuille "Affaires" et ca me renvoi à la ligne 2, cellule ALSEI dans la feuille "Tableau de surface
Messages postés
26
Date d'inscription
mardi 24 octobre 2017
Statut
Membre
Dernière intervention
10 janvier 2018

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
Messages postés
13225
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2021
2 294 >
Messages postés
26
Date d'inscription
mardi 24 octobre 2017
Statut
Membre
Dernière intervention
10 janvier 2018

Poste ton fichier sur monpartage.fr, fais créer un lien que tu copies et reviens coller ici, je regarderai ce qui coince
Messages postés
26
Date d'inscription
mardi 24 octobre 2017
Statut
Membre
Dernière intervention
10 janvier 2018
>
Messages postés
13225
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2021

http://www.cjoint.com/c/GJAkyfgQ6eQ

En gros, dans la feuille "Tableau des surfaces", clique sur une case rempli, n'importe laquelle, tu vas comprendre, une case de total de surface particulièrement
Messages postés
13225
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2021
2 294 >
Messages postés
26
Date d'inscription
mardi 24 octobre 2017
Statut
Membre
Dernière intervention
10 janvier 2018

Rien compris ! ta macro est correcte mais ne trouve pas les valeurs dans la colonne 2
Après avoir tout essayé j'ai finalement recrée une feuille où j'ai copié les éléments de celle qui occasionnait le bug et que j'ai supprimé ensuite
Et la miracle ça fonctionne !
https://mon-partage.fr/f/SPc5JwUp/
Messages postés
13225
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2021
2 294
Re,

Ton fichier avec la macro
https://mon-partage.fr/f/AKowxAEz/

ALT+F11 pour voir le code

Cdlmnt
Via
Messages postés
26
Date d'inscription
mardi 24 octobre 2017
Statut
Membre
Dernière intervention
10 janvier 2018

Je te remercie !