Supprimer bouton en VBA

Le
Hawk
Bonjour,

Ce code permet de cacher les boutons d'une feuille :

Sub test()
Dim S As Shape
For Each S In ActiveSheet.Shapes
S.Visible = false
Next S
End Sub

Pas de message erreur !

si j'utilise ce code pour les supprimer :

Sub test()
Dim S As Shape
For Each S In ActiveSheet.Shapes
S.delete
Next S
End Sub

J'ai une fenêtre VB qui me dit qu'il est impossible d'entrer en mode
arret maintenant.
Pas de code erreur !
si je fais continuer les boutons sont supprimer mais j'aimerais eviter
cette fenêtre !

Si vous avez la solution je suis preneur

Merci
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #4695731
Bonjour Hawk
On Error Resume Next
S.Delete
On Error Goto 0

Cordialement
Pascal

"Hawk"
Bonjour,

Ce code permet de cacher les boutons d'une feuille :

Sub test()
Dim S As Shape
For Each S In ActiveSheet.Shapes
S.Visible = false
Next S
End Sub

Pas de message erreur !

si j'utilise ce code pour les supprimer :

Sub test()
Dim S As Shape
For Each S In ActiveSheet.Shapes
S.delete
Next S
End Sub

J'ai une fenêtre VB qui me dit qu'il est impossible d'entrer en mode
arret maintenant.
Pas de code erreur !
si je fais continuer les boutons sont supprimer mais j'aimerais eviter
cette fenêtre !

Si vous avez la solution je suis preneur

Merci


JB
Le #4695711
Bonjour,

Sheets("xxxx").DrawingObjects.Delete

http://boisgontierjacques.free.fr/pages_site/lesimages.htm#Suppression

JB
http://boisgontierjacques.free.fr

On 14 sep, 13:56, Hawk
Bonjour,

Ce code permet de cacher les boutons d'une feuille :

Sub test()
Dim S As Shape
For Each S In ActiveSheet.Shapes
S.Visible = false
Next S
End Sub

Pas de message erreur !

si j'utilise ce code pour les supprimer :

Sub test()
Dim S As Shape
For Each S In ActiveSheet.Shapes
S.delete
Next S
End Sub

J'ai une fenêtre VB qui me dit qu'il est impossible d'entrer en mode
arret maintenant.
Pas de code erreur !
si je fais continuer les boutons sont supprimer mais j'aimerais eviter
cette fenêtre !

Si vous avez la solution je suis preneur

Merci


Publicité
Poster une réponse
Anonyme