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

[Ben31clp]

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]

Bonjour ben31clp et le forum,

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

salutations jcf

 

[Staple1600]

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]

Bonjour Ben, Jcf, Stapple,

un classeur "vérolé" ou qui a trop vécu

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

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]

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]

Bonjour ben31clp et le forum,

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

salutations jcf

Merci.Il ne passe pas. trop volumineux

 

[sylvanu]

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]

Bonjour ben31clp et le forum,

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

salutations jcf

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

3.254 k0

 

[Staple1600]

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]

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

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]

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]

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]

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

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]

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

 

[Staple1600]

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