Problème d’exécution d'une macro automatiquement

[lila]

Bonjour,

J'ai un problème en voulant exécuter une macro automatiquement à chaque changement du contenu de la cellule "B5". Cette macro contient des filtres élaborés.

En l'exécutant manuellement ça fonctionne mais en l'incorporant dans "Worksheet_Change" ça ne marche pas.

Private Sub Worksheet_Activate()
ValIni = Range("b5").Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("b5") <> ValIni Then

Range("A10:A38").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A10:A38"), CopyToRange:=Range("A40:A55"), Unique:=True 'Pays Liquéfaction

Range("A58:A81").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A58:A81"), CopyToRange:=Range("A83:A95"), Unique:=True

ValIni = Range("b5")

End If
End Sub

Merci de votre aide.

 

[Pierrot93]

Re : Problème d’exécution d'une macro automatiquement

Bonjour,

modifie peut être comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("b5") <> ValIni Then

Range("A10:A38").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A10:A38"), CopyToRange:=Range("A40:A55"), Unique:=True 'Pays Liquéfaction

Range("A58:A81").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A58:A81"), CopyToRange:=Range("A83:A95"), Unique:=True

ValIni = Range("b5")

End If
Application.EnableEvents = True
End Sub

bon après midi
@+