Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Usine à gaz

XLDnaute Barbatruc
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 :
VB: 
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...
 

Pièces jointes

  • ligne ajout suppr.xlsm
    19.8 KB · Affichages: 5
Dernière édition:
Solution
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+
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Usine à Gaz,
N'auriez vous pas, comme il y a quelques temps, des centaines de mises en formes, de MFC, de copier coller qui trainent, ce qui expliquerait un ralentissement. Si oui, faites le nettoyage comme précédemment.
Ensuite votre feuille de travail contient combien de lignes ? S'il y en a 100000, alors ça va ramer.
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour Lionel
Edit Bonjour Sylvain

Usine à gaz à dit:
Dans le fichier test joint, c'est instantané et ...
Cliquez pour agrandir...
C'est bien la preuve que cela ne vient pas du code mais de ton fichier

Sans LE fichier je te propose quelques pistes à voir : (Pas forcement dans l'ordre)
-Tu as peux être trop de MFC
-Ton fichier est vérolé
-Une ou des macros événementielles sont appeleés pendant l’exécution de ton code


@Phil69970
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re, bonjour Phil,
Avec le fichier joint, et sur 50 000 lignes, sur mon PC ça prends 70ms.

Moi, j'opterais pour des centaines de copier coller avec MFC.
Au fait quelle est la taille de votre fichier ?
S'il fait peu de lignes et 10Mo, on peut se poser des questions.
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Bjr sylvanu
Merci du retour... NON pas de mfc (très très peu) mais c'est peut-être une piste

Bonjour Phil69970
Merci également du retour... effectivement, ça provient bien de mon fichier de travail
Tu as peux être trop de MFC... NON pas de mfc (très très peu) mais c'est peut-être une piste
-Ton fichier est vérolé... NON pas vérolé, par ailleur, il fonctionne très bien dans toutes ses macros.
-Une ou des macros événementielles sont appelés pendant l’exécution de ton code... NON elles ne sont pas appelés car neutralisées avec :
- Application.EnableEvents = False
- Application.ScreenUpdating = False
- Application.Calculation = xlCalculationManual
à moins qu'elles soient appelées à l'insu de moi-même lol ça me rappelle qq chose
Merci à vous deux
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
J'opterais pour trop de copier collé intempestifs, et donc le même souci qu'il y a quelques temps.
Essayez de le "faire maigrir" en utilisant le même système de nettoyage.

Microsoft 365 - Macro modification que je ne sais pas faire

Bonjour à toutes et à tous, Je vous souhaite une beau dimanche :) Voici ci-dessous un code que j'ai besoin de modifier mais je n'y arrive pas malgré mes tentatives et recherches. Pourriez-vous m'aider ? Sub Lgn_vides() Application.EnableEvents = False Application.ScreenUpdating = False...
excel-downloads.com
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re

Et combien de feuille ?

Test:
1) Fais une copie de ton fichier
2) Supprime une feuille enregistre et ferme le fichier regarde son poids
3) Reprends ton fichier et refais la manip sur une autre feuille etc.....

Le but est de repéré si tu as une feuille en particulier qui pose problème pour après agir sur celle ci .....

@Phil69970
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Idée : Copiez votre fichier pour essai, et sur chaque feuille passez cette macro qui nettoie ( inspiré du post donné au dessus ) Attention code modifié à l'instant.
VB: 
Sub Nettoyage()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    DL = 2 + Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
    DC = 2 + Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Column
    Application.CutCopyMode = False
    Range(Cells(1, DC), Cells(1048576, 16384)).Select
    Selection.Delete Shift:=xlToLeft
    Rows(DL & ":1048576").Select
    Selection.Delete Shift:=xlUp
    [A1].Select
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
j'ai 11 feuilles.
OK, je vais faire les tests dès que j'ai un moment
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
OK, je fais ça dès que je peux
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Résolu(e)
Microsoft 365 optimisation d'un programme en utilisant la fonction Array
Réponses
5
Affichages
495
Thomas_1
T
  • Question
XL 2021 ActiveWorkbook.Save avant Private Sub Workbook_Open()
3 4 5
Réponses
62
Affichages
3 K
Usine à gaz
J
  • Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
483
Julien_B
J
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
528
crazy
C
M
  • Question
XL 2019 Optimisation de code VBA
2 3
Réponses
33
Affichages
2 K
mmaiga
M
A
  • Résolu(e)
XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte
2 3 4
Réponses
54
Affichages
2 K
sylvanu
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
2 K
Usine à gaz
  • Résolu(e)
Microsoft 365 affichage bizarre à la fermeture de mon "usine à gaz"
2 3
Réponses
38
Affichages
2 K
TooFatBoy
C
  • Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
599
Cheyenne_2021
C
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
690
Messan
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…