Effacer un dessin

Résolu/Fermé

simkmil Messages postés 434 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 13 mars 2024 - 19 févr. 2021 à 17:20
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 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.

A voir également:

3 réponses

Réponse 1 / 3

yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
19 févr. 2021 à 17:35

bonjour,
tu n'as aucun autre code lié à ce dessin?
peux-tu partager ton fichier?

Réponse 2 / 3

simkmil Messages postés 434 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 13 mars 2024 34
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.

yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
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 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477 > yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024
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:

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 434 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 13 mars 2024 34 > yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024
22 févr. 2021 à 12:12

Merci beaucoup, super !! ça fonctionne.
Impeccable. Merci encore
grâce à toi, j'avance vraiment bien sur ce projet.

Réponse 3 / 3

yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
22 févr. 2021 à 13:08

peux-tu alors marquer la discussion comme résolue?

Discussions similaires

Dessiner avec son clavier et avec des lettres

dessin de chat (avec le clavier)

Téléchargements gratuits de film et dessin a.

Pokémon X et Y : comment effacer une partie ?

téléchargé des films de dessins animés

Discussions similaires

Newsletters