Bonjour le forum XLD , après vous avoir sollicité pour la construction de mon fichier de gestion de calcul retraite , je constate une éxécution très longue de mon userfom lorsque je fait une requête ,existe t-il une solution pour améliorer cela ,ou faut-il changer la façon de procéder ,merci de votre aide
XL 2019 Temps éxécution très long sur un userform
- Initiateur de la discussion Did25
- Date de début
Solution
Didier,
N'hésites pas à utiliser dans tes proc la désactivation de l'affichage, du calcul et des événements sans oublier la routine de gestion d'erreurs en fin et le on error au début pour éviter tout problème de désactivation résiduelle. C'est simple et cela accélère déjà considérablement les codes qui agissent sur les cellules. Si tu as besoin dans ton code que les formules soient recalculées en cours de traitement, places un calculate sur l'application, le workbook, la worksheet ou la range concernée.
Après cela, un peu plus compliqué, il y a d'autres moyens d'accélérer en calculant tout en mémoire avec des tableaux VB, en écrivant les cellules en une seule fois ou en appliquant en une fois des modifications de format ou des formules sur un ensemble de cellules ( voir la méthode union, très pratique pour cela ).
Bien cordialement, @+
N'hésites pas à utiliser dans tes proc la désactivation de l'affichage, du calcul et des événements sans oublier la routine de gestion d'erreurs en fin et le on error au début pour éviter tout problème de désactivation résiduelle. C'est simple et cela accélère déjà considérablement les codes qui agissent sur les cellules. Si tu as besoin dans ton code que les formules soient recalculées en cours de traitement, places un calculate sur l'application, le workbook, la worksheet ou la range concernée.
Après cela, un peu plus compliqué, il y a d'autres moyens d'accélérer en calculant tout en mémoire avec des tableaux VB, en écrivant les cellules en une seule fois ou en appliquant en une fois des modifications de format ou des formules sur un ensemble de cellules ( voir la méthode union, très pratique pour cela ).
Bien cordialement, @+
Merci beaucoup pour tes conseils ,très enrichissant ,j'avance à petits pas mais j'avance c'est l'essentiel .
Bien Cordialement , a+
Bien Cordialement , a+
pas si petits que ça, ton projet avance bien et régulièrement, après, pas de secret, il faut en manger !
Salut Yeahou ,toujours sur mon fichier ,j'ai effectué des modifications car en fonction de certains accords ,il faut que j'intègre des critères supplémentaires, à savoir que les jours de récupérations s'implantent en premier à partir de la date carsat et qu' ils sont exprimés en mois exclusivement, c'est à dire par exemple date carsat 1/12/2021 avec 6 mois de jours récupération cela donne "cellule 9" jusqu'au 01/07/2021 ,ensuite se sont les divers congés qui enchainent , ils sont exprimés en jours "cellule 6",mais ils doivent prendre en compte que des mois pleins ,par exemple si il y a 30 jours de jours récupérations, seulement 18 peuvent être pris en compte car les 12 autres dépassent un mois calendaires vis à vis des postes .Même règle pour les jours épargnés "cellules 5". Cela devient compliqué surtout pour la prise en compte de mois , merci de bien vouloir m'apporter ton aide
Bonjour Didier, le forum
Je vois le problème, surtout sur un roulement ou de par nature le nombre de jours de travail diffère selon le mois. Bizarre tes accords, ils pénalisent le salarié qui veut partir au plus vite. Cela complexifie le calcul de date de départ, tes salariés poseront leurs jours restants avant et cela va forcément fausser la prévision pour les calculs d'effectif et retarder les remplacements. Mais bon, un accord est un accord. Et pour les jours résiduels, tu veux un décompte ? leur somme pourra au final couvrir plusieurs mois !
Je ne sais pas si j'aurai le temps de faire cela aujourd'hui, je te fais signe dès que c'est prêt.
Bien cordialement, @+
Je vois le problème, surtout sur un roulement ou de par nature le nombre de jours de travail diffère selon le mois. Bizarre tes accords, ils pénalisent le salarié qui veut partir au plus vite. Cela complexifie le calcul de date de départ, tes salariés poseront leurs jours restants avant et cela va forcément fausser la prévision pour les calculs d'effectif et retarder les remplacements. Mais bon, un accord est un accord. Et pour les jours résiduels, tu veux un décompte ? leur somme pourra au final couvrir plusieurs mois !
Je ne sais pas si j'aurai le temps de faire cela aujourd'hui, je te fais signe dès que c'est prêt.
Bien cordialement, @+
Et oui Yeahou ,pour les jours résiduels ,il me faut un décompte mais si tu regardes le fichier j'ai déjà préparé le terrain ,car je veux un décompte séparé. Par contre ,il est vrai que les accords ne sont pas à l'avantage du salarié mais mon fichier va pouvoir aider à faire le calcul exact des reliquats de congés qui seront payés à la fin par l'entreprise et je pourrais comparé avec celui du gestionnaire de l'entreprise ,il y a tellement d'accords que souvent au final il y a désaccord .......Merci en attendant
je ne vois pas le reliquat des jours de récupération, uniquement divers congés et jours épargnés.
comment calculer le nombre de mois exact pour ces jours de récupération, c'est une donnée que tu entres ? 117 dans la valeur actuellement, cela me semble plutôt être des jours que des mois!
d'accord, c'est le décompte du calendrier, en fait on entre le nombre de mois dans la simulation !
C'est exact ,j'ai juste fait le calcul pour que tu vois ,pour les divers congés et les jours épargnés j'ai fait une simulation avec 30 jours et comme cela dépasse un mois par rapport aux postes ,il restait des reliquats ,si il y avait eu 36 jours ,il n'y aurait pas eu de reliquat car par rapport aux postes ,cela prenait 2 mois pleins
Bonjour Didier
Voila ton fichier modifié, il a fallu que je reprenne complètement le code qui fonctionne maintenant différemment, j'ai aussi revu ton userform de simulation car certaines textbox nommées ne correspondaient pas à la valeur stockée.
Bons tests !
Bien cordialement, @+
Voila ton fichier modifié, il a fallu que je reprenne complètement le code qui fonctionne maintenant différemment, j'ai aussi revu ton userform de simulation car certaines textbox nommées ne correspondaient pas à la valeur stockée.
Bons tests !
Bien cordialement, @+
Solution
Bonsoir Yeahou ,j'ai fait le test et j'ai effectué une modification sur le module n°2 avec :
f1.Range("D3").FormulaR1C1 = MoisRecuperation5x8f1.Range("D3").FormulaR1C1 = MoisRecuperation5x8
afin de mettre le nombre de mois sur le tableau de bord ,c'est nickel ,il me reste a l'adapter sur les autres rythmes de travail ,j'aurai peut-être des choses à voir au sujet des trois quart temps mais ce n'est pas certain ,merci encore bonne soirée
f1.Range("D3").FormulaR1C1 = MoisRecuperation5x8f1.Range("D3").FormulaR1C1 = MoisRecuperation5x8
afin de mettre le nombre de mois sur le tableau de bord ,c'est nickel ,il me reste a l'adapter sur les autres rythmes de travail ,j'aurai peut-être des choses à voir au sujet des trois quart temps mais ce n'est pas certain ,merci encore bonne soirée
Discussions similaires
- Question
Microsoft 365
Afficher les données d'un userform sur un autre userform
- Résolu(e)
