Extraction des données suivant 1 critére

Re : Extraction des données suivant 1 critére

Bonjour,

Pourrais tu preciser ?
Je ne vois pas le rapport avec "Peche" par exemple...

Re : Extraction des données suivant 1 critére

Bonjour Catrice.

Je me suis trompé de fichier, c'est pour cela que: "Pourrais tu preciser ?"

Maintenant cela doit être plus clair.

Encore merci de m'avoir lu.

Re : Extraction des données suivant 1 critére

Bonjour,

Voir l'exemple joint.
En D5 taper un critere, voir le resultat dans "Resultats"

Il y a du code dans Feuil1(Compte):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$5" Then Test
End Sub

et dans Module2 :
Sub Test()
Sheets("Résultats").Range("B8").CurrentRegion.Offset(1, 0).Clear
Sheets("Compte").Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Compte").Range("D4😀5"), CopyToRange:=Sheets("Résultats").Range("B8:I8")
End Sub

ll faut que D4 soit le nom du champ (correspondant à F7) et il ne faut pas de cellule fusionnée en D4😀5 (C'est la zone de critères du filtre élaboré).

Re : Extraction des données suivant 1 critére

Bonsoir Catrice.
Merci pour la réponse.
J'ai récupéré sur le forum la liste des commandes VBA avec la traduction.
J'ai aussi récupéré 2 bouquins sur Excel 2000.
je lisais le filtre élaboré qui pouvait me donner satisfaction, et c'est que tu as utilisé.
je vais décortiquer ton programme pour perfectionner mes connaissances.
Merci encore pour le résultat qui correspond à mon attente.
Ce forum porte bien son nom.