Discussion :

[Akawa91]

Bonjour tout le monde

Pour ma facturation, j'ai un classeur "Bon d'intervention" qui comprend mon logo de société dans le haut a gauche du document, des macros et dans le bas de la feuille, la signature du client "dessiner" via l'onglet Dessin d'Excel et qui est superposé sur plusieurs cellules.

Je souhaite faire une macro pour supprimer uniquement la signature du client. Quand j'enregistre une macro, le code me donne ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.Range(Array("Ink 9")).Select

Mais elle ne fonctionne pas. Je ne m'y connais pas beaucoup en VBA.

Pourriez-vous un peu m'aider ?

Merci

[joe.levrai]

Bonjour,

est-ce que ta shape portera toujours le même nom ?

Si oui :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.Range(Array("Ink 9")).Delete

(attention, on travaille ici sur la feuille active !)

si non : il faut que tu listes tous tes shapes présents dans la feuille, pour détecter celui qui n'est pas récurrent

Par exemple, tu as deux shapes fixes appelés "toto" et "tata", on veut supprimer le troisième (la signature du client) dont on ne connait pas le nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
    For Each forme In ActiveSheet.Shapes
        If forme.Name <> "toto" And forme.Name <> "tata" Then forme.Delete
    Next forme
End Sub

[Akawa91]

Merci @joe.levrai ca fonctionne ! Mais, ça supprime également mes validations de données.

Une idée pour éviter ca ?

Merci

[Tête de chat]

Bonsoir,
il faut adapter le code de joe.levrai et remplacer toto et tata (et plus de or si besoin) par le nom des images que tu veux conserver...

Pour trouver le nom des images, clique dessus et regarde sous le ruban à gauche :

[Akawa91]

Oui oui ca je sais, j'ai dis que ca fonctionnait. Mais la ou je dis que ca ne fonctionne pas, c'est que ca supprime des listes déroulantes avec validation de donné.

Relis ce que j'ai écris

[Tête de chat]

Bonjour

Relis ce que j'ai écrit

Oups

Utilise la même boucle pour recupérer tous les noms des shapes et fais le tri :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub ListeShapes()
Dim MaShape As Shape
For Each MaShape In ActiveSheet.Shapes
    Debug.Print MaShape.Name
Next MaShape
End Sub