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

accélérer une fonction

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tinet
  • 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

tinet

XLDnaute Impliqué
bonjour à tous,

j'ai créé une macro qui doit exécuter des tâches automatiques sur un fichier.
le lancement de ces tâches est relativement longue, ce qui ralentit énormément d'exécution de excel.

J'avais trouvé à une époque une fonction à rajouter qui permettait d'accélérer les fonctions en VBA.

Il me semble que cette fonction masquée l'exécution à l'écran du calcul, ce qui permettait de gagner du temps.

En attente d'une solution merci.
 
Trier par date Trier par votes
Re : accélérer une fonction

Bonjour,

essaye peut être ceci :

Code: 
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
'ton code
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationAutomatic
End With

A voir également s'il n'y a pas lieu de désactiver ponctuellement les procédures événementieles :
Code: 
    Application.EnableEvents = False
ne pas oublier de remettre la propriété à "true" en fin de procédure...

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : accélérer une fonction

Bonjour,

En complément de ce qu'à donné Pierrot93 (que je salue 😉)

Tu peux ajouter aussi : EnableEvents
Ce qui empêche les évènements diverses lors de la modification de cellules ou autre
VB: 
With Application
  .EnableEvents = False
  .ScreenUpdating = False
  .Calculation = xlCalculationManual
End With
'ton code
With Application
  .EnableEvents = True
  .ScreenUpdating = False
  .Calculation = xlCalculationAutomatic
End With

A+
 
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

Discussions similaires

N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
V
  • Question Question
Microsoft 365 accélérer une boucle
Réponses
12
Affichages
922
vg026u
V
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
795
Julien_B
J
  • Question Question
XL 2021 Vos avis SVP: Une fonction TRANSPOSE() à améliorer
16 17 18
Réponses
268
Affichages
9 K
p'tit vieux
K
  • Question Question
XL 2016 Calculer note de sport en fonction de multiples barèmes (sexe, âge, chrono ou résultat net)
Réponses
14
Affichages
860
TooFatBoy
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
888
Lu76Fer
A
  • Question Question
Microsoft 365 Retourner message si compteur 0
Réponses
4
Affichages
715
AD95
A
I
  • Question Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
570
IderMTC
I
XLS : Créer une animation fluide sans Crash (ou presque) !
Réponses
7
Affichages
1 K
Lu76Fer
C
  • Question Question
Microsoft 365 trouver le nombre de référence unique dans une colonne en fonction de critères de deux autres colonnes
Réponses
4
Affichages
1 K
R@chid
D
  • Résolu(e)
Microsoft 365 Sélectionner une plage à partir d'une date jusqu'à la dernière date enregistré dans la fonction droitereg
Réponses
13
Affichages
1 K
sylvanu
G
  • Résolu(e)
Microsoft 365 Faire une collection de collection en VBA
2
Réponses
25
Affichages
3 K
dysorthographie
M
  • Résolu(e)
Microsoft 365 Copier/Coller sous multicritères
2
Réponses
16
Affichages
2 K
M.Ben
M
C
  • Question Question
XL 2019 #NOM pour une fonction personnalisée
Réponses
4
Affichages
1 K
Cyf
C
D
  • Question Question
Microsoft 365 Afficher une image en fonction d'une liste déroulante
Réponses
2
Affichages
596
Dju1
D
F
  • Résolu(e)
XL 2010 Glissement de cellules en fonction de 2 caractères
2
Réponses
20
Affichages
2 K
Gégé-45550
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
J
  • Question Question
Microsoft 365 Récupération de lignes de plusieurs feuille sur une seule en fonction d'une valeur de cellule
Réponses
6
Affichages
2 K
jireu
J
B
  • Résolu(e)
Microsoft 365 Besoin de soutien avec une formule INDEX EQUIV
Réponses
4
Affichages
1 K
BobExcel
B
Z
  • Question Question
Autres Syntaxe pour appeler une fonction
Réponses
6
Affichages
1 K
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…