Erreur 1004 : La méthode AutoFilter de la classe Range a échoué

Bonjour,

Je suis nouveau dans le monde Excel et j'essaye de m'initier au VBA, j'essaye de faire un programme filtrer dans un TCD avec un bouton mais je ne comprend pas d'où vient l'erreur 1004, si quelqu'un pouvait m'expliquer comment régler et d'où vient ce problème svp (je copie colle le code je ne sais pas si comme cela qu'on fait, excusez moi d'avance si c'est mal)

Sub filtrer_etapesV2()
    Dim premiereCellule As Range
    Set premiereCellule = ActiveCell.CurrentRegion.Cells(1)

    Dim filtre As String
    filtre = InputBox("Texte à filtrer :", "Filtre", ActiveCell)

    premiereCellule.AutoFilter field:=colonne, Criteria1:=filtre

End Sub

Désolé pour le double post mais j'ai trouvé ceci et maintenant j'ai erreur 438

Sub filtrer_etapesV2()
    Dim premiereCellule As Range
    Set premiereCellule = ActiveCell.CurrentRegion.Cells(1)

    Dim filtre As String
    filtre = InputBox("Texte à filtrer :", "Filtre", ActiveCell)

    With Worksheets(5)
        .Range ("A1")
    premiereCellule.AutoFilter field:=colonne, Criteria1:=filtre
    End With

End Sub

Bonjour,

Le problème ici, c'est principalement ce que vous filtrez ! Le filtre s'applique à premiereCellule.

Ensuite, pour le champ à opérer, la variable colonne est (ici en tout cas) pas définie et donc vide.

Avec votre fichier ou votre besoin précis, vous pourriez avoir une solution plus facilement. En attendant, le code devrait selon moi plutôt s'organiser comme ça :

Sub filtrer_etapesV2()

Dim plage as range
Dim filtre As String

Set plage = sheets(5).cells(1,1).currentregion
filtre = InputBox("Texte à filtrer :", "Filtre")

plage.AutoFilter field:=1, Criteria1:=filtre 'filtre sur col1 de la plage

End Sub

Il faut déjà essayer de réaliser le filtre avant de le complexifier ou de le conditionner à un évènement (je pense à votre essai avec ActiveCell).

Cdlt,