Microsoft 365 Ajout ou suppression de ligne(s) très très très long

[Usine à gaz]

Bonjour à toutes et à tous

Dans l'une de mes "Usines à gaz", j'ai un souci d'ajouts et de suppressions de lignes qui sont très très longs, en moyenne 2 minutes et ++.
Plus curieux encore, ça prend le même temps pour les feuilles sans code VBA
Je n'arrive pas à trouver pourquoi c'est si long Grrrr !

Malheureusement, je ne peux pas joindre le fichier à problème car il est très lourd et contient mes données confidentielles.
(Mais si c'est indispensable, je prendrai le temps de l'alléger et de supprimer les données confidentielles).

Voici les codes d'ajouts/suppressions :

Sub ajoute_ligne()
Dim t#
t = Now
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    ActiveCell.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "Exécution en " & Mid(Format(Now - t, "hh:mm:ss"), 4)
'MsgBox "Exécution en " & Minute(t) & " minute(s) et " & Second(t) & " seconde(s)"
End Sub
Sub suppr_ligne()
Dim t#
t = Now
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    ActiveCell.EntireRow.Delete Shift:=xlUp
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "Exécution en " & Mid(Format(Now - t, "hh:mm:ss"), 4)
'MsgBox "Exécution en " & Minute(t) & " minute(s) et " & Second(t) & " seconde(s)"
End Sub

Dans le fichier test joint, c'est instantané et ...
Dans mon "Usine à gaz", en moyenne 2 minutes et ++. Plus curieux encore, ça prend le même temps pour les feuilles sans code VBA
Auriez-vous des pistes de recherches ?
Un grand merci à tous...

 

[Usine à gaz]

Bonjour Gérard
Je regarde

 

[Usine à gaz]

Bonjour Lionel, le fil,

1) Quelle est l'adresse de la Dernière cellule (touche F5 => Cellules) ?

2) Des commentaires mal fichus peuvent créer des problèmes, efface les tous (sélectionne toutes les cellules, menu Accueil => Efffacer).

A+

dernière cellule : BL 12028 (normal vu ma feuille)
Et aucun commentaires dans mes cellules

 

[laurent950]

Bonjour

j'ai 11 feuilles.

Sur qu'elle feuille vous effectuer la suppression = Nom de l'onglet ?
Pour :
Application.Calculation = xlCalculationManual
[ °°° Code °°°]
Application.Calculation = xlCalculationAutomatic

 

[Usine à gaz]

Bonjour laurent950
J'ai le souci sur n'importe quelle feuille.
Mes 3 feuilles principales ont pour l'une +de 12000 lignes, les 2 autres +de 5000.
Les autres feuilles ont de 50 à 150 lignes

Pour supprimer ou ajouter des lignes :
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
quelle que soit la feuille

 

[laurent950]

Faite un essaie
ActiveSheet.Calculate (On peut demander le calcul d'une seule Feuille)

[ °°° Code °°° ]
Application.Calculation = xlCalculationManual
[ °°° Code °°° ]
ActiveSheet.Calculate
Application.Calculation = xlCalculationAutomatic
[ °°° Code °°° ]

 

[Usine à gaz]

Faite un essaie
en remplaçant Application.Calculation (On peut demander le calcul de tout le classeur) par ActiveSheet.Calculation (On peut demander le calcul d'une seule Feuille)

[ °°° Code °°° ]
ActiveSheet.Calculation = xlCalculationManual
[ °°° Code °°° ]
ActiveSheet.Calculation = xlCalculationAutomatic
[ °°° Code °°° ]

Bon sang : j'en apprends à chaque instant. je te remercie
Je teste

 

[Usine à gaz]

Faite un essaie
en remplaçant Application.Calculation (On peut demander le calcul de tout le classeur) par ActiveSheet.Calculation (On peut demander le calcul d'une seule Feuille)

[ °°° Code °°° ]
ActiveSheet.Calculation = xlCalculationManual
[ °°° Code °°° ]
ActiveSheet.Calculation = xlCalculationAutomatic
[ °°° Code °°° ]

Il n'en veut pas, le bougre lol

 

[Cousinhub]

Re-,
Dans une copie de ton fichier, supprime le nom "onglets", juste pour voir????

 

[Usine à gaz]

Re-,
Dans une copie de ton fichier, supprime le nom "onglets", juste pour voir????

Je ne savais plus pkoi il était là celui-là lol
et je l'ai déjà fait mais ça n'a rien changé.

 

[dysorthographie]

Bonjour,
tu as combien de formule du genre Usine à gaz?

 

[Usine à gaz]

Bjr dysorthographie
Quasiment aucune formule (peut-être une 15aine pour tout le fichier)
Je fais tjrs mes formules par macros et je n'enregistre que les valeurs dans les feuilles.

 

[job75]

Bonjour Lionel, le forum,

Sélectionne toutes les cellules et menu Accueil => Effacer => Effacer les formats.

Pour une feuille et pour toutes ensuite si nécessaire.

L'ajout et suppression sont-ils devenus normaux ?

Si oui remets les formats ensuite.

A+

 

[Usine à gaz]

Bjr Gérard , le Fil , le Forum ,

Bonjour Lionel, le forum,

Sélectionne toutes les cellules et menu Accueil => Effacer => Effacer les formats.

Pour une feuille et pour toutes ensuite si nécessaire.

L'ajout et suppression sont-ils devenus normaux ?

Si oui remets les formats ensuite.

A+

Bjr Gérard , le Fil , le Forum ,

Nickel : Test réussi
ça provenait des formats...
Je vais affiner pour voir quels formats posent problème.
Merci Gérard

 

[job75]

Ce qui pose problème c'est l'accumulation de formats mis en place successivement n'importe comment.

Efface-les tous et remets-les en place un par un correctement sur les plages nécessaires.

 

[Usine à gaz]

LOL : il va falloir que je cherche comment mettre des formats "correctement"