Rendre automatique la saisie des critères d'un filtre personnalisé

[Berg1664]

Bonne journée à toutes et à tous

En fait j'aimerais que la macro permette de filtrer sur une colonne les valeurs supérieures à une valeur que j'aurais préalablement saisie dans la cellule prévue à cet effet

Voir fichier joint

D'avance merci et bravo pour ce forum

Berg1664

 

[Pierrot93]

Re : Rendre automatique la saisie des critères d'un filtre personnalisé

bonjour Berg,

regarde le code ci dessous :

Range("A1:F1").AutoFilter Field:=5, Criteria1:=">=" & Range("J2").Value

bon après midi
@+

 

[Catrice]

Re : Rendre automatique la saisie des critères d'un filtre personnalisé

Bonjour,

Voici un exemple de code :
Sub Test()
Sheets("Feuil1").Range("A1").AutoFilter Field:=5, Criteria1:=">" & Sheets("Feuil1").Range("J1")
End Sub

Voir fichier ci-joint.

 

[Catrice]

Re : Rendre automatique la saisie des critères d'un filtre personnalisé

Re,

La meme chose qui lance la macro lors de la saisie en J1

 

[Berg1664]

Re : Rendre automatique la saisie des critères d'un filtre personnalisé

Super Pierrot et Catrice pour votre réactivité à guider mes pas

Berg1664 vous remercie (sans modération!)