XL 2019 Bouton commande macron

Lucio · 23 Juin 2021

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 · 23 Juin 2021

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 · 23 Juin 2021

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

melltel · 23 Juin 2021

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 · 23 Juin 2021

Bonjour Lucio, melltel,

melltel à dit:
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 · 23 Juin 2021

job75 à dit:
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 · 23 Juin 2021

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 · 23 Juin 2021

C'est assez évident :

VB:

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 · 23 Juin 2021

job75 à dit:

C'est assez évident :

VB:

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

XL 2019 Bouton commande macron

Lucio

XLDnaute Junior

melltel

XLDnaute Occasionnel

Lucio

XLDnaute Junior

melltel

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

melltel

XLDnaute Occasionnel

Lucio

XLDnaute Junior

job75

XLDnaute Barbatruc

Lucio

XLDnaute Junior

Discussions similaires