Effacer un dessin
Résolu
Bonjour,
sur une feuille, j'ai dessiné un rectangle de D4 à Q26
Dans ce rectangle, je fais un dessin (une signature!)
Avec un bouton, je voudrais l'effacer (afin de passer à la suivante ...)
J'ai fais le code suivant :
Range("D4:Q26").Select
Selection.ClearContents
ActiveSheet.Shapes.Range(Array("Freeform 3")).Select
Selection.Delete
Mais cela cale au niveau de "Freeform3" qui je suppose change à chaque fois!
que pourrais-je faire ?
Merci de votre aide.
sur une feuille, j'ai dessiné un rectangle de D4 à Q26
Dans ce rectangle, je fais un dessin (une signature!)
Avec un bouton, je voudrais l'effacer (afin de passer à la suivante ...)
J'ai fais le code suivant :
Range("D4:Q26").Select
Selection.ClearContents
ActiveSheet.Shapes.Range(Array("Freeform 3")).Select
Selection.Delete
Mais cela cale au niveau de "Freeform3" qui je suppose change à chaque fois!
que pourrais-je faire ?
Merci de votre aide.
3 réponses
-
Contributeurbonjour,
tu n'as aucun autre code lié à ce dessin?
peux-tu partager ton fichier? -
Merci, non rien d'autre lié à ce dessin. Je t'envoie mon fichier.
https://www.cjoint.com/c/KBtrtvvuW1S
il est complet avec tout ce que tu m'as déjà appris jusqu'à présent.
merci beaucoup.-
-
Contributeur@yg_beje pense que le soucis vient de la méthode que tu utilises pour ajouter dans Excel le dessin à partir de la tablette. je ne vois pas comment modifier cette méthode pour contrôler le nom du dessin créé.
je propose plutôt ceci, qui va supprimer tous les dessins de la feuille Signature:Sub Oter_signature() ' ' Oter_signature Macro ' Dim sh As Shape For Each sh In Worksheets("Signature").Shapes If sh.Type = msoFreeform Then sh.Delete End If Next sh End Sub -
-
-
Contributeurpeux-tu alors marquer la discussion comme résolue?
