Discussion :

[jfab66]

Bonjour ,
je suis en train de créer un fichier Excel pour gérer le planning de personnels .
A ce titre, j'ai créé des 'UserForm' pour faciliter l'utilisation des différentes options :
-> une option me pose un problème car elle fonctionne très bien dans un sens MAIS elle est très Lente dans le sens inverse, alors qu'elle ne concerne 12 cellules à copier.

Explication :
- un bouton 'CommandButton1' me permet de copier des cellules de mon tableau excel et de les coller dans des zones de texte déroulantes sur mon Userform
- ensuite je peux modifier 1 à 1 ces zones de textes en fonction de choix de ma liste déroulante
jusqu'ici tout fonctionne correctement .... et instantanément
- pour valider les changements et les sauvegarder en copiant les valeurs modifiées pour les coller dans le tableau excel j'ai crée un autre bouton 'CommandButton2'

c'est là que commence le problème : La mise à jour fonctionne MAIS dure plusieurs secondes avant de se terminer.

? Pourquoi çà fonctionne bien dans un sens mais très très lentement dans l'autre ?

ci joint le fichier avec les données code VBA.txt

Merci

[parmi]

Bonjour,

Possiblement parce que tu copies tes données dans une feuille qui contient des formules et le recalcul peut prendre du temps.
Dans l'autre sens, il n'y a pas de recalcul puisque tu copies dans un Userform...

[joe.levrai]

Bonjour,

pour compléter la piste de parmi, si tu as effectivement un nombre conséquent de formules et que le ralentissement est lié au recalcul, essaye de le neutraliser durant l'ajout comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.Calculation = xlCalculationManual
' la partie du code qui fait l'ajout
Application.Calculation = xlCalculationAutomatic

autre piste : si tu as des procédures évènementielles dans la feuille, elles peuvent également générer un ralentissement
si c'est bien le cas, et que durant l'ajout tu n'as pas besoin d'utiliser ces procédures évènementielles, tu peux également les neutraliser comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.EnableEvents = False
' la partie du code qui fait l'ajout
Application.EnableEvents = True

encore une piste, mais peut probable : désactiver le rafraichissement de l'écran :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.ScreenUpdating = False
' la partie du code qui fait l'ajout
Application.ScreenUpdating = True

bien sûr, ces trois neutralisations peuvent être effectuées toutes ensembles
bien sûr, ces neutralisations peuvent être étendues à l'ensemble de ta procédure, dans ce cas il faut insérer les deux lignes de code au tout début (et à la toute fin) de ta procédure





Si aucune proposition n'améliore la durée de traitement, il devient opportun de nous montrer ta procédure complète... je n'ai pas ouvert ton fichier

[jfab66]

j'ai résolu mon problème avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.Calculation = xlCalculationManual
' la partie du code qui fait l'ajout
Application.Calculation = xlCalculationAutomatic

En effet, j'ai beaucoup de formules qui ralentissent la procédure de mise à jour.

Merci beaucoup pour cette aide rapide et efficace