Macro pour filtre automatique

[Atlanthys]

Bonjour,

Je souhaite créer une macro me permettant d'actionner un filtre automatique "personnalisé - est supérieur ou égal à".

J'y parviens lorsqu'il s'agit d'un simple filtre automatique "égal", mais pas dans le cas d'un filtre automatique "personnalisé - est supérieur ou égal à".

L'idée serait de sélectionner sur la feuille 1 une valeur qui me permettrait une fois la macro lancée de faire apparaître sur la feuille 2 les critères étant au moins égaux (ou supérieurs) à cette valeur.

Je vous remercie par avance.

 

[vbacrumble]

Re : Macro pour filtre automatique

Bonjour


Essaie ainsi

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

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

 

[criscris11]

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.

 

[vbacrumble]

Re : Macro pour filtre automatique

Re, Bonsoir criscris11, le fil, le forum


Une version améliorée

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

 

[criscris11]

Re : Macro pour filtre automatique

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

 

[Atlanthys]

Re : Macro pour filtre automatique

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

 

[pickatshou]

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+