recherche et tri

Dranreb

XLDnaute Barbatruc

• 3 Septembre 2011

• #2

Re : recherche et tri

Bonsoir.
Dans le module de la feuille Pot:

VB:

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

À+

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 3 Septembre 2011

• #3

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+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Septembre 2011

• #4

Re : recherche et tri

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

VB:

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

À+

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 3 Septembre 2011

• #5

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

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 3 Septembre 2011

• #6

Re : recherche et tri

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Septembre 2011

• #7

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.

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 3 Septembre 2011

• #8

Re : recherche et tri

bonsoir
tout est ok,
encor merci pour ton aide
Salutations

 

Vote positif 0 Vote négatif