Effacer Bouton a l'extraction feuille

Bonsoir a tous et a toutes

Bon peut être un peut tard mais mes meilleurs vœux a tous

Pour commencé l'année je recherche de l'aide pour arriver a faire une modification sur une VBA dans le dossier joint

En fait je cherche a ce que les boutons qui sont sur la feuille (Fiche de Travaux) disparaisse a l'extraction .

Si quelqu'un peut m’aidè ou m'aiguiller pour une solution je suis preneur

Par avance merci de l'aide qu'on pourra m'apporter

Cordialement

Salut,

Je n’ai pas compris ce que tu veux dire par « à l’extraction », mais voici un code qui permet de supprimer toutes les formes de la feuille active.

Sub Supprimer_Shapes()
Dim Sh As Shape
  For Each Sh In ActiveSheet.Shapes
    Sh.Delete
  Next Sh
End Sub

Si tu n’arrives pas à l’appliquer à ton fichier, reviens avec plus de précisions.

Cordialement.

Je te remercie Yvouille pour ton code après une soirée de recherche j'ai enfin trouver ce qui allez pas

Pour t'expliquer L'extraction cet peut être pas le bon terme en fait j'ai un dossier de genre 15 feuilles et par VBA

j'en (sort ,extrais ) que celle qui m’intéresse et mon soucie était que les boutons rester sur la feuille et cet pas vraiment beau

Et la solution que j'ai trouver que je partage au cas ou pour les autres , il faillais décocher simplement (Imprimer objet) dans les propriétés du bouton

Encore merci

Cordialement