Bonjour à tous et une très joyeuse année 2013,
Pour débuter cette année je rencontre un problème avec le fichier joint. Je souhaite réaliser un filtre avancé lors du changement de valeur d'une cellule (B2)
Voici mes codes :
Dans un module :
Sub Macro2()
Range("Données").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("Critères"), CopyToRange:=Range("Extraire2"), Unique:=False
End Sub
Dans la feuille ou doit être indiqué le résultat du filtre :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = B2 Then
Call Macro2
End If
End Sub
Quand je change la valeur en B2 rien ne se passe.
Merci pour votre aide et encore une très bonn année 2013.
Jacques
Pour débuter cette année je rencontre un problème avec le fichier joint. Je souhaite réaliser un filtre avancé lors du changement de valeur d'une cellule (B2)
Voici mes codes :
Dans un module :
Sub Macro2()
Range("Données").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("Critères"), CopyToRange:=Range("Extraire2"), Unique:=False
End Sub
Dans la feuille ou doit être indiqué le résultat du filtre :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = B2 Then
Call Macro2
End If
End Sub
Quand je change la valeur en B2 rien ne se passe.
Merci pour votre aide et encore une très bonn année 2013.
Jacques