filtre avec vide et 1 seul critére a

[a10]

Bonjour,

Voici ma macro qui copie avec un filtre
j'ai pris l'option de retirer les vides et je ne prends que les a ( je n'ai que des vides ou que des a)

Range("E2:X512").Select
ActiveSheet.Range("$D$1:$BA$512").AutoFilter Field:=18, Criteria1:="<>"
Selection.Copy

Sheets("H").Select

Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("dons").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveSheet.Range("$D$1:$BA$512").AutoFilter Field:=18


=> mais comment faire si on a que des vides et donc pas de a

je recherche cela depuis plusieurs semaine sans résultats

merci

a+

 

[a10]

Re : filtre avec vide et 1 seul critére a

bonjour

je vais essayé, mais si je ne comprends pas le code cela est tres dommage:
pourquoi et à quoi sert cela:

Set pf = .[_FilterDatabase]
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Sheets("copie").Range("A1")
.AutoFilterMode = False

a+

 

[Staple1600]

Re : filtre avec vide et 1 seul critére a

RE

a10
pf égale le résultat du filtre (plage filtrée)
Ensuite j'exclue l’entête avant de recopier les cellules visibles de pf sur la feuille copie.

C'est bien ce que tu voulais faire, non ?

Si tu veux aussi l'entête dans ta copie, modifier ainsi:

Sub Macro10BIS()
Dim pf As Range
    With ActiveSheet
        .Range("$N$1:$Q$7").AutoFilter Field:=1, Criteria1:="<>"
        .[_FilterDatabase].SpecialCells(xlCellTypeVisible).Copy Sheets("copie").Range("A1")
        .AutoFilterMode = False
    End With
End Sub

NB:

mais si je ne comprends pas le code cela est tres dommage:

Certes.
Mais à toi de faire les efforts nécessaires pour que cela ne soit pas 😉
(Touche F1, recherches sur le net, lectures etc...)

 

[a10]

Re : filtre avec vide et 1 seul critére a

bonjour

avec le code que j'ai inclu dans mon exemple la macro bloque à:

.[_FilterDatabase]

a+

 

[Staple1600]

Re : filtre avec vide et 1 seul critére a

Re

a10
Ça ne bloque pas chez moi.
Et j'ai testé sur ton fichier exemple.
Et tu disais avoir testé la première version de ma macro sans que cela bloque non ?
(voir ton message #16)
Donc les deux codes doivent fonctionner si tu as su tester le premier...

 

[a10]

Re : filtre avec vide et 1 seul critére a

bonjour

post 16, j'allais tester et comprendre

chez moi la macro bloque à .[_FilterDatabase] en le surlignant!!!
c'est bizarre
a+

 

[Staple1600]

Re : filtre avec vide et 1 seul critére a

Re

a10
Cliques sur l'image ci-dessous

La macro fonctionne.
CQFD.