recherche et tri

[yvon07]

bonjour a tous

mon probléme:

je dispose d'un fichier comme celui-ci, avec une dizaine de feuilles
la feuille pot est un résumer des dix autre feuilles
j'aimerai pouvoir faire un tri à partir de cette dernière
en cliquant sur les case A9 par exemple (sur ce que je cherche dans la colonne A)
soit dans l'exemple (aze;qqd:sdf ou qqc)
clic qui me basculera sur la feuille concerné
et me fera un trie de ce que je cherche

en esperant que vous pourrai ,m'aider.
je vous remercie
Salutations

 

[Dranreb]

Re : recherche et tri

Bonsoir.
Dans le module de la feuille Pot:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Range
If Target.HasFormula Then
   On Error Resume Next
   Set R = Application.Range(Mid$(Target.Formula, 2))
   If Err Then Exit Sub
   Application.Goto R
   End If
End Sub

À+

 

[yvon07]

Re : recherche et tri

Bonjour
Merci pour la réponse
Ceci et une des choses que je recherche cela me renvois a la bonne page,
Mais j'aimerai qu’un tri soit effectué dans la feuille, pour ne laisser apparaitre,
Que les données correspondantes à ce que je recherche.
en esperant etre clair
A+

 

[Dranreb]

Re : recherche et tri

Bonjour.
Ah, oui, pas tout compris du premier coup, moi. Après le Application.Goto R, rajoutez:

   If Target.Column = 1 Then ActiveSheet.[A2:E2].CurrentRegion.AutoFilter Field:=4, Criteria1:=Target.Value

À+

 

[yvon07]

Re : recherche et tri

bonjour
et mille merci a toi Dranred
s'est exactement ce que je voulai
bonne journée et bon week end
merci

 

[yvon07]

Re : recherche et tri

par contre une fois dans mon fichier original,ca ne marche pas

 

[Dranreb]

Re : recherche et tri

Une fois vérifié que l'adresse de la plage filtrées est la même ainsi que le critère, corrigé s'il y a lieu, si le problème persiste, mettre un point d'arrêt, dérouler pas à pas, mettre des espions.

 

[yvon07]

Re : recherche et tri

bonsoir
tout est ok,
encor merci pour ton aide
Salutations