XL 2010 [HELP PLEASE] Erreur 1004 "la méthode Range de l'objet _Worksheet a échoué"

[Bertrand_A]

Bonjour,

J'essaye de réaliser une macro qui, en double cliquant sur une cellule me permettra d'activer un filtre sur un tableau présent dans une autre feuille.

Voici mon code VBA :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("D5:D117")) Is Nothing Then
    ActiveCell.Offset(0, -2).Select
    Colonne = ActiveCell.Value
    Sheets("LISTING SMARTPHONES").Select
    Sheets("LISTING SMARTPHONES").Activate
    Range("Tableau1").AutoFilter
    Range("A1").AutoFilter Field:=6, Criteria1:=Colonne
    MsgBox (Colonne)
  
    End If
End Sub

Lors de l’exécution j'ai le message d'erreur 1004 : "la méthode Range de l'objet _Worksheet a échoué".

Edit : en mode débogage c'est la ligne : Range("Tableau1").AutoFilter qui marche pas (ou la suivante si je retire celle-ci)

J'ai cherché sur différents forum mais je n'ai pas trouver solution à mon problème.. Quelqu'un pourrait-il m'aider ? 🙂 Merci par avenca

 

[Bertrand_A]

Solution trouvée ! Si cela peut aider d'autres personnes :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("D5:D117")) Is Nothing Then
    ActiveCell.Offset(0, -2).Select
    Colonne = ActiveCell.Value
    Sheets("LISTING SMARTPHONES").Select
    Sheets("LISTING SMARTPHONES").Range("Tableau1").AutoFilter
    Sheets("LISTING SMARTPHONES").Range("Tableau1").AutoFilter Field:=6, Criteria1:=Colonne
    MsgBox (Colonne)
   
    End If
End Sub

Il suffit de préciser partout sur quelle feuille on applique l'outil .Range

Sujet résolu

 

[Jacky67]

Solution trouvée ! Si cela peut aider d'autres personnes :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("D5:D117")) Is Nothing Then
    ActiveCell.Offset(0, -2).Select
    Colonne = ActiveCell.Value
    Sheets("LISTING SMARTPHONES").Select
    Sheets("LISTING SMARTPHONES").Range("Tableau1").AutoFilter
    Sheets("LISTING SMARTPHONES").Range("Tableau1").AutoFilter Field:=6, Criteria1:=Colonne
    MsgBox (Colonne)

    End If
End Sub

Il suffit de préciser partout sur quelle feuille on applique l'outil .Range

Sujet résolu

Bonjour,
Autre façon sans select et sans variable 😉

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("D5:D117")) Is Nothing Then
        Cancel = True
        With Sheets("LISTING SMARTPHONES")
            .Activate
            .Range("Tableau1").AutoFilter Field:=6, Criteria1:=Target.Offset(0, -2)
        End With
    End If
End Sub