Microsoft 365 Macro pour supprimer des emojis

[Perceval973]

Bonjour à tous

Je récupère des feuilles contenant des emojis dans un classeurs que je retravaille chaque jour (nettoyage, tris, etc...)
Cette feuille contient des emojis que j'aimerai supprimer en même temps que j'effectue mes opérations de nettoyages et de tris

Merci pour votre aide
Perceval

 

[Phil69970]

Bonjour @Perceval973

Et idem que sur ton autre question .....
J'ai pas vu ton fichier

 

[Perceval973]

Bonjour @Perceval973

Et idem que sur ton autre question .....
J'ai pas vu ton fichier

Bonjour,
C'est normal, je pense que la question ne le nécessite pas

 

[Phil69970]

@Perceval973

Bonne chance

 

[cathodique]

Bonjour,
C'est normal, je pense que la question ne le nécessite pas

Bonjour, Il faut rejoindre un forum de devin.

 

[Perceval973]

Bonjour, Il faut rejoindre un forum de devin.

Voici le fichier ;-)
Désolé...

 

[cathodique]

Voici le fichier ;-)
Désolé...

Je ne vois point de fichier.

 

[Perceval973]

Je ne vois point de fichier.

Désolé :-(
Le voici...

 

[Phil69970]

@Perceval973

Tu mets ce code dans le code de la feuille voir image (Si tu n'y arrives pas je mettrais le fichier)

Sub TestSupShape()
Dim s As Shape
For Each s In ActiveSheet.Shapes
    s.Delete
Next
End Sub

Merci de ton retour

 

[Perceval973]

@Perceval973

Tu mets ce code dans le code de la feuille voir image (Si tu n'y arrives pas je mettrais le fichier)

Sub TestSupShape()
Dim s As Shape
For Each s In ActiveSheet.Shapes
    s.Delete
Next
End Sub

Regarde la pièce jointe 1212054

Merci de ton retour

Cela fonctionne parfaitement 🙂
Merci pour ton aide 🙂

 

[job75]

Bonjour,

Au post #9 ActiveSheet est nécessaire si la macro est dans un module standard.

Dans le code de la feuille contenant lrs Shapes on peut l'éviter :

Sub TestSupShape()
Dim s As Shape
For Each s In Shapes
    s.Delete
Next
End Sub

A+

 

[Staple1600]

Bonjour le fil

Une autre solution (sans macro)
(Utilisable si le contenu des feuilles est comme dans l'exemple)
Appuyer sur F5
Cliquer sur Cellules
Puis cocher Objets et cliquer sur OK
Enfin appuyer sur Suppr

Ce qui donne pour les "clavierophiles" 😉
F5 ALT+C ALT+J ENTER SUPPR

Opération manuelle transcrite en VBA

Sub Macro1()
ActiveSheet.DrawingObjects.Delete
End Sub

NB: A n'utiliser que sur des feuilles ne contenant que des émojis et seulement des émojis
(que ce soit manuellement ou par macro)