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.
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.