rectangle sur la feuille

Victor21

XLDnaute Barbatruc

Supporter XLD

• 13 Septembre 2014

• #2

Re : rectangle sur la feuille

Bonsoir, lolo44.

S'il s'agit de les supprimer, et à condition que ces rectangles soient les seuls objets de pa feuille :
Atteindre, cellules, objets, Ok, puis suppr.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Septembre 2014

• #3

Re : rectangle sur la feuille

Bonjour, lolo44, Victor21 😀, le Forum,

lolo44 à dit:

... en cliquant à différents endroits il y a des rectangle (noté rectangle 18) qui s'affichent...

Cliquez pour agrandir...

Pour leur suppression, un essai avec le code suivant :

Code:

Option Explicit
Sub Rectangle_supprimer()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
        If s.Name Like "Rectangle*" Then s.Delete
    Next
End Sub

Reste à comprendre d'où provient l'insertion automatique 😕 des formes.

A bientôt 🙂

 

Vote positif 0 Vote négatif

L

lolo44

XLDnaute Occasionnel

• 13 Septembre 2014

• #4

Re : rectangle sur la feuille

merci pour vos réponses, je fais un essai tout à l'heure et je vous tiens au courrant.
Merci bien
Lolo

 

Vote positif 0 Vote négatif

L

lolo44

XLDnaute Occasionnel

• 13 Septembre 2014

• #5

Re : rectangle sur la feuille

Super ça fonctionne
ça diminue fortement la taille de mes fichiers !
Par contre savez vous s'il est possible de faire atteindre- cellule-objet sur Mac ? car je ne trouve pas atteindre
Merci
Lolo

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Septembre 2014

• #6

Re : rectangle sur la feuille

Bonjour à tous

Sur PC c'est la touche F5 qui donne accès à atteindre : je pense que c'est idem sur MAC.

 

Vote positif 0 Vote négatif

L

lolo44

XLDnaute Occasionnel

• 14 Septembre 2014

• #7

Re : rectangle sur la feuille

merci
Parfait
Lolo

 

Vote positif 0 Vote négatif