macro pur faire un filtre

[a10]

bonjour

j'ai une macro qui copie les lignes qui ont un "A"

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

mais quand il n'y pas de A il copie tout le tableau

quand il y a au moins un a la macro fonctionne


A+

 

[a10]

Re : macro pur faire un filtre

bonjour,

Range("c1:x65536" est ce que je peux prendre que la colonne? : "c1 : c65536"

Range("Tableau1").AutoFilter Field:=Target.Column, Criteria1:=Target.Text, => "tableau" est ce le nom de la feuille?

a+

 

[Lone-wolf]

Re : macro pur faire un filtre

Bonjour a10,

avec Range("Tableau1").AutoFilter Field:=Target.Column, Criteria1:=Target.Text, tu peux sélectionner-trier les cellules des colonnes A à C. Tableau1 est le nom donné à la plage "a2:c65536".


A+ 😎

 

[a10]

Re : macro pur faire un filtre

bonsoir
je ne comprends pas pourquoi il y a cela:
SpecialCells(xlCellTypeVisible)

peux t on remplacer ce code

Sheets("Feuil1").Range("a2:b65536").SpecialCells(xlCellTypeVisible).Copy Sheets("copie").Range("a2")
End Sub

par

Selection.Copy




Sheets("A").Select


Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

a+

 

[a10]

Re : macro pur faire un filtre

bonjour

je voudrai que la macro s’arrête si dans le filtre il n'y a que l' option vide.


a+

 

[a10]

Re : macro pur faire un filtre

bonjour

nombsel = Application.WorksheetFunction.Subtotal(3, Range("a:a")) - 1
If nombsel <> 1 Then
' ActiveWindow.Close
End If


j'ai trouvé ce code

mais à quoi correspond: Subtotal(3, Range("a:a")) - 1

et pourquoi on met ce code: If nombsel <> 1 Then


a+