Filtre avec Deux Critère Vba Exce

Question

l

Bonjour

Je souhaite faire un filtre de deux Critère

Criteria1:="<>" & Range("G1").Value

Criteria2:="<>" & Range("G2").Value

Les deux Critères sont des nombres avec deux chiffres après la virgulés

Voici le code VBA

Sub FiltreDeuxCritère ()

    ActiveSheet.ListObjects("Tableau3").Range.AutoFilter Field:=7, Criteria1:="<>" & Range("G1").Value, Criteria2:="<>" & Range("G2").Value

End Sub

Le problème ce que si le nombre se termine par ,00 ça marche le filtre sinon ça ne marche pas le filtre

Après j'ai remplacé les critères par des variable mais toujours le même problème

Dim x As String

Dim y As String

x = Range("G1").Value

y = Range("G2").Value

    ActiveSheet.ListObjects("Tableau3").Range.AutoFilter Field:=7, Criteria1:="<>" & x, Criteria2:="<>" & y

End Sub

merci

Answer 1

Tu dois utiliser la virgule comme séparateur décimal. C'est ça qui mets le bazar. Essaie :

Sub FiltreDeuxCritère()

  Dim X, Y

  X = Replace(Range("G1").Value, ",", ".")

  Y = Replace(Range("G2").Value, ",", ".")

  ActiveSheet.ListObjects("Tableau3").Range.AutoFilter Field:=7, Criteria1:="<>" & _

  X, Operator:=xlAnd, Criteria2:="<>" & Y

End Sub

Daniel

Answer 2

Merci beaucoup Mr Daniel

Oui ça marche

Answer 3

Bonjour et merci pour votre réponse

Nombre avec deux décimales

Answer 4

Bonjour,

Quelles sont les valeurs de G1 et G2. Quel est le format de cellule de G1 et G2 ?

Cordialement.

Daniel