Discussion :

[Del4king]

Mon problème est simple. Je génère une feuille dans laquelle je relie des cellules par des fléches :
ActiveSheet.Shapes.AddLine(x,x,x,x)

Seulement, chaque fois que je génère cette feuille, je la reinitialise d'abord et je ne sais pas comment selectionner toutes les fleches que j'ai crées auparavant, pour pouvoir les effacer

Merci de votre aide

[jfontaine]

Essai comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim sh As Shape
 
For Each sh In Me.Shapes
 
    sh.Delete
 
Next

[Del4king]

Merci, j'avais trouvé plus brutal mais efficace également vu la configuration de mon problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.DrawingObjects.Select
Selection.Delete

Je suis pas bien habitué aux variables de type "shape"
J'y penserai la prochaine fois, merci encore