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

Résolu
nasut0 -  
via55 Messages postés 14512 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

A voir également:

2 réponses

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
0
nasut0
 
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
0
nasut09 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746 > nasut09 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
Poste ton fichier sur monpartage.fr, fais créer un lien que tu copies et reviens coller ici, je regarderai ce qui coince
0
nasut09 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   > via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746 > nasut09 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
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/
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Re,

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

ALT+F11 pour voir le code

Cdlmnt
Via
0
nasut09 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
Je te remercie !
0