Filtre automatique avec 2 conditions sur 2 colonnes différentes

Bonjour à tous et toutes,

J'essaie de mettre en pace une macro qui permettrait de filtrer la colonne H dès que la cellule contient 100 et que la cellule de la colonne I n'est pas vide.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A2:H3659")) Is Nothing Then
Call MaMacro
End If
End Sub

Sub MaMacro()
Worksheets("Suivi").Range("A2").AutoFilter _
Field:=8, _
Criteria1:="<100", _
Operator:=xlOr, _
Criteria2:=" ", _
VisibleDropDown:=False

End Sub

Pour le moment j'ai cela qui fonctionne plutôt bien mais qui ne prend pas en compte la condition sur la colonne I.

Si une âme charitable voulait bien m'aider.

Merci beaucoup

L.

Bonjour Leaures, le forum,

Si colonne H=100 et colonne I <> vide:

A tester...

Sub test()
  If Worksheets("Suivi").FilterMode = True Then Worksheets("Suivi").ShowAllData
    Worksheets("Suivi").Range("A2").AutoFilter Field:=8, Criteria1:="=100", Operator:=xlAnd
    Worksheets("Suivi").Range("A2").AutoFilter Field:=9, Criteria1:="<>"
End Sub

Cordialement,

Merci beaucoup,

Quand je la fait tourner, elle me masque les lignes à 100 sans prendre en compte celle dont la ligne I est vide.

Je ne sais pas comment faire pour que l'on soit obligé de remplir la colonne I si la colonne H est à 100.

Bonjour, et merci pour le retour,

Pour ne faire apparaitre que les lignes avec 100 en colonne G et vide en colonne I :

A tester:

Sub test()
  If Worksheets("Suivi").FilterMode = True Then Worksheets("Suivi").ShowAllData
    Worksheets("Suivi").Range("A2").AutoFilter Field:=8, Criteria1:="=100", Operator:=xlAnd
    Worksheets("Suivi").Range("A2").AutoFilter Field:=9, Criteria1:="="
End Sub

Cordialement,

Super merci !