Discussion :

[LizLisonLisette]

Bonjour,

J'ai un fichier Excel avec deux onglets :
- La base de donnée avec toutes les infos (la première colonne commence par un identifiant unique)
- Le tableau croisé dynamique (éventuellement trié, filtré etc). Parmi les champs présents : le fameux identifiant unique

Je cherche une astuce VBA pour que quand je/l'utilisateur clique sur l'identifiant unique du TCD, ça m'envoie directement à la bonne ligne dans mon onglet BDD.
Dans l'exemple en PJ ce sont les 4 chiffres séparés par des points.
Test.xlsx

Autrement dit trouver un moyen par VBA de (par exemple):
- copier/mémoriser l'identifiant unique sur lequel j'ai "double cliqué"
- aller le chercher dans l'onglet BDD (ctrl+F?)

ça pourrait peut-être aussi être fait en utilisant des liens hypertextes mais ça me parais plus complexe comme solution...?

Quelqu'un aurait une idée pour m'aider à réaliser ça?
La commande double-clic OK, mais la "mémorisation" puis "recherche", comment l'écrire?

Merci pour vos conseils

[jerome.vaussenat]

Salut,

voici ce que je te propose.
Tu mets cette première macro dans un module standard :

Code :

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

1
2
3
4
5
6
Sub trouve()
    Dim quoi As Range
    Set quoi = ActiveCell
    Sheets(1).Select
    Cells.Find(quoi.Value).Activate
End Sub

En gros, c'est le code qui mémorise et lance la recherche.
Ce code est lancé automatiquement par celui ci dessous qui doit impérativement être placé dans le module spécifique de la feuille TCD.

Code :

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

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    trouve
End Sub

pour en savoir plus sur les proc événementielles http://silkyroad.developpez.com/VBA/EvenementsFeuille/ comme te l'a dit Marc L

[LizLisonLisette]

Merci, compris.
Et ça fonctionne parfaitement avec le fichier exemple

Par contre dans mon vrai fichier, la recherche ne fonctionne pas.
Mais je me rend compte que ça ne fonctionne pas non plus en manuel (Ctrl+F)...

En effet ma cellule identifiant est en réalité une formule de concaténation : =B118&"."&C118&"."&D118&"."&E118Du coup qui est à l'intérieur de cette cellule n'est pas "reconnu"...
Alors que si je "copie valeur" le résultat de la formule la recherche marche.

Un idée pour que cela fonctionne même avec la formule?

[jurassic pork]

hello,
juste une variante à l'excellent code de jérome , pour ne chercher que dans la première colonne de la feuille BDD :

Code :

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

 Columns(1).Find(quoi.Value).Activate

Ami calmant, J.P

[LizLisonLisette]

Code :

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

Columns(1).Find(id.Value).Activate

...ça restreint le champ de recherche bonne suggestion.

... mais ça ne résous pas mon problème de concaténation

[LizLisonLisette]

Je crois qu'il faut que j'utilise le

Code :

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

LookIn:=xlValues

mais je ne sais pas comment l'intégrer à mon code

[LizLisonLisette]

ça y est !
J'ai !

Code :

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

    Columns(1).Find(id.Value, LookIn:=xlValues).Activate

Merci