Macro pour filtre automatique

vbacrumble

XLDnaute Accro

• 18 Mai 2009

• #2

Re : Macro pour filtre automatique

Bonjour


Essaie ainsi

(ici c'est la colonne A qui est filtrée )

Code:

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 18/05/2009 par VBACrumble
Dim lecritere$
lecritere = 4
Selection.AutoFilter
Selection.AutoFilter 1, ">=" & lecritere, xlAnd
ActiveSheet.AutoFilter.Range.Offset(1).Copy Sheets(2).Range("A1")
End Sub

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 18 Mai 2009

• #3

Re : Macro pour filtre automatique

Bonsoir Atlanthys, le forum,
Ce que tu cherches à faire s'appelle un filtre élaboré. Si tu n'es pas pressé, je posterai ce soir un petit fichier avec un exemple mais en attendant regardes sur ce site à la rubrique des filtres élaborés, tu devrais trouver ton bonheur.

Formation Excel VBA JB

Bonne soirée.

 

Dernière édition: 18 Mai 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Mai 2009

• #4

Re : Macro pour filtre automatique

Re, Bonsoir criscris11, le fil, le forum


Une version améliorée

Code:

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 18/05/2009 par VBACrumble
Dim lecritere$
lecritere = 4
With Sheets(1)
    .[A1].AutoFilter 1, ">=" & lecritere, xlAnd
    .AutoFilter.Range.Offset(1).Copy Sheets(2).[A1]
    .AutoFilterMode = False
End With
Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 18 Mai 2009

• #5

Re : Macro pour filtre automatique

Re,
Effectivement ton code évite de passer par un filtre élaboré : bien vu 😉.
Bonne soirée à tous.

 

Vote positif 0 Vote négatif

A

Atlanthys

Guest

• 19 Mai 2009

• #6

Re : Macro pour filtre automatique

Merci à tous c'est très sympa à vous ! 🙂

 

Vote positif 0 Vote négatif

pickatshou

XLDnaute Nouveau

• 18 Juin 2009

• #7

Re : Macro pour filtre automatique

salam a vous les amis
c vraiment cool de savoir qui y a des gens pleine de ressources pour communiquer avec d'autre gens et merci merci beaucoup
a+

 

Vote positif 0 Vote négatif