Filtre

Bonjour,

J'ai une question assez pointue, mais je pense que ça doit être possible

Je souhaiterais effectué un filtrage sans indiquer une valeur, mais je souhaiterais indiquer un numéro qui par exemple indiquer la première valeur qui est indiqué lorsque l'on clique sur l’icône filtre de la colonne:

ceci pour utiliser une variable et filtrer une par une les valeur et effectuer des opérations.

Merci d'avance.

salut

tu aurai dû joindre un fichier

suggestion si j'ai compris :

dans une cellule, disons D1, tu saisis ta variable

en B2, tu mets = SI (A2 = $D$1 ; 1 ; "")

tu tires la formule vers le bas

désormais, la colonne B contient des 1 à chaque fois que la valeur de A égale ta variable

tu filtres les sur la colonne B

(j'appelle ça une colonne de pointage)

Je ne pense pas que tu aies compris ou alors je n'ai pas compris ta méthode:

Je souhaiterais avec une commande vba, effectuer un filtre sur la première colonne. Le truc c'est que je ne connais pas à l'avance le critère du filtre. Ces numéro seront différents à chaque fois que j'exécuterais la macro.

Ces numéro sont des références de suivi de problèmes technique.

Je souhaiterais traiter un à un ces références. Mais étant donné que je ne connais pas à l'avance les numéro, je ne peux mettre un filtre "normal" du type ="31542"

Il faudrait un filtre du type =1ère valeur, je traite les lignes associé à cette référence, puis =2ème valeur, je traite et ainsi de suite.

Comme si je cochais dans le menu qui s'affiche (dans l'image que j'ai joint).

J'espère avoir été clair.

Salut le forum

Tu ne peux pas le faire directement, il faut extraire la liste

Un exemple pour le principe

Set DictName = CreateObject("Scripting.Dictionary")

'Récupération liste des filtres
  For Each CelName In PlgName
    DictName.Item(CelName.Value) = CelName.Value
  Next CelName
'Tri croissant
  Temp = DictName.items
    Call tri(Temp, LBound(Temp), UBound(Temp))
  NameValue = Temp
'Filtre automatique sur NameValue
  For NbreName = 0 To UBound(NameValue)
    Ws1.Range("C3").AutoFilter Field:=1, Criteria1:=NameValue(NbreName)
    'Traitement à effectuer
  Next NbreName

Mytå

Merci.

Je vais essayer ça demain.