suprimer toute les images d'une feuille

wrap food · 26 Février 2014

Bonjour

je souhaiterais pouvoir supprimer, via une macro VBA, certaines "images" qui sont dans une feuille donnée..( cellule b5:c5)
je mets un exemple en PJ

Auriez vous la solution .

par avance merci

Chris401 · 26 Février 2014

Re : suprimer toute les images d'une feuille

Bonsoir

Une macro n'est peut-être pas nécessaire.

Tu cliques sur F5 (Atteindre)
Tu cliques sur "cellules" (en bas à gauche)
Tu coches "Objets" ==> OK

Tous tes objets de la feuille sont sélectionnés.
Tu maintient la touche Ctrl appuyée et tu sélectionnes les objet que tu ne veux pas supprimer.
Tu appuies sur Suppr

Cordialement
Chris

Regueiro · 26 Février 2014

Re : suprimer toute les images d'une feuille

Bonsoir

Code:

Sub EffaceMentShapeChamp()
   For Each s In ActiveSheet.Shapes
     If Not Intersect(s.TopLeftCell, Range("$B$5:$D$5")) Is Nothing Then
        s.Delete
     End If
   Next s
 End Sub

A+

suprimer toute les images d'une feuille

wrap food

XLDnaute Occasionnel

Pièces jointes

Chris401

XLDnaute Accro

Regueiro

XLDnaute Impliqué

Discussions similaires

suprimer toute les images d'une feuille

wrap food

XLDnaute Occasionnel

Pièces jointes

Chris401

XLDnaute Accro

Regueiro

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency