XL 2016 Excel bugge quand j'essaie d'insérer une ligne

Ben31clp · 15 Octobre 2022

Bonjour,
Sur deux onglets d'un classeur de compta, Excel bugge à chaque fois que je veux insérer une ligne supplémentaire.
Je n'ai pas de message d'erreur
Je fais insérer il se met à mouliner
Il y a eu dans ce fichiers beaucoup de copié-collé, et il y a des mises en forme de couleur.
J'ai vu qu'il fallait essayer en "effacant tous les formats" , cela a marché provisoirement sur un des onglets mais pas sur l'autre
Merci de votre aide.

jcf6464 · 15 Octobre 2022

Bonjour ben31clp et le forum,

Avec le fichier quelqu'un pourra t'aider...,

salutations jcf

Staple1600 · 15 Octobre 2022

Bonjour le fil

@Ben31clp
Il est temps de dire adieu à ton classeur
(et d'en reconstruire un en partant d'un classeur sain (donc vierge)
Ce que tu décris, est le signe caractéristique d'un classeur "vérolé" ou qui a trop vécu.

sylvanu · 15 Octobre 2022

Bonjour Ben, Jcf, Stapple,

Staple1600 à dit:
un classeur "vérolé" ou qui a trop vécu

Ou qui a "subi" trop de copié collé intempestifs.

Ben31clp à dit:
cela a marché provisoirement sur un des onglets mais pas sur l'autre

Ca sent le fichier mille fois bidouillé.
Chaque copié/collé colle les valeurs, les formats, les MFC .... et à la fin ça rame.
Sans oublier les MFC déclarées sur des colonnes complètes.
Il faut nettoyer chaque feuille.
Le plus efficace souvent :
Sur chaque feuille, faire Ctrl+Flèche vers le bas ( ce qui pointe la dernière ligne )
Sélectionner la ligne, remonter jusqu'à la dernière ligne utilisée. Faire MAJ et sélectionner cette ligne, ce qui a pour effet de sélectionner toutes les lignes, clic droit et Supprimer.
Ce qui supprime toutes les lignes inutiles y compris leur format MFC ....
Recommencer l'opération avec les colonnes en utilisant Crtl+Flèche droite.

Ben31clp · 15 Octobre 2022

Staple1600 à dit:
Bonjour le fil

@Ben31clp
Il est temps de dire adieu à ton classeur
(et d'en reconstruire un en partant d'un classeur sain (donc vierge)
Ce que tu décris, est le signe caractéristique d'un classeur "vérolé" ou qui a trop vécu.

Mais je n'arrive pas non plus à faire un copie colle et à mettre les données dans un nouveau fichier

Ben31clp · 15 Octobre 2022

jcf6464 à dit:
Bonjour ben31clp et le forum,

Avec le fichier quelqu'un pourra t'aider...,

salutations jcf

Merci.Il ne passe pas. trop volumineux

sylvanu · 15 Octobre 2022

Ben31clp à dit:
Mais je n'arrive pas non plus à faire un copie colle et à mettre les données dans un nouveau fichier

Combien "pèse" votre fichier ?
Regardez sous l'explorateur de fichier, vous pourriez être surpris.

Ben31clp · 15 Octobre 2022

jcf6464 à dit:
Bonjour ben31clp et le forum,

Avec le fichier quelqu'un pourra t'aider...,

salutations jcf

sylvanu à dit:
Combien "pèse" votre fichier ?
Regardez sous l'explorateur de fichier, vous pourriez être surpris.

3.254 k0

Staple1600 · 15 Octobre 2022

Re

@Ben31clp
1) Ouvre Excel en mode sans échec
• Démarrer/Exécuter -> excel.exe /safe
(ou plus simple: Touche Windows + R )

2) Ouvre ton classeur

Puis fais Enregistrer sous -> Fichier CSV
(pour essayer de récupérer tes données)

Si tu as plusieurs feuilles, il faudra faire un Export CSV pour chaque feuille.

sylvanu · 15 Octobre 2022

Re,
Vieille archive ( qu'on peut optimiser )
Essayez cette macro qui nettoie. Dans certains cas cela fût suffisant.

VB:

Sub Nettoyage()
    Dim Cmax%, Lmax%, L%, C%, DerCol%, DerLig%, F
    ' Zone à analysez, à modifier si necessaire
    Cmax = 5000
    Lmax = 5000
    For Each F In Worksheets
        With Sheets(F.Name)
            DerCol = 0: DerLig = 0
            Application.StatusBar = "Nettoyage de la feuille " & F.Name
            ' Trouver dernière colonne utilisée
            For L = 1 To Lmax
                If .Cells(L, Columns.Count).End(xlToLeft).Column > DerCol Then
                    DerCol = .Cells(L, Columns.Count).End(xlToLeft).Column
                End If
            Next L
            ' Trouver dernière ligne utilisée
            For C = 1 To Cmax
                If .Cells(Rows.Count, C).End(xlUp).Row > DerLig Then
                    DerLig = .Cells(Rows.Count, C).End(xlUp).Row
                End If
            Next C
            ' Suppression lignes et colonnes vides
            .Range(.Cells(1, DerCol + 1), .Cells(1048576, 16384)).Delete Shift:=xlToLeft
            .Rows(DerLig + 1 & ":" & Rows.Count).Delete Shift:=xlUp
        End With
    Next F
    Application.StatusBar = ""
End Sub

Staple1600 · 15 Octobre 2022

Re

@sylvanu
Souvenirs, souvenirs

trop gros

Bonjour J'ai beau supprimer des données, supprimer des lignes ou supprimer des colonnes, mon document excel est toujours aussi gros !!! Comment faire pour que sa taille soit "optimisée" ?

excel-downloads.com

[avis personnel]
Quand un classeur souffre, je préfère abréger ses souffrances
Puis repartir sur un nouveau classeur
[/avis personnel]

sylvanu · 15 Octobre 2022

Staple1600 à dit:
Quand un classeur souffre, je préfère abréger ses souffrances

Indubitablement. Mais quelquefois il suffit d'un rien pour s'en sortir, et que certains fichiers sont vraiment galère à reconstruire.
Sans parler des utilisateurs qui sont partis d'un fichier existant et qui sont sont incapables de reconstruire.

Ben31clp · 15 Octobre 2022

sylvanu à dit:

Re,
Vieille archive ( qu'on peut optimiser )
Essayez cette macro qui nettoie. Dans certains cas cela fût suffisant.

VB:

Sub Nettoyage()
    Dim Cmax%, Lmax%, L%, C%, DerCol%, DerLig%, F
    ' Zone à analysez, à modifier si necessaire
    Cmax = 5000
    Lmax = 5000
    For Each F In Worksheets
        With Sheets(F.Name)
            DerCol = 0: DerLig = 0
            Application.StatusBar = "Nettoyage de la feuille " & F.Name
            ' Trouver dernière colonne utilisée
            For L = 1 To Lmax
                If .Cells(L, Columns.Count).End(xlToLeft).Column > DerCol Then
                    DerCol = .Cells(L, Columns.Count).End(xlToLeft).Column
                End If
            Next L
            ' Trouver dernière ligne utilisée
            For C = 1 To Cmax
                If .Cells(Rows.Count, C).End(xlUp).Row > DerLig Then
                    DerLig = .Cells(Rows.Count, C).End(xlUp).Row
                End If
            Next C
            ' Suppression lignes et colonnes vides
            .Range(.Cells(1, DerCol + 1), .Cells(1048576, 16384)).Delete Shift:=xlToLeft
            .Rows(DerLig + 1 & ":" & Rows.Count).Delete Shift:=xlUp
        End With
    Next F
    Application.StatusBar = ""
End Sub

Ben31clp · 15 Octobre 2022

Merci
Mais je suis tellement novice sur Excel que je ne sais pas comment activer une macro !!

Staple1600 · 15 Octobre 2022

Sylvanu à dit:
Sans parler des utilisateurs qui sont partis d'un fichier existant et qui sont incapables de reconstruire.

Là, ce n'est plus un problème Excel, mais une lutte sans fin contre le principe de Peter

[dans mon univers professionnel]
Si l'utilisateur final n'est pas l'auteur du classeur ou si il n'a pas été formé à son utilisation, je refile la patate chaude à la hiérarchie.
[/dans mon univers professionnel]
PS: Dans mon mien d'univers, c'est un mix de la Loi de Murphy et du principe de Peter qui berce mon quotidien

XL 2016 Excel bugge quand j'essaie d'insérer une ligne

Ben31clp

XLDnaute Nouveau

jcf6464

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Ben31clp

XLDnaute Nouveau

Ben31clp

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Ben31clp

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

trop gros

sylvanu

XLDnaute Barbatruc

Ben31clp

XLDnaute Nouveau

Ben31clp

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires