Effacer des formes automatique sur une feuille de calcul
2 réponses
Salut a tous
Je voudrais savoir via je peu effacer tous les objets de
types rectangles (formes automatiques) d'une feuille de
calcul excel et ce en cliquant sur un bouton.
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
boblebob
SALUT,
avec ceci :
For Each S In ActiveSheet.Shapes
S.Delete
Next S
-- a+ bob
(enlever nospam00-) ---- a écrit dans le message de news: 8ca901c3b5bb$ceef31c0$
Salut a tous
Je voudrais savoir via je peu effacer tous les objets de types rectangles (formes automatiques) d'une feuille de calcul excel et ce en cliquant sur un bouton.
Merci a tous ceux qui pourront m'aider
SALUT,
avec ceci :
For Each S In ActiveSheet.Shapes
S.Delete
Next S
--
a+
bob
nospam00-boblebob@voila.fr
(enlever nospam00-)
----
<anonymous@discussions.microsoft.com> a écrit dans le message de news:
8ca901c3b5bb$ceef31c0$a601280a@phx.gbl...
Salut a tous
Je voudrais savoir via je peu effacer tous les objets de
types rectangles (formes automatiques) d'une feuille de
calcul excel et ce en cliquant sur un bouton.
(enlever nospam00-) ---- a écrit dans le message de news: 8ca901c3b5bb$ceef31c0$
Salut a tous
Je voudrais savoir via je peu effacer tous les objets de types rectangles (formes automatiques) d'une feuille de calcul excel et ce en cliquant sur un bouton.
Merci a tous ceux qui pourront m'aider
Frédéric Sigonneau
Bonjour,
Pour détruire les rectangles et eux seuls, tu peux affecter à un bouton une proc de ce style :
Sub test() For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeRectangle Then shp.Delete Next End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Salut a tous
Je voudrais savoir via je peu effacer tous les objets de types rectangles (formes automatiques) d'une feuille de calcul excel et ce en cliquant sur un bouton.
Merci a tous ceux qui pourront m'aider
Bonjour,
Pour détruire les rectangles et eux seuls, tu peux affecter à un bouton une proc
de ce style :
Sub test()
For Each shp In ActiveSheet.Shapes
If shp.AutoShapeType = msoShapeRectangle Then shp.Delete
Next
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Salut a tous
Je voudrais savoir via je peu effacer tous les objets de
types rectangles (formes automatiques) d'une feuille de
calcul excel et ce en cliquant sur un bouton.
Pour détruire les rectangles et eux seuls, tu peux affecter à un bouton une proc de ce style :
Sub test() For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeRectangle Then shp.Delete Next End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Salut a tous
Je voudrais savoir via je peu effacer tous les objets de types rectangles (formes automatiques) d'une feuille de calcul excel et ce en cliquant sur un bouton.
