Bonjour,
Il y a t'il moyen d'alléger un fichier puisque je viens de masquer des
lignes jusqu'à 66 000e ligne et je l'es ai fais réafficher et rien ne change
puisque depuis que j'ai masquer, le ficher, il a grossi de 2 meg
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
J'ai fait ceci dans un fichier totalement vide et le résultat est le même sans égard à la méthode utilisée.
"Masquer" ces lignes de cette manière, 19 Ko Feuil1.Range("A10:A65536").EntireRow.RowHeight = 0
Ou en utilisant la méthode Hidden, donne aussi 19 Ko Feuil1.Range("A10:A65536").EntireRow.Hidden = True
"Erico" a écrit dans le message de news:
Bonjour, Il y a t'il moyen d'alléger un fichier puisque je viens de masquer des lignes jusqu'à 66 000e ligne et je l'es ai fais réafficher et rien ne change puisque depuis que j'ai masquer, le ficher, il a grossi de 2 meg
Comment allèger?
Merci
J'ai fait ceci dans un fichier totalement vide et
le résultat est le même sans égard à la méthode utilisée.
"Masquer" ces lignes de cette manière, 19 Ko
Feuil1.Range("A10:A65536").EntireRow.RowHeight = 0
Ou en utilisant la méthode Hidden, donne aussi 19 Ko
Feuil1.Range("A10:A65536").EntireRow.Hidden = True
"Erico" <Erico@discussions.microsoft.com> a écrit dans le message de news:
3F1DE463-0AD3-4047-9B4C-787E4DE781AE@microsoft.com...
Bonjour,
Il y a t'il moyen d'alléger un fichier puisque je viens de masquer des
lignes jusqu'à 66 000e ligne et je l'es ai fais réafficher et rien ne change
puisque depuis que j'ai masquer, le ficher, il a grossi de 2 meg
J'ai fait ceci dans un fichier totalement vide et le résultat est le même sans égard à la méthode utilisée.
"Masquer" ces lignes de cette manière, 19 Ko Feuil1.Range("A10:A65536").EntireRow.RowHeight = 0
Ou en utilisant la méthode Hidden, donne aussi 19 Ko Feuil1.Range("A10:A65536").EntireRow.Hidden = True
"Erico" a écrit dans le message de news:
Bonjour, Il y a t'il moyen d'alléger un fichier puisque je viens de masquer des lignes jusqu'à 66 000e ligne et je l'es ai fais réafficher et rien ne change puisque depuis que j'ai masquer, le ficher, il a grossi de 2 meg
Comment allèger?
Merci
MichDenis
Une macro de Laurent Longre pour les fichiers obèses ...
'------------------------- Sub Nettoie() Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String On Error Resume Next Calc = Application.Calculation With Application .Calculation = xlCalculationManual .StatusBar = "Nettoyage en cours..." .EnableCancelKey = xlErrorHandler .ScreenUpdating = False End With For Each Sht In Worksheets If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2) If Not DCell Is Nothing Then Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear Set DCell = Nothing Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(,2) If Not DCell Is Nothing Then _ Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear End If Rien = Sht.UsedRange.Address End If Next Sht Application.StatusBar = False Application.Calculation = Calc End Sub '-------------------------
"Erico" a écrit dans le message de news:
Bonjour, Il y a t'il moyen d'alléger un fichier puisque je viens de masquer des lignes jusqu'à 66 000e ligne et je l'es ai fais réafficher et rien ne change puisque depuis que j'ai masquer, le ficher, il a grossi de 2 meg
Comment allèger?
Merci
Une macro de Laurent Longre pour les fichiers obèses ...
'-------------------------
Sub Nettoie()
Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String
On Error Resume Next
Calc = Application.Calculation
With Application
.Calculation = xlCalculationManual
.StatusBar = "Nettoyage en cours..."
.EnableCancelKey = xlErrorHandler
.ScreenUpdating = False
End With
For Each Sht In Worksheets
If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then
Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
If Not DCell Is Nothing Then
Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear
Set DCell = Nothing
Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(,2)
If Not DCell Is Nothing Then _
Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear
End If
Rien = Sht.UsedRange.Address
End If
Next Sht
Application.StatusBar = False
Application.Calculation = Calc
End Sub
'-------------------------
"Erico" <Erico@discussions.microsoft.com> a écrit dans le message de news:
3F1DE463-0AD3-4047-9B4C-787E4DE781AE@microsoft.com...
Bonjour,
Il y a t'il moyen d'alléger un fichier puisque je viens de masquer des
lignes jusqu'à 66 000e ligne et je l'es ai fais réafficher et rien ne change
puisque depuis que j'ai masquer, le ficher, il a grossi de 2 meg
Une macro de Laurent Longre pour les fichiers obèses ...
'------------------------- Sub Nettoie() Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String On Error Resume Next Calc = Application.Calculation With Application .Calculation = xlCalculationManual .StatusBar = "Nettoyage en cours..." .EnableCancelKey = xlErrorHandler .ScreenUpdating = False End With For Each Sht In Worksheets If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2) If Not DCell Is Nothing Then Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear Set DCell = Nothing Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(,2) If Not DCell Is Nothing Then _ Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear End If Rien = Sht.UsedRange.Address End If Next Sht Application.StatusBar = False Application.Calculation = Calc End Sub '-------------------------
"Erico" a écrit dans le message de news:
Bonjour, Il y a t'il moyen d'alléger un fichier puisque je viens de masquer des lignes jusqu'à 66 000e ligne et je l'es ai fais réafficher et rien ne change puisque depuis que j'ai masquer, le ficher, il a grossi de 2 meg
Comment allèger?
Merci
Erico
Ça quasiment rien changer.
Merci quant meme!
"MichDenis" a écrit dans le message de news:
Une macro de Laurent Longre pour les fichiers obèses ...
'------------------------- Sub Nettoie() Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String On Error Resume Next Calc = Application.Calculation With Application .Calculation = xlCalculationManual .StatusBar = "Nettoyage en cours..." .EnableCancelKey = xlErrorHandler .ScreenUpdating = False End With For Each Sht In Worksheets If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2) If Not DCell Is Nothing Then Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear Set DCell = Nothing Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(,2) If Not DCell Is Nothing Then _ Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear End If Rien = Sht.UsedRange.Address End If Next Sht Application.StatusBar = False Application.Calculation = Calc End Sub '-------------------------
"Erico" a écrit dans le message de news:
Bonjour, Il y a t'il moyen d'alléger un fichier puisque je viens de masquer des lignes jusqu'à 66 000e ligne et je l'es ai fais réafficher et rien ne change puisque depuis que j'ai masquer, le ficher, il a grossi de 2 meg
Comment allèger?
Merci
Ça quasiment rien changer.
Merci quant meme!
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eNPZLQQYHHA.596@TK2MSFTNGP06.phx.gbl...
Une macro de Laurent Longre pour les fichiers obèses ...
'-------------------------
Sub Nettoie()
Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String
On Error Resume Next
Calc = Application.Calculation
With Application
.Calculation = xlCalculationManual
.StatusBar = "Nettoyage en cours..."
.EnableCancelKey = xlErrorHandler
.ScreenUpdating = False
End With
For Each Sht In Worksheets
If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then
Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
If Not DCell Is Nothing Then
Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear
Set DCell = Nothing
Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(,2)
If Not DCell Is Nothing Then _
Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear
End If
Rien = Sht.UsedRange.Address
End If
Next Sht
Application.StatusBar = False
Application.Calculation = Calc
End Sub
'-------------------------
"Erico" <Erico@discussions.microsoft.com> a écrit dans le message de news:
3F1DE463-0AD3-4047-9B4C-787E4DE781AE@microsoft.com...
Bonjour,
Il y a t'il moyen d'alléger un fichier puisque je viens de masquer des
lignes jusqu'à 66 000e ligne et je l'es ai fais réafficher et rien ne
change
puisque depuis que j'ai masquer, le ficher, il a grossi de 2 meg
Une macro de Laurent Longre pour les fichiers obèses ...
'------------------------- Sub Nettoie() Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String On Error Resume Next Calc = Application.Calculation With Application .Calculation = xlCalculationManual .StatusBar = "Nettoyage en cours..." .EnableCancelKey = xlErrorHandler .ScreenUpdating = False End With For Each Sht In Worksheets If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2) If Not DCell Is Nothing Then Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear Set DCell = Nothing Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(,2) If Not DCell Is Nothing Then _ Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear End If Rien = Sht.UsedRange.Address End If Next Sht Application.StatusBar = False Application.Calculation = Calc End Sub '-------------------------
"Erico" a écrit dans le message de news:
Bonjour, Il y a t'il moyen d'alléger un fichier puisque je viens de masquer des lignes jusqu'à 66 000e ligne et je l'es ai fais réafficher et rien ne change puisque depuis que j'ai masquer, le ficher, il a grossi de 2 meg