rectangle sur la feuille

[lolo44]

Bonjour,
J'ai un problème. Sur une feuille excel en cliquant à différents endroits il y a des rectangle (noté rectangle 18) qui s'affichent. Ce qui me pose des problèmes pour les copier/coller notemment car ça augmente la taille des fichiers de façon très conséquente. Comment je peux repérer tous les rectangles et les supprimer . Merci beaucoup pour votre aide. D'ailleurs je ne peux pas joindre le fichier car trop gros surement à cause de tous ces rectangles ....
Lolo

 

[Victor21]

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.

 

[DoubleZero]

Re : rectangle sur la feuille

Bonjour, lolo44, Victor21 😀, le Forum,

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

Pour leur suppression, un essai avec le code suivant :

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 🙂

 

[lolo44]

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

 

[lolo44]

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

 

[chris]

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.

 

[lolo44]

Re : rectangle sur la feuille

merci
Parfait
Lolo