VBA avec filtre multicritères en fonction de la cellule active

Bonjour,

Après pas mal de recherches et tentatives infructueuses, je me décide à faire appel à vos connaissances.
En effet, sur un tableau excel avec une colonne A sur laquelle figurent des sommes, je souhaite écrire une macro avec un filtre à 3 critères :
Le 1er et le 2ème utilisent le critère "Entre", calculé à partir de la valeur de la cellule active (de A3 à A100) avec une tolérance indiquée dans la cellule A1 (exemple : coeff 1.2)
Le 3ème critère doit permettre d'afficher aussi les cellules vides.
Exemple, je veux afficher les valeurs entre 833€ (1000/1.2) et 1200€ (1000*1.2) et les cellules vides de la colonne A.
Ci dessous le code que je pensais utiliser mais il ne fonctionne pas car fait appel à 3 critère au lieu de 2

Code:

---

ThisWorkbook.Sheets("Feuille1").Range("A2").AutoFilter Field:=1, Criteria1:=">=" & Range("A" & ActiveCell.Row).Value / Range("A1").Value, Operator:=xlAnd, Criteria2:="<=" & Range("A" & ActiveCell.Row).Value * Range("A1").Value, Operator:=xlor, Criteria3:=""

---

Merci de me proposer des solutions pour régler mon problème

Bonjour
une tentative de réponse
Hypothèse :
En A1 = coefficient (Exemple 1.2)
En A2 = la valeur de recherche initiale
En B1 je calcule la limite inférieure qui est égal à A2/A1 en remplaçant le virgule par un point avec :

Code:

---

SUBSTITUE(A2/A1;",";".")

---

En B2 je calcule la limite supérieure qui est égal à A2*A1 toujours en remplaçant le virgule par un point :

Code:

---

SUBSTITUE(A2*A1;",";".")

---

puis je filtre avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub filtrerDonnées() Application.ScreenUpdating = False Dim DerligF1 As Long Dim F1 As Worksheet Dim LimInf As String Dim LimSup As String Set F1 = Sheets("Feuil1") With F1 If Not .AutoFilter Is Nothing Then If .FilterMode Then .ShowAllData .AutoFilter.Range.AutoFilter End If DerligF1 = .Cells(Rows.Count, 1).End(xlUp).Row LimInf = .Range("B1").Value LimSup = .Range("B2").Value F1.Range("A3 : A" & DerligF1).AutoFilter Field:=1, Criteria1:=">" & LimInf, Operator:=xlAnd, Criteria2:="<" & LimSup End With Application.ScreenUpdating = True End Sub

---

j'espère que ça t'aide à avancer sachant que je suis qu'un autodidacte et peut être y a de chemin moins court :mrgreen::mrgreen:
Ci joint un petit exemple
Bonne continuation

Bonjour Bennasr,
Merci pour cette réponse rapide et ta proposition.
En fait, le problème que je n'arrive pas à résoudre est de rajouter une troisième condition à mon filtre, celle qui rajoute les cellules vides.
J'ai oublié de préciser que j'ai crée un tableau dans ma feuille afin de limiter la plage des données filtrées. Le code que j'ai indiqué fonctionne correctement pour les 2 filtres numériques "entre" mais si je rajoute le troisième, il n'est pas pris en compte.

Code:

---

1 2 3

Sub Filter() ThisWorkbook.Sheets("Feuil1").Range("A2").AutoFilter Field:=1, Criteria1:=">=" & Range("a" & ActiveCell.Row).Value / Range("A1").Value, Operator:=xlAnd, Criteria2:="<=" & Range("A" & ActiveCell.Row).Value * Range("A1").Value End Sub

---

Voir le fichier joint avec les 2 premiers filtres, mais j'aurais souhaité afficher en plus les cellules vides (3ème critère)

bonsoir
je comprends mieux :aie: mais à cause de mon niveau de débutant je propose le bricolage suivant
Envoyé la valeur de la cellule active à B1
ajouter une formule en colonne B pour vérifier si la valeur est comprise entre les deux intervalles OU la cellule est vide, dans ce cas mettre 1 si non ne mettez rien

Code:

---

SI(OU(ET([@Colonne1]>$B$1/$A$1;[@Colonne1]<$B$1*$A$1);[@Colonne1]="");1;0)

---

puis filtrer sur cette colonne B avec valeur égale à 1

Code:

---

1 2 3 4 5 6

Sub Filter() Application.ScreenUpdating = False Range("B1").Value = Range("a" & ActiveCell.Row) ThisWorkbook.Sheets("Feuil1").Range("A2").AutoFilter Field:=2, Criteria1:="1" Application.ScreenUpdating = True End Sub

---

à tester

Bonsoir,

Je viens de tester (avec un peu de retard) le code de Bennasr et cela fonctionne bien.
Le résultat correspond bien à ce que je souhaitais. L'ajout d'une nouvelle colonne ne pose pas réellement de problème.
Je note donc le problème comme "résolu".:D
Un grand MERCI à Bennasr pour le temps consacré et le partage de ses compétences.