auto filter VBA

[Soleil11]

Bonjour le forum,


J'aimerais filter dans la colomne 47 tout ce qui est différent "#VALUE!" et "#N/A" et j'ai essayé avec le code ci-dessous et cela ne marche pas.

Pourriez-vous m'aider sur la correction de ce code ?

Dim Var1 As String
Dim Var2 As String

 Var1 = "#VALUE!"
 Var2 = "#N/A"
    
    ActiveSheet.Range("$A$1:$AU$65000").AutoFilter Field:=47, Criteria1:=Array( _
        "<>" & Var1, "<>" & Var2), Operator:=xlFilterValues

Merci d'avance.

Soleil11

 

[phlaurent55]

Re : auto filter VBA

Bonjour Soleil,

si la colonne 47 contient des valeurs numériques, il faudrait filtrer les valeurs >0
comme ceci:

    ActiveSheet.Range("$A$1:$AU$65000").AutoFilter Field:=47, Criteria1:=">0", _
        Operator:=xlAnd

à+
Philippe

 

[DoubleZero]

Re : auto filter VBA

Bonjour, Soleil11, Philippe , le Forum,

Si la colonne 47 ne contient pas que des valeurs numériques, une autre proposition :

Option Explicit
Sub Filtrer()
    Range("au1:au1").SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = 1
    ActiveSheet.Range("a1:au1").AutoFilter Field:=47, Operator:=xlFilterNoFill
End Sub

Sub Afficher()
    Range("au1:au1").SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = xlNone
    ActiveSheet.AutoFilterMode = False
End Sub

A bientôt

 

[Soleil11]

Re : auto filter VBA

Merci a tout le forum c'est exactement ce qu'il me faut comme solution.