Recherche:

merci

salutation j'ai ce code vba


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
Sheets("base de donnes").Range("A3:X10000").AdvancedFilter Action:= _
...

vous avez tout à fait le droit de vous méfier du ficher macro mais voila j'ai tout enlevé
le code

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

Bonjour,


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then
Application.EnableEvents = False
If Target = "" Then Target.Value = "zzzz"
...