Déclancher macro suite à changement valeur cellulle

Bonjour à tous

1 ) Comment déclencher la macro suivante ?
Sub SPECIALFILTER()
Application.CutCopyMode = False
Range("DATABASE").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("CRIT"), Unique:=False
Range("A14").Select
End Sub

chaque fois que la cellule A2 change de valeur ( NB cette cellule change
grace à un données validation liste et c'est la variable de CRIT),que l code
mettre dans le code de la feuille ?

2 ) Quelle macro pourrais mettre à blanc la cellule A2 à chaque fois que je
vais dans la feuille "ALLDATA"

à+

Bonjour,

-Clic-droit sur onglet
-Visualiser le code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
SPECIALFILTER
End If
End Sub

Chercher l'événnement Activate sur la feuille AllData:

Private Sub Worksheet_Activate()
Sheets("xxxx").[A2] = 0
End Sub

Cordialement JB

Bonjour à tous

1 ) Comment déclencher la macro suivante ?
Sub SPECIALFILTER()
Application.CutCopyMode = False
Range("DATABASE").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("CRIT"), Unique:úlse
Range("A14").Select
End Sub

chaque fois que la cellule A2 change de valeur ( NB cette cellule change
grace à un données validation liste et c'est la variable de CRIT),quel code
mettre dans le code de la feuille ?

2 ) Quelle macro pourrais mettre à blanc la cellule A2 à chaque fois que je
vais dans la feuille "ALLDATA"

à+

Dans le module de la feuille :
Sous réserve que tu n'utilises pas XL97

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$2" Or Selection.Count > 1 Then Exit Sub
SPECIALFILTER
End Sub

Pour la 2° question
Dans le module de la feuille "AllData"

Private Sub Worksheet_Activate()
[Feuil1!A2] = 0
End Sub

AV

la deuxième se plante sur
[Feuil2!A2] = 0

Merci JP vos 2 macros me conviennent parfaitement.
Mais ma macro SPECIALFILTER fait des caprices lorsque A2 = ''FRANCE" e lle
me filtre FRANCE SAS, mystère...
à+

Bonjour,

-Clic-droit sur onglet
-Visualiser le code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
SPECIALFILTER
End If
End Sub

Chercher l'événnement Activate sur la feuille AllData:

Private Sub Worksheet_Activate()
Sheets("xxxx").[A2] = 0
End Sub

Cordialement JB

Bonjour à tous

1 ) Comment déclencher la macro suivante ?
Sub SPECIALFILTER()
Application.CutCopyMode = False
Range("DATABASE").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("CRIT"), Unique:=False
Range("A14").Select
End Sub

chaque fois que la cellule A2 change de valeur ( NB cette cellule cha nge
grace à un données validation liste et c'est la variable de CRIT) ,quel code
mettre dans le code de la feuille ?

2 ) Quelle macro pourrais mettre à blanc la cellule A2 à chaque f ois que je
vais dans la feuille "ALLDATA"

à+