Effacer un dessin
Résolu
simkmil
Messages postés
504
Statut
Membre
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
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.
A voir également:
- Effacer un dessin
- Comment effacer un iphone - Guide
- Effacer les données de navigation sur android - Guide
- Comment effacer un compte gmail - Guide
- "Tukif." com effacer historique ordinateur apple - Forum Navigateur
- Comment effacer une page word - Guide
3 réponses
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.
https://www.cjoint.com/c/KBtrtvvuW1S
il est complet avec tout ce que tu m'as déjà appris jusqu'à présent.
merci beaucoup.
je 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:
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
Merci beaucoup, super !! ça fonctionne.
Impeccable. Merci encore
grâce à toi, j'avance vraiment bien sur ce projet.
Impeccable. Merci encore
grâce à toi, j'avance vraiment bien sur ce projet.