Discussion :

[Amiral19]

J'avance tout doucement dans une macro qui crée des feuilles et des tableaux à partir de modèles situés dans le même classeur.

Le problème que j'ai, c'est que la taille du fichier devient vite incroyable (plusieurs MO) alors que ce ne sont que des tableaux copiés-collés... Ceci a pour effet gênant de ralentir la mnipulation de ses tableaux, et évidemment le transport du fichier

Si quelqu'un a une idée pour limiter ce phénomène.

Voici le code qui crée les tableaux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Sub Création()
 
'Vidage des feuilles
 
    For Each Feuille In ActiveWorkbook.Worksheets
        If Left(Feuille.Name, 7) = "Produit" Or Left(Feuille.Name, 9) = "Resultats" Then
            Application.DisplayAlerts = False
            Feuille.Delete
            Application.DisplayAlerts = True
        End If
    Next Feuille
 
'déclaration des variables
    Sheets("évaluation_produit").Activate
 
    Dim modele As Range
    Set modele = Range("modele")
 
    Dim modele2 As Range
    Set modele2 = Range("modele2")
 
    Dim CellCour As Range
 
    Dim NbProd As Integer
    NbProd = Range("NbProd").Value
    Dim NbT As Integer
    NbT = Range("NbT").Value
    Dim NbZone As Integer
    NbZone = Range("NbZone").Value
 
 
    Dim CellCourr As Range
 
    Dim CellCoura As Range
 
    Dim p As Integer
    Dim z As Integer
    Dim t As Integer
 
 
 
For p = 1 To NbProd
 
    Set sh = ActiveWorkbook.Sheets.Add
    sh.Name = ("Produit" & p)
    sh.Move Before:=Sheets(4 + p)
    Set CellCour = Range("A3")
    Set sg = ActiveWorkbook.Sheets.Add
    sg.Name = ("Resultats" & p)
    sg.Move Before:=Sheets(4 + 2 * p)
    Set CellCoura = Range("A1")
    For z = 1 To NbZone
        For t = 1 To NbT
'création des tableaux d'évaluation
            sh.Activate
            modele.Copy
            CellCour.Activate
            ActiveSheet.Paste
            CellCour.Value = ("T" & t)
            CellCour.OffSet(1, 0).Value = ("zone" & z)
            Set CellCour = CellCour.OffSet(11, 0)
'création des tableaux de calculs résultats
            sg.Select
            modele2.Copy
            CellCoura.Select
            ActiveSheet.Paste
            CellCoura.OffSet(2, 0).Value = ("T" & t)
            CellCoura.OffSet(3, 0).Value = ("Zone" & z)
            Set CellCoura = CellCoura.OffSet(13, 0)
        Next
        Set CellCoura = Range("A1").OffSet(0, 28 * z)
        sh.Select
        Set CellCour = Range("A3").OffSet(0, 12 * z)
    Next
Next
 
 
    Application.CutCopyMode = False
End Sub

[Amiral19]

Autre chose : la ligne "ActiveSheet.Paste" prend toujours beaucoup de temps à s'éxécuter.
Au départ, il y avait des tas de liaisons vers d'autres cellules dans les tableaux à copier, mais je les ais enlevées.
Je ne comprends vraiment pas pourquoi c'est si long, et si gros !
Quelqu'un a-t-il une idée ?

Merci d'avance

[Swiper]

Si jamais tu copies les feuilles entières et que tu les colles alors t'as trouver totn problème. ^^

[Amiral19]

J'ai trouvé pourquoi mes tableaux avaient une taille colossale !
Vous me croirez si vous voudrez, mais en voici la raison :

Entre les lignes s'étaient glissées une quantité d'images, réduites à l'épaisseur d'un trait, et positionnnées juste sur l'interligne, de sorte qu'on ne les voyait pas.
Par hasard, j'ai cliqué sur l'une d'elles, et par curiosité l'ai agrandie. Il s'agissait d'un smiley grimaçant. Sous elle une seconde, puis une troisième... (Le nom de la première image était 2452 je crois... ). Le fin du fin, c'est que c'étaient des images différentes : le smiley est de plus en plus souriant !

Voilà. J'ai donc résolu mon problème, mais çà me fait rire jaune !

PS : pour ceux que çà intéresse, cette discussion fait suite à celle intitulée " réduire la taille d'un fichier".

[Amiral19]

Salut Swiper,

J'ai trouvé la solution de mon problème (cf discussion "Virus ou blague de MicroSoft").

Mais pourquoi ne faut-il pas copier des feuilles entières ?

[alsimbad]

les images sont comme ça parce que dans propriété elle sont défini comme : déplacer et dimensionner avec les cellules, et que les lignes sur lesquelles elle étaient, ont été effacée.
question a 1 euro
si

Cette discussion fait suite à celle intitulée " réduire la taille d'un fichier".

pourquoi ne pas l'avoir écrite à la suite?

[Amiral19]

Pour les images : ce sur quoi je n'ai pas insisté c'est que je n'ai aucune idée d'où peuvent sortir ces images. Effectivement, le redimensionnement ne m'aurait que moyennement étonné...

Pour la réponse à 1 euro : Parce que vu l'étrangeté (à mes yeux novices) de la chose, çà me semblait faire l'objet d'une nouvelle discussion. J'ai gagné ?

[zazaraignée]

Non, Perdu! Désolée!

Vu que c'est en fait la solution de ton problème de l'autre message.

Je fusionne donc les deux.

[Amiral19]

Ok zazaraignée !
J'ai encore bien des choses à apprendre avant de devenir un vrai membre du club !
N'empêche que je trouve cette histoire assez intrigante... Et puis je me demande si les développeurs de MS sont capables de glisser ce genre de petites blgues dans leur code, ou si j'ai attrapé çà ailleurs.

[zazaraignée]

Et moi donc!

Ces images, elles n'étaient pas dans le fichier d'origine sur lequel tu as fait tes copier (avant de faire le coller) ?

[Amiral19]

eh non !
J'en suis sur, puisque c'est moi qui ai crée le fichier d'origine !

[alsimbad]

sans faire aucun copié coller?

[Amiral19]

Si effectivement, j'ai copié le modèle de ce petit tableau à partir d'un autre fichier. Mais je l'ai encore ce fichier original, et pas de trace d'image dedans.
Néanmoins, je dois bien avouer que même si je vois mal son auteur avoir glissé ce genre de blagues, je ne sais pas d'où il a lui même tiré un éventuel modèle.
Enfin, je le répète, pas de trace (visible) de ces smileys dans ledit fichier original.

Bref ! J'imagine que j'ai chopé une sorte de virus quelque part. non ?