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]

Re Syvanu 🙂
beug ici :

🙂

 

[Phil69970]

Re

Tu dois avoir "option explicit"
Donc déclare tes variables
Dim DL&, DC&

@Phil69970

 

[Usine à gaz]

Re

Tu dois avoir "option explicit"
Donc déclare tes variables
Dim DL&, DC&

@Phil69970

Re Phil69970 🙂
J'ai mis "option explicit" avant la macro = même beug
🙂

 

[Usine à gaz]

J'avais oublié : Dim DL&, DC& = ça marche et ça mouline dur...

 

[Usine à gaz]

J'ai :
- fait le test de Sylvanu,
- Vérifié si pas de mfc = y'a pas (ou très peu),
- Dans la feuille principale, j'avais coloré toutes les cellules colonnes entières sur 23 colonnes, je les ai remis en blanc,
J'ai retenté de supprimer des lignes en neutralisant les codes de la feuille.
Résultat identique ajout ou suppression de ligne(s) tjrs long.

Voilà des années que j'ai ce soucis mais j'avais une solution en faisant des copier/coller qui ne posent pas de problème. Je m'en sers depuis tjrs mais ça m'oblige à faire un autre code.

Pas grave si on ne trouve pas. Je continuerai avec mes copier/coller lol.
Grand merci pour vos pistes et votre aide
🙂

 

[sylvanu]

- fait le test de Sylvanu,

Et le fichier fait quelle taille après nettoyage ?

 

[Usine à gaz]

Et le fichier fait quelle taille après nettoyage ?

Même taille actuellement 15Mo
🙂

 

[Cousinhub]

Bonjour,
Si tu déroules ce code à partir d'un module standard, ça te donne quoi?

Sub combien_d_objets()
Dim Sh As Worksheet
Dim NbShp As Long
For Each Sh In Sheets
    NbShp = NbShp + Sh.Shapes.Count
Next Sh
MsgBox NbShp
End Sub

 

[Usine à gaz]

Bjr bhbh 🙂
Merci, je vais tenter...

 

[Usine à gaz]

Re 🙂
ça donne 34 objets

🙂

 

[Cousinhub]

Ok, pas dramatique...
Tu les vois tous?

Dans gestionnaire de noms, tu en as beaucoup? (de noms)

 

[Usine à gaz]

Voici mon Gestionnaire de noms :

Une trentaine...
🙂

 

[Cousinhub]

Re-,
Il sert à quoi, exactement, ton nom "onglets"?

 

[Usine à gaz]

Re-,
Il sert à quoi, exactement, ton nom "onglets"?

LOL : je ne sais plus 😳
Je vais essayer de retrouver ...
🙂

 

[job75]

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+