Discussion :

[denisw95]

Bonjour,

je voudrais extraire à partir d'une colonne de ma feuille, la liste sans doublon des valeurs non vides.

j'ai saisi le code suivant :

Code :

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

1
2
3
4
5
6
 
ActiveSheet.Range("M:M").AdvancedFilter _
            Action:=xlFilterCopy, _
            Criteria1:="<>", _
            CopyToRange:=Sheets("Data_Ref").Range("A1"), _
            Unique:=True

mais j'ai une erreur "1004 Erreur définie par l'aplication ou l'objet". Cette erreur porte, semble t-il, sur la paramètre "Criteria1". Sans ce paramètre, je récupère bien la liste attendu, avec une cellule vide

Une idée pour que cela fonctionne ?

Merci d'avance pour votre aide

[78chris]

Bonjour

Un filtre avancé utilise une zone de critères, pas un critère défini comme tu l'as fait

La zone de critère peut dans quelques cas précis ne pas être indiquée, d'où l'absence d'erreur en l'enlevant...

[denisw95]

Merci pour cette réponse rapide.

Tant pis pour moi alors, je prendrai en compte les cellules vides dans la suite de mon traitement.
Par pénalisant puisque l’activation du paramètre «*unique*» fait que je n’aurais qu’une seule cellule vide

[boisgontierjacques]

Bonjour,

Une BD avec la date de réglement en colonne D

On veut extraire les factures non réglées:

Le critère en F1:F2

En F2: =EstVide(D2) ou =D2="" (en F1, n'importe quoi sauf un nom de champ)

Exemple en PJ

Boisgontier

[78chris]

RE

Tant pis pour moi alors, je prendrai en compte les cellules vides dans la suite de mon traitement.

Je n'ai pas dit que ce n'était pas possible mais que la syntaxe n'est pas bonne puisqu'aucune zone de critère n'est définie.

L'exemple de Boisgontier qui fait l'inverse peut néanmoins servir à revoir la logique du filtre avancé... Pour remettre dans le bon sens la formule est
=Service<>""