Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Effacer des formes automatiques types rectangles

Effacer des formes automatiques types rectangles

4 réponses
Avatar
Je voudrais savoir via Vba pour effacer tous les objets de
types rectangles (formes automatiques) d'une feuille de
calcul excel et ce en cliquant sur un bouton.
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
John Fuss
J'ai pâs testé mais essai un truc du genre (utilise l'enregistreur pour
obtenir le vocabulaire dont tu as besoin, à adapter à ton pbl)

Public sub SupprimeLesFormesAutomatiqueDeLaFeuilleActive()
Dim i as integer

With ActiveSheet
For i = 1 to .count
.shapes(i).delete
Next
End with
End sub

John

a écrit dans le message de
news:064f01c3b5a0$a8a07a30$
Je voudrais savoir via Vba pour effacer tous les objets de
types rectangles (formes automatiques) d'une feuille de
calcul excel et ce en cliquant sur un bouton.


Avatar
-----Message d'origine-----
J'ai pâs testé mais essai un truc du genre (utilise
l'enregistreur pour

obtenir le vocabulaire dont tu as besoin, à adapter à ton
pbl)


Public sub SupprimeLesFormesAutomatiqueDeLaFeuilleActive()
Dim i as integer

With ActiveSheet
For i = 1 to .count
.shapes(i).delete
Next
End with



Je n'arrive pas avec cette formule, je suis débutant et je
ne comprend pas bien ce qu'il fo ke je fasse ...

Merci a ceux qui m'aideront.

Matt
End sub

John

a écrit dans le message de
news:064f01c3b5a0$a8a07a30$
Je voudrais savoir via Vba pour effacer tous les objets
de


types rectangles (formes automatiques) d'une feuille de
calcul excel et ce en cliquant sur un bouton.



.




Avatar
Dom
Bonjour,

Je voudrais savoir via Vba pour effacer tous les objets de
types rectangles (formes automatiques) d'une feuille de
calcul excel et ce en cliquant sur un bouton.



Private Sub CommandButton1_Click()

Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.AutoShapeType = msoShapeRectangle Then
s.Delete
End If
Next

End Sub

Avatar
Dom

-----Message d'origine-----
J'ai pâs testé mais essai un truc du genre (utilise


l'enregistreur pour

obtenir le vocabulaire dont tu as besoin, à adapter à ton


pbl)

Public sub SupprimeLesFormesAutomatiqueDeLaFeuilleActive()
Dim i as integer

With ActiveSheet
For i = 1 to .count
.shapes(i).delete
Next
End with




Je n'arrive pas avec cette formule, je suis débutant et je
ne comprend pas bien ce qu'il fo ke je fasse ...

Merci a ceux qui m'aideront.

Matt

End sub

John

a écrit dans le message de
news:064f01c3b5a0$a8a07a30$

Je voudrais savoir via Vba pour effacer tous les objets



de

types rectangles (formes automatiques) d'une feuille de
calcul excel et ce en cliquant sur un bouton.



.





Le bouton (CommandButton1) et les shapes (ronds ,
rectangles, ... ) dans la feuille 1 ( worksheets(1) )

La macro du bouton :

Private Sub CommandButton1_Click()

Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.AutoShapeType = msoShapeRectangle Then
s.Delete
End If
Next

End Sub