Est-ce possible d'optimiser ses macros.

Bonjour a tous; (DEBUTANT)

J'ai un fichier Excel avec Macros et USF, plus ca va et plus il prend de la place.
Je souhaiterai savoir si ces deux macros sont possibles d'être alléger afin de gagner en volume (taille de mon fichier Excel).

Code:

---

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 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135

Option Explicit   ' Calcul Numeros des actions preventives, Derniere intervention, Alerte, Moyenne entre intervention, ' Nombre d'intervention prevu pour affichage accueil, Delai en temps alerte et intervention   Sub CalPreventif() Dim i As Integer, Nbligne As Long, NbCellVide As Long, NbCellVide2 As Long, Ws2 As Worksheet ' Sheets("Preventif").Select 'effacement des données pour stats Intervention et alerte (AD ; ID ; AC ; IC) Range("A:C").ClearContents 'Teste de cellule non vide sur la colonne C NbCellVide = WorksheetFunction.CountBlank(Range(Cells(7, 4), Cells(2000, 4))) Range("C6") = 1994 - NbCellVide Nbligne = Range("C6") 'effacement des données pour calcul Colonne I,J,L,M,N,O Range("I7:J" & Nbligne).ClearContents Range("L7:O" & Nbligne).ClearContents 'Affecte Ws2 et la variable i va successivement prendre Derncellule vide Set Ws2 = Sheets("Compteur") For i = 7 To Nbligne + 6 'Ecrit dans la plage de cellules A les numeros des actions preventives. Cells(i, 1) = i - 6 'Ecrit dans la plage de cellules I (Affectation de la périodicité pour le calcul) et 'Ecrit dans la plage de cellules J (Affectation de la base d'arlerte pour le calcul) If Cells(i, 8) = "D" And Cells(i, 7) = "Quotidien" Then Cells(i, 9) = "1" Cells(i, 10) = "1" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Bihebdomadaire" Then Cells(i, 9) = "3" Cells(i, 10) = "0.99" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Hebdomadaire" Then Cells(i, 9) = "7" Cells(i, 10) = "0.85" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Mensuel" Then Cells(i, 9) = "30" Cells(i, 10) = "0.85" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Bimestriel" Then Cells(i, 9) = "61" Cells(i, 10) = "0.85" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Trimestriel" Then Cells(i, 9) = "91" Cells(i, 10) = "0.85" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Semestriel" Then Cells(i, 9) = "183" Cells(i, 10) = "0.85" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Annuel" Then Cells(i, 9) = "365" Cells(i, 10) = "0.85" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Bisannuel" Then Cells(i, 9) = "730" Cells(i, 10) = "0.85" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Triennal" Then Cells(i, 9) = "1096" Cells(i, 10) = "0.85" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Quadiennal" Then Cells(i, 9) = "1461" Cells(i, 10) = "0.85" End If If Cells(i, 8) = "D" And Cells(i, 7) = "Quinquennal" Then Cells(i, 9) = "1826" Cells(i, 10) = "0.85" End If If Cells(i, 8) = "C" Then Cells(i, 9) = Cells(i, 7) Cells(i, 10) = "0.95" End If 'Ecrit dans la plage de cellules L (Derniere intervention) If Cells(i, 16) <> "" And Cells(i, 8) = "D" Then Cells(i, 12) = Format(Application.max(Range(Cells(i, 16), Cells(i, 256))), "dd-mmm-yyyy") If Cells(i, 16) <> "" And Cells(i, 8) = "C" Then Cells(i, 12) = Format(Application.max(Range(Cells(i, 16), Cells(i, 256))), "0") 'Ecrit dans la plage de cellules M (Alerte) If Cells(i, 16) <> "" And Cells(i, 12) <> "0" And Cells(i, 8) = "D" Then Cells(i, 13) = Format(Format(Cells(i, 12), "standard") + (Cells(i, 9) * Cells(i, 10)), "dd-mmm-yyyy") If Cells(i, 16) <> "" And Cells(i, 12) <> "0" And Cells(i, 8) = "C" Then Cells(i, 13) = Format((Cells(i, 12) + Cells(i, 9)) * Cells(i, 10), "0") 'Ecrit dans la plage de cellules N (Intervention) If Cells(i, 16) <> "" And Cells(i, 12) <> "0" And Cells(i, 8) = "D" Then Cells(i, 14) = Format((Format(Cells(i, 12), "standard") + Cells(i, 9)), "dd-mmm-yyyy") If Cells(i, 16) <> "" And Cells(i, 12) <> "0" And Cells(i, 8) = "C" Then Cells(i, 14) = Format((Cells(i, 12) + Cells(i, 9)), "0") 'Ecrit dans la plage de cellules O (moyenne entre intervention) NbCellVide2 = WorksheetFunction.CountBlank(Range(Cells(i, 16), Cells(i, 256))) If Cells(i, 12) <> "0" And Cells(i, 8) = "D" And 241 - NbCellVide2 > 1 Then Cells(i, 15) = DateDiff("d", Cells(i, 16), Cells(i, 12)) / (240 - NbCellVide2) If Cells(i, 12) <> "0" And Cells(i, 8) = "C" And 241 - NbCellVide2 > 1 Then Cells(i, 15) = (Cells(i, 12) - Cells(i, 16)) / (240 - NbCellVide2) If Cells(i, 12) <> "0" And Cells(i, 8) = "D" And 241 - NbCellVide2 <= 1 Then Cells(i, 15) = "0" If Cells(i, 12) <> "0" And Cells(i, 8) = "C" And 241 - NbCellVide2 <= 1 Then Cells(i, 15) = "0"   'Ecrit dans la plage de cellules B et C If Cells(i, 16) = "" Then Cells(i, 2) = "I" Cells(i, 3) = "0" End If 'Ecrit dans la plage de cellules C (Delai en temps alerte et intervention) If Cells(i, 16) <> "" And Cells(i, 8) = "D" And Format(Date, "# ##0") >= Format(Cells(i, 13), "# ##0") And Format(Date, "# ##0") <= Format(Cells(i, 14), "# ##0") Then Cells(i, 3) = Format(Cells(i, 14), "# ##0") - Format(Date, "# ##0") & " jours" Cells(i, 2) = "A" End If If Cells(i, 16) <> "" And Cells(i, 8) = "D" And Format(Date, "# ##0") >= Format(Cells(i, 13), "# ##0") And Format(Date, "# ##0") >= Format(Cells(i, 14), "# ##0") Then Cells(i, 3) = Format(Date, "# ##0") - Format(Cells(i, 14), "# ##0") & " jours" Cells(i, 2) = "I" End If If Cells(i, 16) <> "" And Cells(i, 8) = "D" And Format(Date, "# ##0") < Format(Cells(i, 13), "# ##0") Then Cells(i, 3) = "" If Cells(i, 16) <> "" And Cells(i, 8) = "C" Then If Application.VLookup(Cells(i, 11), Ws2.Range("B3:E100"), 4, False) >= Cells(i, 13) And Application.VLookup(Cells(i, 11), Ws2.Range("B3:E100"), 4, False) <= Cells(i, 14) Then Cells(i, 3) = CStr(Cells(i, 14) - Application.VLookup(Cells(i, 11), Ws2.Range("B3:E100"), 4, False)) & " heures" Cells(i, 2) = "A" End If End If If Cells(i, 16) <> "" And Cells(i, 8) = "C" Then If Application.VLookup(Cells(i, 11), Ws2.Range("B3:E100"), 4, False) >= Cells(i, 13) And Application.VLookup(Cells(i, 11), Ws2.Range("B3:E100"), 4, False) >= Cells(i, 14) Then Cells(i, 3) = CStr(Application.VLookup(Cells(i, 11), Ws2.Range("B3:E100"), 4, False) - Cells(i, 14)) & " heures" Cells(i, 2) = "I" End If End If If Cells(i, 16) <> "" And Cells(i, 8) = "C" Then If Application.VLookup(Cells(i, 11), Ws2.Range("B3:E100"), 4, False) < Cells(i, 13) Then Cells(i, 3) = "" End If If Cells(i, 16) <> "" And Cells(i, 8) = "C" Then If Cells(i, 13) = "0" Then Cells(i, 3) = CStr(Application.VLookup(Cells(i, 11), Ws2.Range("B3:E100"), 4, False) - (Application.VLookup(Cells(i, 11), Ws2.Range("B3:E100"), 4, False))) & " heures" End If 'Ecrit dans les cellules le nombre d'intervention prevu pour affichage accueil If Cells(i, 2) = "A" And Cells(i, 8) = "D" Then Cells(2, 3) = Cells(2, 3) + 1 If Cells(i, 2) = "I" And Cells(i, 8) = "D" Then Cells(3, 3) = Cells(3, 3) + 1 If Cells(i, 2) = "A" And Cells(i, 8) = "C" Then Cells(4, 3) = Cells(4, 3) + 1 If Cells(i, 2) = "I" And Cells(i, 8) = "C" Then Cells(5, 3) = Cells(5, 3) + 1 Next i 'Met toutes les valeurs dans les cellules A:C en Blanc Range("A:C").Font.Color = RGB(255, 255, 255) End Sub

---

Code:

---

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 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417

Private Sub UserForm_Initialize() ' 'Déclaration des variables RX et RH Dim RW As Single, RH As Single 'Calcule le rapport de l'UserForm et la taille de l'écran RW = ScreenWidth * PointsPerPixel / Me.Width RH = ScreenHeight * PointsPerPixel / Me.Height 'Met l'UserForm en plein écran Me.Width = ScreenWidth * PointsPerPixel Me.Height = ScreenHeight * PointsPerPixel 'Déclaration de la variable Ctl qui correspond aux contrôles de ton UserForm Dim Ctl As MSForms.Control 'Permet de redimensionner tous tes contrôles présent sur l'UserForm en fonction de la taille de l'userForm et de la taille de l'écran For Each Ctl In Me.Controls Ctl.Move Ctl.Left * RW, Ctl.Top * RH, Ctl.Width * RW, Ctl.Height * RH Next 'fige la feuille pendant la procedure suivante Application.ScreenUpdating = False 'calcul pour mettre a jour les feuilles Module2.CalCompteur Module4.CalPreventif Module4.copie_coller 'Selectionne la feuille Sheets("Preventif").Select 'Test de valeur nul pour eviter erreur If Range("C6") <> 0 Then 'Chargement des Listview lvw2 lvw3 lvw4 lvw5 End If 'enleve fige feuille Application.ScreenUpdating = True End Sub   Private Sub UserForm_Activate() ' 'Centre l'userform Me.StartUpPosition = 2 End Sub   Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ' 'Ne peux pas se servir de la croix If CloseMode = vbFormControlMenu Then Cancel = True End Sub   Private Sub Stock1_Click() ' Unload Me Sheets("Accueil").Select Stock.Show End Sub   Private Sub Accueil1_Click() ' Unload Me Sheets("Accueil").Select Accueil.Show End Sub   Private Sub Options_Click() ' Outils.Show End Sub   Private Sub Accescompteur_Click() ' MaintenanceCompteur.Show BarreDeProgression.Show End Sub   Private Sub Accespreventifcomplet_Click() ' MaintenancePreventifComplet.Show BarreDeProgression.Show End Sub   Private Sub Imprimer_Click() ' MaintenanceImprimer.Show End Sub   Private Sub ListView2_DblClick() ' If ListView2.ListItems.Count <> 0 Then Sheets("Preventif").Select 'Range dans la cellule le double click Range("A6").Value = Maintenance.ListView2.SelectedItem x = Range("A6") 'Test pour lancement USF avec condition If Cells(x + 6, 8) = "D" Then MaintenanceInterCal.Show If Cells(x + 6, 8) = "C" Then MaintenanceInterCom.Show BarreDeProgression.Show Else End If End Sub   Private Sub ListView3_DblClick() ' If ListView3.ListItems.Count <> 0 Then Sheets("Preventif").Select 'Range dans la cellule le double click Range("A6").Value = Maintenance.ListView3.SelectedItem x = Range("A6") 'Test pour lancement USF If Cells(x + 6, 8) = "D" Then MaintenanceInterCal.Show If Cells(x + 6, 8) = "C" Then MaintenanceInterCom.Show BarreDeProgression.Show End If End Sub   Private Sub ListView4_DblClick() ' If ListView4.ListItems.Count <> 0 Then Sheets("Preventif").Select 'Range dans la cellule le double click Range("A6").Value = Maintenance.ListView4.SelectedItem x = Range("A6") 'Test pour lancement USF If Cells(x + 6, 8) = "D" Then MaintenanceInterCal.Show If Cells(x + 6, 8) = "C" Then MaintenanceInterCom.Show BarreDeProgression.Show End If End Sub   Private Sub ListView5_DblClick() ' If ListView5.ListItems.Count <> 0 Then Sheets("Preventif").Select 'Range dans la cellule le double click Range("A6").Value = Maintenance.ListView5.SelectedItem x = Range("A6") 'Test pour lancement USF If Cells(x + 6, 8) = "D" Then MaintenanceInterCal.Show If Cells(x + 6, 8) = "C" Then MaintenanceInterCom.Show BarreDeProgression.Show End If End Sub   Sub chargement() 'fige la feuille pendant la procedure suivante Application.ScreenUpdating = False 'calcul pour mettre a jour les feuilles Module2.CalCompteur Module4.CalPreventif Module4.copie_coller 'Selectionne la feuille Sheets("Preventif").Select 'Test de valeur nul pour eviter erreur If Range("C6") <> 0 Then 'Chargement des Listviews lvw2 lvw3 lvw4 lvw5 End If 'Selectionne la feuille et enleve fige feuille Application.ScreenUpdating = True End Sub   Sub lvw2() Dim plage As Range, c As Range ' 'Filtre 'Attention mettre outils/reference/Microcroft Windows Common controls 6 (SP6) sinon ne fonctionne pas ListView2.ListItems.Clear With Sheets("Alerteijours") Set plage = .Range(.[A6], .Cells(.Rows.Count, 15).End(xlUp)) .AutoFilterMode = False plage.AutoFilter 2, "I" plage.AutoFilter 8, "D" With .AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With 'remplissage de la listview With ListView2 Set plage = Sheets(5).AutoFilter.Range.Offset(1) Set plage = plage.Resize(plage.Rows.Count - 1, 1) If Application.Subtotal(103, plage) = 0 Then Exit Sub Set plage = plage.SpecialCells(xlCellTypeVisible) 'suppression des entêtes de colonne .ColumnHeaders.Clear 'mise en forme des colonnes With .ColumnHeaders .Clear .Add , , "Numéro d'actions", 0 .Add , , "État", 60 .Add , , "Ligne", 60 .Add , , "Équipements", 40 .Add , , "Interventions a faire", 60 .Add , , "Date derniere d'inter", 60 .Add , , "Prochaine inter", 60 .Add , , "Moyenne entre les inter", 60 End With .View = 3 ' type Report .Gridlines = True ' affichage de lignes .FullRowSelect = True ' sélection complète de la ligne .HideColumnHeaders = False ' afficher les en-têtes de colonnes .LabelEdit = 1 ' ne pas autoriser la saisie 'alimentation de la listview pour chaque ligne de la zone filtrée For Each c In plage 'ajout d'une ligne et de la valeur de la première colonne .ListItems.Add , , c.Offset(, 0).Value With .ListItems(.ListItems.Count) 'ajout de la valeur de la deuxième colonne .ListSubItems.Add , , c.Offset(, 2).Value .ListSubItems.Add , , c.Offset(, 3).Value .ListSubItems.Add , , c.Offset(, 4).Value .ListSubItems.Add , , c.Offset(, 5).Value .ListSubItems.Add , , c.Offset(, 11).Value .ListSubItems.Add , , c.Offset(, 13).Value .ListSubItems.Add , , c.Offset(, 14).Value End With Next c End With 'Spécifie l'affichage en mode "Détails" ListView2.View = lvwReport End Sub   Sub lvw3() Dim plage As Range, c As Range ' 'Filtre 'Attention mettre outils/reference/Microcroft Windows Common controls 6 (SP6) sinon ne fonctionne pas ListView3.ListItems.Clear With Sheets("Alerteiheures") Set plage = .Range(.[A6], .Cells(.Rows.Count, 15).End(xlUp)) .AutoFilterMode = False plage.AutoFilter 2, "I" plage.AutoFilter 8, "C" With .AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With 'remplissage de la listview With ListView3 Set plage = Sheets(6).AutoFilter.Range.Offset(1) Set plage = plage.Resize(plage.Rows.Count - 1, 1) If Application.Subtotal(103, plage) = 0 Then Exit Sub Set plage = plage.SpecialCells(xlCellTypeVisible) 'suppression des entêtes de colonne .ColumnHeaders.Clear 'mise en forme des colonnes With .ColumnHeaders .Clear .Add , , "Numéro d'actions", 0 .Add , , "État", 60 .Add , , "Ligne", 60 .Add , , "Équipements", 40 .Add , , "Interventions a faire", 60 .Add , , "Date derniere d'inter", 60 .Add , , "Prochaine inter", 60 .Add , , "Moyenne entre les inter", 60 End With .View = 3 ' type Report .Gridlines = True ' affichage de lignes .FullRowSelect = True ' sélection complète de la ligne .HideColumnHeaders = False ' afficher les en-têtes de colonnes .LabelEdit = 1 ' ne pas autoriser la saisie 'alimentation de la listview pour chaque ligne de la zone filtrée For Each c In plage 'ajout d'une ligne et de la valeur de la première colonne .ListItems.Add , , c.Offset(, 0).Value With .ListItems(.ListItems.Count) 'ajout de la valeur de la deuxième colonne .ListSubItems.Add , , c.Offset(, 2).Value .ListSubItems.Add , , c.Offset(, 3).Value .ListSubItems.Add , , c.Offset(, 4).Value .ListSubItems.Add , , c.Offset(, 5).Value .ListSubItems.Add , , c.Offset(, 11).Value .ListSubItems.Add , , c.Offset(, 13).Value .ListSubItems.Add , , c.Offset(, 14).Value End With Next c End With 'Spécifie l'affichage en mode "Détails" ListView3.View = lvwReport End Sub   Sub lvw4() Dim plage As Range, c As Range ' 'Filtre 'Attention mettre outils/reference/Microcroft Windows Common controls 6 (SP6) sinon ne fonctionne pas ListView4.ListItems.Clear With Sheets("Interventionajours") Set plage = .Range(.[A6], .Cells(.Rows.Count, 15).End(xlUp)) .AutoFilterMode = False plage.AutoFilter 2, "A" plage.AutoFilter 8, "D" With .AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With 'remplissage de la listview With ListView4 Set plage = Sheets(7).AutoFilter.Range.Offset(1) Set plage = plage.Resize(plage.Rows.Count - 1, 1) If Application.Subtotal(103, plage) = 0 Then Exit Sub Set plage = plage.SpecialCells(xlCellTypeVisible) 'suppression des entêtes de colonne .ColumnHeaders.Clear 'mise en forme des colonnes With .ColumnHeaders .Clear .Add , , "Numéro d'actions", 0 .Add , , "État", 60 .Add , , "Ligne", 60 .Add , , "Équipements", 40 .Add , , "Interventions a faire", 60 .Add , , "Date derniere d'inter", 60 .Add , , "Prochaine inter", 60 .Add , , "Moyenne entre les inter", 60 End With .View = 3 ' type Report .Gridlines = True ' affichage de lignes .FullRowSelect = True ' sélection complète de la ligne .HideColumnHeaders = False ' afficher les en-têtes de colonnes .LabelEdit = 1 ' ne pas autoriser la saisie 'alimentation de la listview pour chaque ligne de la zone filtrée For Each c In plage 'ajout d'une ligne et de la valeur de la première colonne .ListItems.Add , , c.Offset(, 0).Value With .ListItems(.ListItems.Count) 'ajout de la valeur de la deuxième colonne .ListSubItems.Add , , c.Offset(, 2).Value .ListSubItems.Add , , c.Offset(, 3).Value .ListSubItems.Add , , c.Offset(, 4).Value .ListSubItems.Add , , c.Offset(, 5).Value .ListSubItems.Add , , c.Offset(, 11).Value .ListSubItems.Add , , c.Offset(, 13).Value .ListSubItems.Add , , c.Offset(, 14).Value End With Next c End With 'Spécifie l'affichage en mode "Détails" ListView4.View = lvwReport End Sub   Sub lvw5() Dim plage As Range, c As Range ' 'Filtre 'Attention mettre outils/reference/Microcroft Windows Common controls 6 (SP6) sinon ne fonctionne pas ListView5.ListItems.Clear With Sheets("Interventionaheures") Set plage = .Range(.[A6], .Cells(.Rows.Count, 15).End(xlUp)) .AutoFilterMode = False plage.AutoFilter 2, "A" plage.AutoFilter 8, "C" With .AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With 'remplissage de la listview With ListView5 Set plage = Sheets(8).AutoFilter.Range.Offset(1) Set plage = plage.Resize(plage.Rows.Count - 1, 1) If Application.Subtotal(103, plage) = 0 Then Exit Sub Set plage = plage.SpecialCells(xlCellTypeVisible) 'suppression des entêtes de colonne .ColumnHeaders.Clear 'mise en forme des colonnes With .ColumnHeaders .Clear .Add , , "Numéro d'actions", 0 .Add , , "État", 60 .Add , , "Ligne", 60 .Add , , "Équipements", 40 .Add , , "Interventions a faire", 60 .Add , , "Date derniere d'inter", 60 .Add , , "Prochaine inter", 60 .Add , , "Moyenne entre les inter", 60 End With .View = 3 ' type Report .Gridlines = True ' affichage de lignes .FullRowSelect = True ' sélection complète de la ligne .HideColumnHeaders = False ' afficher les en-têtes de colonnes .LabelEdit = 1 ' ne pas autoriser la saisie 'alimentation de la listview pour chaque ligne de la zone filtrée For Each c In plage 'ajout d'une ligne et de la valeur de la première colonne .ListItems.Add , , c.Offset(, 0).Value With .ListItems(.ListItems.Count) 'ajout de la valeur de la deuxième colonne .ListSubItems.Add , , c.Offset(, 2).Value .ListSubItems.Add , , c.Offset(, 3).Value .ListSubItems.Add , , c.Offset(, 4).Value .ListSubItems.Add , , c.Offset(, 5).Value .ListSubItems.Add , , c.Offset(, 11).Value .ListSubItems.Add , , c.Offset(, 13).Value .ListSubItems.Add , , c.Offset(, 14).Value End With Next c End With 'Spécifie l'affichage en mode "Détails" ListView5.View = lvwReport End Sub

---

Je vous remercie par avance de vos réponses :ccool:


:merci:

Bonjour,

Quelle est la taille de ton fichier ?

Bonjour Daniel,

La taille de mon fichier global (feuilles + USF + Macros) est de 900 Ko.
J'utilise un nettoyeur de cellule avant de le sauvegarder sinon il depasse les 1200 Ko.


La taille de mon fichier seul sans les macros est de 475 Ko; Comprenant 5 feuilles. ( en pieces jointe) Est ce normal qu'il fasse cette taille.


Et les deux words que j'ai mis en piece jointe précédemment sont les plus lourds en taille. (Apres; est-ce que cela a son importance; je ne sais pas ?)

Cordialement

Bonjour,

Je n'ai pas gagné grand-chose. Regarde la pièce jointe.

Bonjour;

Merci Daniel
Sur quoi avez-vous agit pour reduire la taille du fichier ?

Donc après; la taille globale de mon fichier apres ne depend que des USF et des Macros.

Cordialement

Citation:

---

Sur quoi avez-vous agit pour reduire la taille du fichier ?

---

Je l'ai enregistré au format xlsb puis de nouveau au format xls. Le classeur (sans les macros et l'usf) faisait 97 ko avec ce format. Si tu as installé le pack de compatibilité 2007, tu pourrais travailler avec le format au format xlsb ?

Merci Daniel