Discussion :

[tonioj41]

Bonjour,
Dans la macro que je suis en train de créer, je veux mettre un filtre personnalisé : faire apparaître toutes les données qui sont supérieures à une une certaine valeur(appelée max) et aussi toutes les données inférieures à une autre valeur(appelée min). Je désire ensuite supprimer toutes ces données.
Voilà ce que j'ai mis dans ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim min As Integer
Dim max As Integer
    min = 12
    max = 80
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="<min", Operator:=xlOr, _
        Criteria2:=">max"
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Rows("1:1").Select
    Selection.AutoFilter

Le problème est qu'il n'y a rien qui apparait dans mes données filtrées car ça marque textuellement min et max au lieu de 12 et 80.

Quelle est la bonne synthaxe à utiliser pour avoir la valeur de min et de max dans le filtre??

Merci d'avance

[ouskel'n'or]

Décompose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.AutoFilter Field:=2, Criteria1:="<" & min, ...