Des feuilles avec kb invisibles

[francis]

Bonjour tout le monde,

Sur ma feuille n1 j'introduit des donnees que je ventile ensuite au moyen d une macro sur les feuilles 2,3,4.... Lorsque 'j'introduit les donnees ma feuille 1 pese 14kb.
Une fois ventilees les donnees et traitees dans chaque feuille, je les rapatrie sur la feuille 1 au moyen d'une autre macro.
Et la 1ere surprise la feuille 1 pese 905 kb.
J'efface toutes les donnees et 2ieme surprise la feuille pese 864 kb (piece jointe) alors qu'il n'y a plus rien dessus.

Quelqu'un sait-il ou se cachent les kb?

Je continuerais bien a utiliser mon fichier avec ses kb en plus, mais le probleme c'est qu'ils me ralentissent enormement les macros, au point qu'il me faut 1 heures pour traiter la meme quantite de donnees que je faisait avant en 7/8 mn.

Par avance merci pour votre aide

 

[myDearFriend]

Bonsoir Francis (Bleck), le Forum.


Les kb que tu cherches sont représentés par les quelques 1802 (!!!) objets "image" qui sont encore présents sur ta feuille.... Ces objets sont réduits à leur minimum mais toujours présents sur ta feuille...

Pour t'en assurer, copie et lance la procédure ci-dessous :

Sub AfficheObjets()
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Width = 20
Selection.ShapeRange.Height = 20
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Visible = msoTrue
MsgBox "Objets présents sur la feuille : " & ActiveSheet.Shapes.Count
End Sub



Cordialement,
Didier_mDF

 

[francis]

Merci Didier pour tes explications.
Peux tu me dire s'il est possible de creer une procedure qui elimine ces objets presents sur toutes les feuilles du livre?
je sais que je peux le faire avec ta procedure mais il me faut le faire feuille par feuille et a chaque fois qu'ils apparaissent (je pense qu'ils sont sur le service online ou je les copies). Peut etre y a t'il une solution plus rapide.
Encore merci
Francis

 

[myDearFriend]

Re Francis,


Pour supprimer l'ensemble des Shapes du classeur :

Sub SupprShapes()
Dim F As Worksheet
Dim AF As Worksheet
Application.ScreenUpdating = False
'Mémorise la feuille en cours
Set AF = ActiveSheet
'Pour chaque feuille du classeur, supprime les Shapes
For Each F In ThisWorkbook.Sheets
F.Activate
F.Shapes.SelectAll
Selection.Delete
Next F
'Réactive la feuille de départ
AF.Activate
Application.ScreenUpdating = True
End Sub


Cordialement,
Didier_mDF

 

[francis]

Merci Didier,
Ta procedure marche a merveille, et meme trop bien car elle m'efface aussi les boutons de mes macros. Je crois que je vais donc opter pour le feuille a feuille.
Encore merci a toi et bonne nuit a tout le monde
Francis

 

[myDearFriend]

Bonjour Francis, le Forum.


Ci-dessous une procédure qui supprimera seulement les Objets "image" cette fois :
Sub SupprShapes()
Dim F As Worksheet
Dim I As Shape
Dim AF As Worksheet
Dim N As Integer
Application.ScreenUpdating = False
'Mémorise la feuille en cours
Set AF = ActiveSheet
'Pour chaque feuille du classeur, supprime les Objets "image"
For Each F In ThisWorkbook.Sheets
F.Activate
For Each I In F.Shapes
If I.Type = msoPicture Then
N = N + 1
I.Delete
End If
Next I
Next F
'Réactive la feuille de départ
AF.Activate
Application.ScreenUpdating = True
MsgBox N & " Objets ""image"" supprimés"
End Sub
Attention, le temps de traitement peut être assez long...


Nb : on va y arriver lol !

Cordialement,
Didier_mDF

 

[francis]

Merci Didier, le resultat est tout simplement parfait.
Ce forum est reellement genial.
A bientot , et salut a tous.

 

[francis]

Salut a tous,
et plus particulierement a didier,
Tout marchait impeccable et d'un seul coup, finis. La derniere macro (pour eliminer dans tout le livre) ne reconnait plus les images. Dans le fichier joint j'ai utilisé la premiere macro pour les faire apparaitre, mais quand j'utilise la derniere elle me dit qu'elle n'a trouvé aucune image.
Comme la macro n'a pas ete modifiée, j'opterais pour un changement du format des images, mais je ne sais comment le corriger. Je m'en remets a votre grand savoir et vous remercie par avance
A+