Débutant en VBA

Bonjour à tous

Je sèche car je débute en VBA j'ai donc besoin de votre savoir

Dans un userform j'ai un bouton "filtre" qui effectue le code suivant, mais lorsque je reclique sur le bouton j'ai un message d'erreur qui me dit "argument ou appel de procédure incorrect" j'aimerais qu'en cliquant une deuxième fois sur le bouton filtre du userform les segments de filtre disparaissent. Une idée ?

 ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("Tableau6"), "Date"). _
        Slicers.Add ActiveSheet, , "Date", "Date", 323.25, 735, 144, 198.75
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("Tableau6"), _
        "Nom de l'Intérimaire").Slicers.Add ActiveSheet, , "Nom de l'Intérimaire", _
        "Nom de l'Intérimaire", 360.75, 772.5, 144, 198.75
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("Tableau6"), _
        "Chantier").Slicers.Add ActiveSheet, , "Chantier", "Chantier", 398.25, 810, 144 _
        , 198.75
    ActiveSheet.Shapes.Range(Array("Chantier")).Select
    ActiveSheet.Shapes.Range(Array("Nom de l'Intérimaire")).Select
    Range("N22:N23").Select
    ActiveSheet.Shapes.Range(Array("Nom de l'Intérimaire")).Select
    ActiveSheet.Shapes("Nom de l'Intérimaire").IncrementLeft -293.25
    ActiveSheet.Shapes("Nom de l'Intérimaire").IncrementTop -302.25
    ActiveSheet.Shapes("Nom de l'Intérimaire").ScaleHeight 1.3094339623, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes.Range(Array("Date")).Select
    ActiveSheet.Shapes("Date").IncrementLeft -108
    ActiveSheet.Shapes("Date").IncrementTop -264.75
    ActiveSheet.Shapes("Date").ScaleHeight 1.3056603774, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes.Range(Array("Chantier")).Select
    ActiveSheet.Shapes("Chantier").IncrementLeft -34.5
    ActiveSheet.Shapes("Chantier").IncrementTop -340.5
    ActiveSheet.Shapes("Chantier").ScaleHeight 1.3056603774, msoFalse, _
        msoScaleFromTopLeft

Bonjour,

wahou !! si tu veux filtrer il y a plus simple

poste un bout de fichier pour voir ...

Bonjour Steelson

En fait j'aime le filtrage par segment car cela permet de changer de filtre très facilement, et d'avoir des recherches multi-critères

Actuellement j'ai réussi à éviter les erreurs en contournant le problème en désactivant le bouton au moyen de

CommandButton1.Enabled = False
    CommandButton2.Enabled = True

C'est pas "propre" mais ça me permet de me débrouiller en attendant de progresser dans le VBA

Je signale que je n'ai jamais fait de VBA je débute vraiment; (certains diront que ça se voit lol)

Oui les segments c'est super ... mais leur vocation c'est de les utiliser "à la main"

En VBA tu as des solutions plus simples à coder.