GuillaumA XLDnaute Occasionnel 3 Janvier 2011 #1 Bonjour, Comme le titre du post l'indique, je recherche une formule de macro afin de supprimer tous les boutons d'une page commençant par "BTT". Merci de votre considération et mes meilleurs voeux pour cette nouvelle année! Guillaume
Bonjour, Comme le titre du post l'indique, je recherche une formule de macro afin de supprimer tous les boutons d'une page commençant par "BTT". Merci de votre considération et mes meilleurs voeux pour cette nouvelle année! Guillaume
Gorfael XLDnaute Barbatruc 3 Janvier 2011 #2 Re : Formule Macro pour supprimer tous les boutons d'une page commencant par "BTT" Bonne année, bonne santé GuillaumA et le forum Code: Dim Ctrl As Shape If ActiveSheet.Name Like "BTT*" Then For Each Ctrl In ActiveSheet.Shapes Ctrl.Delete Next Ctrl End If ou en plus court Code: If ActiveSheet.Name Like "BTT*" Then ActiveSheet.Shapes.SelectAll Selection.Delete End If A+ Vote positif 0 Vote négatif
Re : Formule Macro pour supprimer tous les boutons d'une page commencant par "BTT" Bonne année, bonne santé GuillaumA et le forum Code: Dim Ctrl As Shape If ActiveSheet.Name Like "BTT*" Then For Each Ctrl In ActiveSheet.Shapes Ctrl.Delete Next Ctrl End If ou en plus court Code: If ActiveSheet.Name Like "BTT*" Then ActiveSheet.Shapes.SelectAll Selection.Delete End If A+
GuillaumA XLDnaute Occasionnel 3 Janvier 2011 #3 Re : Formule Macro pour supprimer tous les boutons d'une page commencant par "BTT" Bonjour Gorfael, Un grand merci à toi pour ces deux solutions. Cela me retire une épine du pied. Bonne après-midi de reprise Guillaume Vote positif 0 Vote négatif
Re : Formule Macro pour supprimer tous les boutons d'une page commencant par "BTT" Bonjour Gorfael, Un grand merci à toi pour ces deux solutions. Cela me retire une épine du pied. Bonne après-midi de reprise Guillaume