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

Accélérer macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion EXCELERATOR
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

EXCELERATOR

Guest
Bonjour,

J'ai un fichier qui me permet de traiter des données.

J'ai une macro pour supprimer les lignes, mais elle est très très lente... sniff

Si quelqu'un a une idée pour la booster ?

Merci

Sub ETAPE2B()
Dim i As Long
For i = [A8001].End(xlUp).Row To 2 Step -1
Select Case Left(Cells(i, 1), 2)
Case "", "0"
Rows(i).Delete
End Select
Next i
End Sub
 
Trier par date Trier par votes
Re : Accélérer macro

bonjour EXCELERATOR,

voici Ce lien n'existe plus de l'excellent Laurent Longre dédié à l'accélération du code.
La partie 2 est très facile à mettre en place et assez efficace. Les parties 1 et 3 sont plus des bonnes pratiques plus ou moins spécifiques à Excel.

a+
 
Vote positif 0 Vote négatif
Re : Accélérer macro

Bonjour



Avec ceci , cela devrait aller plus vite

Pour tester , il faut un entête à ta colonne A
Code: 
Sub test_suppr_lignes()
Dim I_Will As Range, f As Range
Application.ScreenUpdating = False
[B2].FormulaR1C1 = "=MID(RC[-1],2,1)*1=0"
Range([A1], [A65536].End(xlUp)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B1:B2"), Unique:=False
Set f = [_FilterDataBase]
Set I_Will = f.Offset(1, 0).Resize(f.Rows.Count - 1).SpecialCells(12)
Application.DisplayAlerts = False
I_Will.Delete: Columns(2).Delete
ActiveSheet.ShowAllData
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Accélérer macro

Merci pour ta réponse rapide STAPLE 1600:
J'ai toutefois une erreur comme ci-dessous ??


Sub test_suppr_lignes()
Dim I_Will As Range, f As Range
Application.ScreenUpdating = False
[B2].FormulaR1C1 = "=MID(RC[-1],2,1)*1=0"
Range([A1], [A65536].End(xlUp)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B1:B2"), Unique:=False
Set f = [_FilterDataBase]
Set I_Will = f.Offset(1, 0).Resize(f.Rows.Count - 1).SpecialCells(12)
Application.DisplayAlerts = False
I_Will.Delete: Columns(2).Delete
ActiveSheet.ShowAllData
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Accélérer macro

Re

Chez moi pas d'erreur 😀

Bon bah j'arrive chez toi alors, t'habite ou dans Longwy?

(et on mange quoi ce midi ? j'ai faim )

Après relecture de mon code, je détaille ce qu'il fait
Il suprimme les lignes dont les cellules contiennent un 0 en deuxième position
ex: si en colonne A, des cellules contiennent les nombres ci-dessous, leur ligne seront effacées
20
205
2015

or toi tu veux effacer les lignes des cellules vides et des cellules égales à zéro c'est cela ?

Si oui, il suffira de modifier mon code précédent

Mais pour le moment je m'absente

Bon appétit à tous
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Accélérer macro

Sur la place !!

Ok ca marche, mais ça a tout supprimer !!

En fait en colonne A j'ai des valeurs, je veux juste supprimer les lignes qui commence par un blanc ou par un zéro.

Sinon effectivement ta macro est rapide
 
Vote positif 0 Vote négatif
Re : Accélérer macro

re,

Voici un exemple d'utilisation de ce qui est présenté sur le précédent lien et qui est facilement appliquable quelque soit la macro utilisée :
Code: 
Public Sub MacroMajCalendrier()
Dim mem1 As Long, mem2 As Long, mem3 As Long
    'mémoriser/désactiver les options d'excel
    mem1 = Application.Calculation: Application.Calculation = xlCalculationManual
    mem2 = Application.EnableEvents: Application.EnableEvents = False
    mem3 = Application.ScreenUpdating: Application.ScreenUpdating = False
    
    'exécuter la macro
    On Error Resume Next
     [COLOR=Red][B]ETAPE2B[/B][/COLOR]
    On Error GoTo 0
    
    'rétablir les options d'excel
    Application.Calculation = mem1
    Application.EnableEvents = mem2
    Application.ScreenUpdating = mem3

End Sub

a+
 
Vote positif 0 Vote négatif
Re : Accélérer macro

Bonjour à tous

J'ai eu le même cas hier, j'ai voulu travailler sur à peine 200 lignes et quelques colonnes, et la copie prennait presque 1 seconde par ligne ! L'origine : de nombreuse cellules calculée, et un Excel qui fait son recalcul à chaque changement, même d'un autre classeur.

Ma solution : la même que celle proposé par mromain : virer ce fichut calcul auto, puis le rétablir : Application.Calculation = xlCalculationManual / Application.Calculation = xlCalculationAuto.
Le gain est spectaculaire.

O
 
Vote positif 0 Vote négatif
Re : Accélérer macro

Salut ROMAIN et ODESTA,

Merci pour ta solution, ça va accélérer un peu mon fichier.

Mais il mouline toujours !! 😀

Je vais continuer de cherche un code qu'excel gérera plus rapidement, je vous fais signe si je trouve quelque chose?.

😎
 
Vote positif 0 Vote négatif
Re : Accélérer macro

Re


Je vais continuer de cherche un code qu'excel gérera plus rapidement, je vous fais signe si je trouve quelque chose?.
Cliquez pour agrandir...
Utilises en le modifiant celui indiqué quand j'avais faim 😀

Tu verras que c'est très rapide.

EDITION: voici la version modifiée selon ta problématique

Code: 
Sub test_suppr_lignes_v2()
Dim I_Will As Range, f As Range
Application.ScreenUpdating = False
[B2].FormulaR1C1 = "=OR(CODE(MID(RC[-1],1,1))=32,CODE(MID(RC[-1],1,1))=48)"
Range([A1], [A65536].End(xlUp)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B1:B2"), Unique:=False
Set f = [_FilterDataBase]
Set I_Will = f.Offset(1, 0).Resize(f.Rows.Count - 1).SpecialCells(12)
Application.DisplayAlerts = False
I_Will.Delete: Columns(2).Delete
ActiveSheet.ShowAllData
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

PS: Chez moi cela fonctionne, donc si ce n'est pas le cas chez toi
relis bien mes messages.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Accélérer macro

Bonjour le forum,
Je me fixe a ce post car j'ai un fichier de 3211 KO avec des userforms (20) ( je ne peut pas transmettre de fichier car les modififs créer des bugs) il y a beaucoup de checkbox et ce rame grave . Mis seul sur un autre fichier les userform fonctionne sans aucun probleme ça fonce 1 seconde mais dans mon fichier 25 secondes.
Avez vous déja recontré ce probleme ? merci de votre aide

HD006
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
179
philmaure
P
D
  • Question Question
XL 2021 Formule Excel dans VBA
Réponses
3
Affichages
229
dl87671
D
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
911
TooFatBoy
  • Question Question
Autres résultats differents entre formule et macro (excel 2007)
2
Réponses
18
Affichages
525
dysorthographie
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
786
lynyrd
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
267
LaurentVasseur
L
N
  • Question Question
Listbox click
Réponses
10
Affichages
663
ChTi160
  • Résolu(e)
XL 2010 [RESOLU] Rendre Fonction Générique
Réponses
2
Affichages
335
cathodique
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
585
sylvanu
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
573
job75
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
484
Electron24
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
873
piga25
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
542
pangasoul
P
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
735
Piment
P
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
367
CortoXls
C
J
  • Résolu(e)
XL 2021 Filtre combobox
Réponses
5
Affichages
418
Dranreb
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…