Affichage + de 1 millions de lignes Résolu

Question

Bonjour à tous, 

Je ne sais pas par quelle manipulation je suis arrivé à avoir le résultat suivant:
J'ai un tableau qui fait 3000 lignes.
Mail l'ascenseur à droite m'amène jusqu'à la ligne 1.045.160.
Très difficile de naviguer avec l'ascenseur. J'utilise le control G, mais je voudrais retrouver ma feuille comme avant.
Comment faire pour revenir à l'affichage normal.
Merci d'avance

cousinhub29 · Accepted Answer

Bonsoir,

Ceci peut arriver lorsque tu as fait référence à toute ta feuille de calcul, parfois par mégarde.....

Une solution :

Tu vas à ta dernière ligne active (soit vers la 3000 ème ligne)

Tu sélectionnes ta ligne entière (soit la 3001 ème ligne)

Tu cliques simultanément sur Ctrl + Shift + Flèche Bas (tu as alors sélectionné toutes les lignes vides du dessous de ton tableau)

Clic droit, puis "Supprimer"

Enregistre, Ferme le fichier, et ré-ouvre.....

Bonne soirée

freesta · Answer

sur quoi?

antipolis a · Answer

Bonjour.


Il doit y avoir une cellule non vide à la ligne 1 045 160.

Sélectionner et supprimez tout les lignes de 3 001 à 1 045 160.


Cordialement.

Mytå · Answer

Salut le forum 

Une petite macro VBA, pour faire le ménage, de Laurent Longre 


Sub Nettoie() 'Laurent Longre mpfe, mise en forme GeeDee
Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String,
Avant As Double, plage As Range
On Error Resume Next
Calc = Application.Calculation ' ---- mémorisation de l'état de recalcul
'------------------------------------------------------------
MsgBox "Pour le classeur actif  : " _
& Chr(10) & ActiveWorkbook.FullName _
& Chr(10) & "dans chaque feuille de calcul" _
& Chr(10) & "recherche la zone contenant des données," _
& Chr(10) & "réinitialise la dernière cellule utilisée" _
& Chr(10) & "et optimise la taille du fichier Excel", _
vbInformation, _
"d'après LL par GeeDee@m6net.fr"
'-------------------------------------------------------------
MsgBox "Taille initiale de ce classeur en octets" _
& Chr(10) & FileLen(ActiveWorkbook.FullName), _
vbInformation, ActiveWorkbook.FullName
'------------------------------------------------------------
With Application
.Calculation = xlCalculationManual
.StatusBar = "Nettoyage en cours..."
.EnableCancelKey = xlErrorHandler
.ScreenUpdating = True
End With
'-------------------- le traitement
For Each Sht In Worksheets
Avant = Sht.UsedRange.Cells.Count
Application.StatusBar = Sht.Name & "-" & Sht.UsedRange.Address
'-------------------Traitement de la zone trouvée
If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then
Set DCell = Sht.Cells.Find(What:="*", _
                   LookIn:=xlFormulas, _
                SearchOrder:=xlByRows, _
         SearchDirection:=xlPrevious)(2)
'----------------Suppression des lignes inutilisées
If Not DCell Is Nothing Then
Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Delete
Set DCell = Nothing
Set DCell = Sht.Cells.Find(What:="*", _
                   LookIn:=xlFormulas, _
                SearchOrder:=xlByColumns, _
         SearchDirection:=xlPrevious)(2)
'----------------Suppression des colonnes inutilisées
If Not DCell Is Nothing Then Sht.Range(DCell, Sht.[IV1]).EntireColumn.Delete
End If
Rien = Sht.UsedRange.Address
End If
ActiveWorkbook.Save
'---------------------Message pour la feuille traitée
MsgBox "Nom de la feuille de calcul :" _
& Chr(10) & Sht.Name _
& Chr(10) & Format(Sht.UsedRange.Cells.Count / Avant, "0.00%") &  _
" de la taille initiale", vbInformation, ActiveWorkbook.FullName
Next Sht
'--------------------Message fin de traitement
MsgBox "Taille optimisée de ce classeur en octets " & Chr(10) & _
FileLen(ActiveWorkbook.FullName), _
vbInformation, _
ActiveWorkbook.FullNameActive
'--------------------
Application.StatusBar = False
Application.Calculation = Calc
End Sub 

Mytå 

Edition : Indentation du code
Quelle prétention de prétendre que l'informatique est récente 
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]

antipolis a · Answer

Bonsoir.

Merci "Mytå".

Je vais me mettre cette macro de côté dans ma bibliothèque VBA, et la tester.

Cà peut toujours servir.

Cordialement.

Raymond PENTIER · Answer

Autre méthode à essayer (si la feuille ne contient pas de macros) :
Sélectionner les lignes 1 à 3000 ; faire copier ; 
prendre une feuille vierge ; faire coller.

Affichage + de 1 millions de lignes

6 réponses

Votre réponse

Discussions similaires