Discussion :

[Mifont]

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 :

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

   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

[BENNASR]

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 :

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

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 :

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

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

puis je filtre avec le code suivant :

Code :

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

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
Ci joint un petit exemple
Bonne continuation

[Mifont]

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 :

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

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)

[BENNASR]

bonsoir
je comprends mieux 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 :

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

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 :

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

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

[Mifont]

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".
Un grand MERCI à Bennasr pour le temps consacré et le partage de ses compétences.