Supprimer des formes VBA
Bonjour,
Voici mon problème, je cherche à supprimer des formes tracées à chaque fois que je clique sur le bouton calculer.
L'utilisateur rentre des valeurs de B et H pour un rectangle et un dessin mis a l'échelle montre la forme de celui-ci, et je voudrai que lorsque l'utilisateur change les valeurs pour relancer le calcul ces dessins soient supprimés ou du moins remplacés par les nouvelles valeurs. Voici la formule que j'utilise actuellement :
Private Sub CommandButton1_Click()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1050, 285, 10 * 20, 30 * 70).Select
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1300, 285, 10 * 100, 30 * 70).Select
End Sub
b = 10 et h = 30 ,les coefficient multiplicateurs sont pour l'échelle.
Merci d'avance.
Ps : Je n'arrive pas à joindre mon fichier ...
- Messages
- 1'794
- Excel
- 2010
- Inscrit
- 25/08/2014
- Emploi
- Consultant VB6 / SQL / VBA / Excel / Access
Bonjour,
Les formes ont besoin d'être nommées lors de leur création, pour pouvoir ensuite les supprimer.
Lors de la création de la forme : attribution d'un nom
Lors du nouveau lancement, suppression des 2 formes, avant de créer les nouvelles.
cf exemple en PJ, à adapter (lancement par le bouton violet)
L'autre solution est de supprimer toutes les formes de la feuille, sans critère.
Attention, cela supprimera tout, y compris d'éventuels boutons ou autre.
cf procédure "SupprimerTout", avec une boucle sur toutes les formes).
=> En exécutant cette procédure, les formes sont supprimées, y compris le bouton violet..
Bouben
Ah parfait merci beaucoup