XL 2019 Bouton commande macron

[Lucio]

Bonjour,

Quel code puis-je mettre pour effacer toutes les images ou photos qui se trouvent sur tout mon classeur excel? J'ai un bouton de commande sur ma page d'accueil et j'aimerais effacer les photos sur mes 100 onglets. De plus, serait il possible d'y intégrer un user form demandant de confirmer la suppression ?
Merci de votre aide

 

[melltel]

bjr Lucio
je ne sais pas si je répond a ta demande mais pour effacer un truc, moi je met ce code et sa efface le contenu de la zone de saisie ou de texte.
Private Sub Annuler_les_modifications_Click()
'R06b_VUE = ""
End sub

 

[Lucio]

Merci de ta réponse. Est-ce que ce code efface qu'une seule feuille? R06b ca représente quoi?

 

[melltel]

ce code vide ou efface ta cellule si elle a été chargée.
R06b répresente le nom de la cellule a vider comme tu n'as pas mis d'exemple, j'ai pris un tric o piff

 

[job75]

Bonjour Lucio, melltel,

R06b répresente le nom de la cellule a vider comme tu n'as pas mis d'exemple, j'ai pris un tric o piff

Oui vraiment o piff car R06b_VUE = "" ne fonctionne pas, il faut [R06b_VUE] = ""

Par ailleurs Lucio parle d'images, pas de cellule.

A+

 

[melltel]

Bonjour Lucio, melltel,

Oui vraiment o piff car R06b_VUE = "" ne fonctionne pas, il faut [R06b_VUE] = ""

Par ailleurs Lucio parle d'images, pas de cellule.

A+

ahhhh okay. désolé lucio mais jusqu'ici je ne sais pas comment effacer les images car je débute en VBA.

 

[Lucio]

En fait j'arrive à effacer le contenu d'une feuille active avec un bouton de commande sur cette même feuille par le code suivant :

Private Sub CommandButton2_Click()
Dim Obj As Shape

'Boucle sur les formes contenues dans la feuille
For Each Obj In Worksheets("2").Shapes
If Obj.Type = msoPicture Then Obj.Delete
Next Obj
End Sub

Par contre, j'aimerais pouvoir effacer toutes les images du classeur depuis une seule feuille (ex: bouton de commande sur feuille 1 qui efface les feuilles 2 à100) et la possibilité d'avoir un message box qui demande d'être sûr de la suppression.

 

[job75]

C'est assez évident :

Private Sub CommandButton2_Click()
Dim w As Worksheet, Obj As Shape
For Each w In Worksheets
    For Each Obj In w.Shapes
        If Obj.Type = msoPicture Then Obj.Delete
Next Obj, w
End Sub

 

[Lucio]

C'est assez évident :

Private Sub CommandButton2_Click()
Dim w As Worksheet, Obj As Shape
For Each w In Worksheets
    For Each Obj In w.Shapes
        If Obj.Type = msoPicture Then Obj.Delete
Next Obj, w
End Sub

Merci de ta réponse mais ca ne marche pas