Erreur 438 : Propriété ou méthode non gérée par cet objet

Bonjour,

Petit problème que je n'arrive pas à résoudre.

Le message erreur 438 s'affiche alors que j'ai déjà fait et refait cette macro qui marchait très bien jusque là ...

Voici le pas à pas :

Sub Macro1SexeFille()

Sheets("Feuil1").Select

If [C20] = "Fille" Then

Range("B2:E17").AdvancedFilter_

Action = xlFilterCopy_

CriteriaRange = ("B19:E20")

CopyToRange = Sheets("Tableaux").Range("B2:E10")

Unique = False

End If

End Sub

La partie surligné correspond à ce que me dit le débogueur.

Merci à ceux qui m'aideront.

Je suis débutante .. Je suis un peu une "enfant" de VBA

Bonjour,

Essaie comme cela

Sub Macro1SexeFille()
    With Sheets("Feuil1")
        If .Range("C20") = "Fille" Then
            .Range("B2:E17").AdvancedFilter _
            Action:=xlFilterCopy, _
            CriteriaRange:=.Range("B19:E20"), _
            CopyToRange:=Sheets("Tableaux").Range("B2:E2"), _
            Unique:=False
        End If
    End With
End Sub

A+

Merci pour ta réponse !

J'ai bien tout recopier comme tu l'as écrit (avec tout les petits points partout !), mais manque de pot un nouveau message erreur apparait : "Erreur exécution 424 : Objet requis"

Le débogueur surligne la 3ème ligne (celle de If/Then)

Mince ! J'avais fait une petite erreur, j'avais oublié d'enlever le .Select... Mais l'erreur 438 revient du coup ...

Si tu joignais un fichier, ce serait plus facile pour t'aider, non ?

A+

Voilà mon fichier exemple.

Pardon, je ne pensais pas qu'il était nécessaire d'en avoir un dans ce cas-là.

Merci pour ton aide.

bonsoir,

Je n'aurai pas fait mieux que Frangy et son code ne produit pas d'erreur...

Nota : il n'y a aucun avantage à utiliser des [ ] au lieu de range...

A+

Cela viendrait-il donc de mon Excel ?

C'est assez étrange, car je l'ai copié exactement pareil, lettre par lettre, point par point, et j'ai quand même cette fichue erreur qui s'affiche ... Toujours la même en plus !

J'avais déjà eu un problème dans le genre dans le passé, mais c'était le nom de la Macro qui était surlignée ! Et manque de pot, je me souviens pas comment j'avais fait ..

A tester

A+

Merci beaucoup pour cette aide précieuse !

Tout fonctionne parfaitement !

Je met en résolu !