effacer shapes vba

[exceldu13]

bonjour,

je voudrai effacer toute les shapes à l'ouverture d'un onglet. je précise que le shape sur trouve dans l'onglet en question.


merci de votre aide

 

[pierrejean]

Re : effacer shapes vba

Bonjour exceldu13

Private Sub Worksheet_Activate()
For n = ActiveSheet.Shapes.Count To 1 Step -1
  ActiveSheet.Shapes(n).Delete
Next n
End Sub

 

[Guest]

Re : effacer shapes vba

Bonjour,

Question maintes fois traitées dont au moins une fois il y a 2 jours. faire une recherche sur le forum.

A+

[Edit]Hello Pierre-Jean

 

[Odesta]

Re : effacer shapes vba

Bonjour à tous

Bon, forcement je suis pas le plus rapide !

Sub auto_open()


Dim mes_formes As Object

For Each mes_formes In ActiveSheet.Shapes

mes_formes.Delete

Next

End Sub

Cdt

Olivier

 

[exceldu13]

Re : effacer shapes vba

bonjour,

merci pour vos réponses elles marchent impeccable

problème résolu grâce à vous.

 

[Pierrot93]

Re : effacer shapes vba

Bonjour à tous,

il y a également ceci :

Feuil1.DrawingObjects.Delete

bon après midi
@+

 

[exceldu13]

Re : effacer shapes vba

encore plus simple... c'est celui que je préfère pour mon code.

 

[Odesta]

Re : effacer shapes vba

Re

J'ai vu une fois, un fichier de 4 mégas, alors qu'il était vide ! En apparence du moins : une forme réctangulaire, qui contenait du texte, écrasée dans tous les sens et réduite à l'état de point, dans le croisement des volets vertical et horizontal, se retrouvait dupliquée par le programme vba.
Lorsque le fichier commenca à devenir trop gros, je me suis mis à l'éplucher (c'est ce fichier qui m'a "lancé" dans la programmation VBA) et à tout virer : 4 mégas plus tard, je comprennais d'où venait le problème.

Donc les shapes invisible : c'est le mal !

Fin de l'histoirette d'olivier



Cdt

EDIT : un peu trop de fautes