Amélioration du temps d'exécution
Bonjours le forum,
Je cherche à améliorer le temps d’exécution de ce petit code qui est dans un userform,actuellement il s'exécute en environ 4 secondes. Serait il possible de faire mieux ?
Merci par avance
Private Sub Valider_Click()
'Application.ScreenUpdating = False 'Pour masquer l'action
[Y2] = Nombre
[AC2] = Titre
[I6] = Intérêt
[AI6] = Contexte
[AR47] = élève
[AB2] = OptionButton1
[AB3] = OptionButton2
[AB4] = OptionButton3
[I12] = Tâche
[B22] = Compétence1
[B71] = Compétence2
[BG13] = Consigne
Call FormatPolice
[A1].Select
UserForm.Hide
End SubBonjour,
Quel est le code de FormatPolice ?
ric
Bonjour Charrier, bonsoir le forum,
Avec l'humour de naze qui me caractérise j'aurais envie de dire : faut pas charrier ! Sans le code de la procédure FormatPolice ta question n'a aucun sens...
[Édition]
Bonjour Ric, nos posts se sont croisés...
salut,
le bout de code < FormatPolice > même enlever ne change rien à la vitesse d'exécution.
Pour répondre à "ric" je ne sais pas moi même....
Et merci pour ton humour "ThauThème "
Bonjour à tous,
FormatPolice est une autre macro qui est appelé par la ligne
Call FormatPolice
Si ton fichier n'as pas de données confidentielles, peut-on en avoir copie ?
ric
Bonjour à tous,
FormatPoliceest une autre macro qui est appelé par la ligne
Call FormatPoliceSi ton fichier n'as pas de données confidentielles, peut-on en avoir copie ?
ric
Bonjour à tous,
Malheureusement mon fichier contient des données confidentielles. J'ais enlever le bout de code "Call FormatPolice" mais je ne constate pas une grande amélioration...
christophe
Re,
J'en ai eu un ! J'en ai eu un ! (Sketch de Coluche, le Filc)
J'en ai trouvé un encore plus comique que moi dis donc...
Allô!
Il y a Application.ScreenUpdating = False ... tu pourrais enlever l'apostrophe devant pour réactiver cette ligne. Cela gèle l'affichage de l'écran jusqu'à la fin de la macro.
Pour le reste, il est plutôt difficile de se faire une idée.
Est-ce que la feuille concernée (où s'écrivent les données) contient beaucoup de formules et de mises en forme conditionnelle?
ric
Allô!
Il y a
Application.ScreenUpdating = False... tu pourrais enlever l'apostrophe devant pour réactiver cette ligne. Cela gèle l'affichage de l'écran jusqu'à la fin de la macro.Pour le reste, il est plutôt difficile de se faire une idée.
Est-ce que la feuille concernée (où s'écrivent les données) contient beaucoup de formules et de mises en forme conditionnelle?
ric
Oui la feuille contient beaucoup de formules et de mises en forme conditionnelle.
C'est peut être la le problème?
j'ai enlever l'apostrophe devant Application.ScreenUpdating = False. bon... on vas dire que ça ne change pas les choses radicalement ...
christophe
Merci le forum,merci Ric
pour ce soir je décroche, je dois partir tôt demain
Merci encore pour votre temps passé.
Christophe
Bonjour,
Un teste ...
Juste sous Application.ScreenUpdating = False
ajoute
Application.Calculation = xlCalculationManual
Important de le réactiver ...
Juste avant End Sub
ajoute
Application.Calculation = xlCalculationAutomatic
ric
Bonjour,
et si la dernière proposition de ric ne suffit, fait un test en ayant supprimé toutes tes MFC auparavant.
eric