Effacer un dessin
Résolu/Fermé
simkmil
Messages postés
481
Date d'inscription
mardi 19 février 2008
Statut
Membre
Dernière intervention
24 décembre 2024
-
19 févr. 2021 à 17:20
yg_be Messages postés 23473 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 février 2025 - 22 févr. 2021 à 13:08
yg_be Messages postés 23473 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 février 2025 - 22 févr. 2021 à 13:08
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 une page sur word - Guide
- Effacer les cookies - Guide
- Waptrick dessin animé ✓ - Forum Logiciels
- Dessin clavier zizi ✓ - Forum Programmation
- Effacer sauvegarde pokemon y ✓ - Forum DS
3 réponses
yg_be
Messages postés
23473
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
Ambassadeur
1 568
19 févr. 2021 à 17:35
19 févr. 2021 à 17:35
bonjour,
tu n'as aucun autre code lié à ce dessin?
peux-tu partager ton fichier?
tu n'as aucun autre code lié à ce dessin?
peux-tu partager ton fichier?
simkmil
Messages postés
481
Date d'inscription
mardi 19 février 2008
Statut
Membre
Dernière intervention
24 décembre 2024
35
19 févr. 2021 à 18:20
19 févr. 2021 à 18:20
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.
yg_be
Messages postés
23473
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
1 568
19 févr. 2021 à 18:43
19 févr. 2021 à 18:43
suggestion:
Sub Oter_signature() ' ' Oter_signature Macro Worksheets("Signature").Shapes("Forme libre : forme 1").Delete End Sub
yg_be
Messages postés
23473
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
1 568
>
yg_be
Messages postés
23473
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
19 févr. 2021 à 19:31
19 févr. 2021 à 19:31
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
simkmil
Messages postés
481
Date d'inscription
mardi 19 février 2008
Statut
Membre
Dernière intervention
24 décembre 2024
35
>
yg_be
Messages postés
23473
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
22 févr. 2021 à 12:12
22 févr. 2021 à 12:12
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.
yg_be
Messages postés
23473
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
Ambassadeur
1 568
22 févr. 2021 à 13:08
22 févr. 2021 à 13:08
peux-tu alors marquer la discussion comme résolue?