Filtre avancé par VBA

[Jacques25]

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

 

[Pierrot93]

Re : Filtre avancé par VBA

Bonjour,

ton fichier n'est pas passé, mais modifie peut être ceci :

If Target.Address = B2 Then

par cela :

If Target.Address = "$B$2" Then

bonne journée
@+

 

[Jacques25]

Re : Filtre avancé par VBA

Salut Pierrot,

Désolé pour le fichier pourtant il était bien affiché et à la bonne taille...
J'ai essayé ta modif et ça marche.

Merci.
Bonne journée

Jacques

 

[Compte Supprimé 979]

Re : Filtre avancé par VBA

Bonjour le fil

Juste comme ça, ou alors :

If Target.Address(0,0) = "B2" Then

A+