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 !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Hawk On Error Resume Next S.Delete On Error Goto 0
Cordialement Pascal
"Hawk" a écrit dans le message de news:
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
Bonjour Hawk
On Error Resume Next
S.Delete
On Error Goto 0
Cordialement
Pascal
"Hawk" <nospam@orange.fr> a écrit dans le message de news:
tetke3t354i9sbgi1upo7638tnibkpce22@4ax.com...
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 !
Bonjour Hawk On Error Resume Next S.Delete On Error Goto 0
Cordialement Pascal
"Hawk" a écrit dans le message de news:
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 !
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 !
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 !
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 !