Userform lent Résolu/Fermé

Question

Bonjour, 

Je suis novice en VBA et j'aurai besoin de votre aide si ce n'est de vos lumières. 

Mon fichier ci-joint, 	https://www.cjoint.com/?3IxwPCc4bsR nous sert au quotidien pour gérer des données et permettre une vérification de l'état de nos assurés rapidement. 

Le fichier en soit fonctionne très bien, malheureusement ce qui me pose problème c'est le temps de validation des données que ce soit en créant un nouveau cas ou en saisissant des modifications. 

L'Userform permet également de pouvoir consulter certaines données en plaine modification. Exemple, Solde de jour droit doit être le résultat de Droit de joursLAA/LAMAL moins Jours LAA/LAMAL payés cette année et année précédente. 

En testant le fichier avec une BDD de 150 lignes, j'ai une latence de 16 sec lors d'une validation. J'aimerai pouvoir accélérer le tout.

J'ai appris y a peu que les macros automatiques ralentissent et alourdissent inutilement le fichier. Malheureusement, en lisant les livres ou autre je n'arrive pas à appliquer certaines des explications ou consignes. La pratique est plus concrète pour moi et compréhensible. C'est pourquoi je m'excuse si ce que vous allez voir vous pique les yeux. 

Mon but et de voir améliorer le fichier mais également apprendre des mes erreurs. 
D'avance merci de votre aide mais surtout de votre compréhension car il n'est pas évident de faire les choses en autodidacte.

Zoul67 · Answer

Bonjour,

Une validation (quel bouton) de quel UserForm (il y en a 4) ?

A+

JinRo · Answer

Bonjour dans les Usf IJ et Mandataires quand je fais saisir ou valider une modification j'ai un temps de latence quand la Bdd contient déjà 150 ligne.

JinRo · Answer

Alors après ton message, j'ai mis application.calculation=xlcalculationmanul et automatic l'un en début et l'autre à la fin de mon module Calcul_ijai. 

Mais ça ne change pas le temps. 

Pour le timer pourrais-tu m'expliquer comment procéder où le mettre exactement,svp?

JinRo · Answer

Encore merci de ton aide! Je n'avais pas compris que le Range("A" & Cells.Rows.count.End(xlup).Row était recalculé plein de fois. Je n'en avais pas compris la portée. pour corriger le tir, est-ce que ceci convindrait? Sub Calcul_IJAI()Dim i&, fin&With Sheets("IJ")fin = Range("A" & Rows.Count).End(xlUp).RowFor i = 2 To 1000If Cells(i, 1) <> "" Then Cells(i, 4).FormulaR1C1 = "=IF(SUMPRODUCT((Mandataires!R2C1:R5000C1=IJ!RC1)*(Mandataires!R2C4:R5000C4=""En cours""))>0,""En cours"",""Terminé"")"Next iEnd WithEnd Sub Maintenant si c'est le cas pour chaque formule devrais-je à chaque fois remettre : If Cells(i, 1) <> "" Then Cells(i, 4).FormulaR1C1 = "= avec la formule de calcul que je souhaite ou est-ce que cela alourdirai encore le fichier? ou alors un then cells(i, X).FormulaR1C1 = "= Et pour répondre à ta question les formules à gogo comme tu les as appelé, me permettent de déterminé certains éléments nécessaire au traitement d'un dossier. Et comme je sais que certains sont fortiche pour les supprimer j'ai besoin d'être sûr depouvoir les réintégrer sans avoir à me casser la tête car fichier non protégé.

JinRo · Answer

Rebonjour, 

Navré pour le délais de réponse mais le travail et la vie de famille ne m'en a pas trop laissé le temps. 

Je vais essayer de répondre à tes questions. 

Pour commencer, j'ai essayé de suivre tes conseils pour la modification du Calcul IJAI :
Est-ce que ceci serait plus correct : 

Sub Calcul_IJAI()Dim derligne As Longderligne = Range("A" & Cells.Rows.Count).End(xlUp).RowRange("D2:D" & derligne).FormulaR1C1 = "=IF(SUMPRODUCT((Mandataires!R2C1:R5000C1=IJ!RC1)*(Mandataires!R2C4:R5000C4=""En cours""))>0,""En cours"",""Terminé"")"Range("I2:I" & derligne).FormulaR1C1 = "=SUM(RC[-1]+2)"'Calcul déterminant le droit pour le paiement des jours LAA/LAMALRange("X2:x" & derligne).FormulaR1C1 = "=IF(MONTH(RC[-1])>MONTH(TODAY()),"""",IF(365>=DATEDIF(RC[-1],TODAY(),""d"")-RC[-2],30,IF(730>=DATEDIF(RC[-1],TODAY(),""d"")-RC[-2],60,IF(1095>=DATEDIF(RC[-1],TODAY(),""d"")-RC[-2],90,IF(1095<DATEDIF(RC[-1],TODAY(),""d"")-RC[-2],90,"""")))))"'Calcul du nombre d'attestation à recevoir pour valider les paiementsRange("AC2:AC" & derligne).FormulaR1C1 = "=SUMPRODUCT((Mandataires!RC[-28]:R[998]C[-28]=IJ!RC[-28])*(Mandataires!RC[-25]:R[998]C[-25]=""En cours""))"'Calcul du nombre d'attestation reçueRange("CL2:CL" & derligne).FormulaR1C1 = "=SUMPRODUCT((Mandataires!RC[-89]:R[998]C[-89]=IJ!RC[-89])*(Mandataires!RC[-86]:R[998]C[-86]=""En cours"")*(Mandataires!RC[-84]:R[998]C[-84]=""Reçue""))"'Indication de la date du dernier paiement effectué pour l'assuréRange("CM2:CM" & derligne).FormulaR1C1 = "=IF(RC[13]="""","""",INDEX(RC[13]:RC[24],,COUNT(RC[13]:RC[24])))"'12 calculs pour déternimner le dernier paiement effectuéRange("CZ2:DK" & derligne).FormulaR1C1 = "=IF(RC[-12]="""","""",VALUE(RC[-12]))"End Sub

En faisant un petit test en effaçant toutes les formules et rien qu'en appelant le module de calcul toutes ces dernières se remettent plus vite. Beaucoup plus vite qu'avant. 

Par conséquent, j'ai essayé de le refaire via l'USF. Bien que cela soit plus rapide j'arrive toujours à une certaine latence. 

Par rapport au temps de latence  j'ai essayé d'utilisé le t=timer mais malheureusement je dois pas savoir l'utiliser correctement ou le placer tout court. navré. J'ai fait un test avec un chrono... (c'est honteux, je sais.)

Pour finir j'en arrive à la conclusion que c'est l'USF lui même qui ne va pas. 

	https://www.cjoint.com/?3IyxQxdg9pq

là c'est une copie du fichier avec des données bidons si tu es d'accord d'y jeter un coup d'oeil, ça serait sympa. 

Au début, j'ai cru que c'était le calcul entre les Textbox qui ralentissaient. Mais même en supprimant ces calculs j'ai toujours les ralentissements.

JinRo · Answer

Bonjour, 

Un grand merci à toi pour ton aide. Honnêtement, je ne comprends plus rien tu m'avais déjà proposé la solution :

Application.Calculation= xlcalculationautomatic et manual. Et quand j'ai eu testé cela ne changeait rien... Et pourtant il me semble que j'avais positionné ces commandes comme tu l'as fait dans l'exemple ci-dessus. 

En en parlant, avec un collègue de travail, on s'est demandé si l'environnement de travail ne pouvait pas jouer un rôle également. (matériel ou réseau) 

Le timer est génial mais comment as-tu compris que c'était les Textbox 8 à 99 qui mettaient concrètement du temps? Car en laissant l'usf tel qu'à l'origine j'ai utilisé le timer est j'obtiens dans le fichier que je t'ai passé 5.863... Mais il ne me donne pas d'autre indication. 

Pour répondre à ta première question, je ne rencontre aucun soucis pour retrouver un même assurés et quand bien même il puisse y avoir x fois le même non. Même si cas plus ou moins rare cela se produisait. Je ne reprend pas mes données par la combobox qui référence les données de ma BDD mais par l'USF de recherche qui lui me permet de voir le nombre de possibilité en fonction de la donnée de recherche que je lui ai donné. (Merci à un forumer qui me l'a montré car je galérais pour obtenir un même résultat avec c.offset.) Je t'invite à le tester. (le fichier test ayant été remplis uniquement pour généré le problème de lenteur, on ne peux pas réellement bien s'en rendre compte.) 

Pour ta seconde question, je ne dirais qu'une chose. Je n'en sais rien. J'ai cru comprendre qu'il y a plusieurs façon d'arriver à un même résultat tout dépendra de qui fait quoi et comment de ce que j'en comprends. 

As mon tour de te demander (encore) quelque chose par rapport à mes usf sachant que je me suis arranger pour passer de l'un à l'autre sans avoir à changer d'onglet ou n'avoir à faire une manipulation compliquée. 

Serait-il judicieux de remplacer :     Sheets("IJ").Activate par With ThisWorkbook.Sheets("IJ") la deuxième solution ne serait-elle pas moins lourde ou me créerait-elle plus d'ennuis?

Encore merci pour ton aide et conseils c'est vraiment très appréciable et sympathique.

eriiic · Answer

Bonjour,

Dans un 1er temps, pour pas cher :
application.screenupdating=false
au début des codes qui écrivent sur les feuilles.
=false en fin pour la clarté.
Le réactiver temporairement en cours de route si tu as besoin de résultats intermédiaires.

2)dans ton code je vois :
Range("D2:D" & derligne).FormulaR1C1 = "=IF(SUMPRODUCT((Mandataires!R2C1:R5000C1=IJ!RC1)*(Mandataires!R2C4:R5000C4=""En cours""))>0,""En cours"",""Terminé"")"
Sommeprod est extrêmement gourmand en ressources. 
Sur 2 colonnes déjà, plus quelques tartines à ailleurs.
Il faut agir dessus.
Dans un premier temps ne le fais pas sur 5000 lignes (1000 lignes pour les autres), mais sur le nombre exact de lignes nécessaires :
derlig=worksheets("ta_feuille").cells(Rows.Count,"A").End(xlUp).Row
"A" étant une colonne avec des données sur toutes les lignes.
Si ça n'est pas suffisant il faut charger la plage de données en mémoire dans un tableau, calculer en interne, et coller le résultat sur la feuille en se passant des formules. En sachant qu'il faudra mettre à jour s'il y a des modifs.

eric

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

JinRo · Answer

Bonsoir à tous deux! J'espère que vous avez passé un bon week-end.
Merci encore pour vos explications et votre aide.

Eriiic pour tout te dire après que Zoul67 m'ait montré comment utilisé : derligne = Range("A" & Cells.Rows.Count).End(xlUp).Row
Je m'étais dit que ça devait également marché pour les formules à la façon sommeprod. Mais je n'ai pas eu le temps de faire des essaies que tu m'apportais déjà la réponse. 

Zoul67, depuis les modifications le fichier tourne impec. Et niveau temps de fonctionnement c'est vraiment génial encore merci. 

En revanche est-ce que j'oserai encore abuser de ta/vôtre gentillesse?

Voilà dans le même userform, j'ai essayé de faire que les dates qui se trouvent dans mes textbox se colorent en rouge si la date de la Textbox + 30 jours est plus petite que la date du jour. 

J'ai essayé ces deux codes Private Sub T6_Change()Dim FirstDate As DateDim IntervalType As StringDim Number As IntegerIntervalType = "d"FirstDate = IsDate(T6)Number = 30If DateAdd(IntervalType, Number, FirstDate) >= Day(Now) ThenT6.ForeColor = vbBlackElseT6.ForeColor = vbRedEnd IfEnd Sub

et c'est autre ci :

Private Sub T6_Change()If IsDate(T6) + 30 >= Day(Now) ThenT6.ForeColor = vbBlackElseT6.ForeColor = vbRedEnd IfEnd Sub

Ma Textbox se colore effectivement mais pas pour les bonnes raisons. Auriez-vous l'amabilité de m'expliquer? 

D'avance merci.

JinRo · Answer

Voilà avec du temps de retard...

J'ai trouvé cette solution.

Private Sub T11_Change()With T11If IsDate(T11.Value) ThenIf CDate(T11) + 5 > DateValue(Now) ThenT11.ForeColor = RGB(0, 0, 0)ElseT11.ForeColor = RGB(255, 0, 0)End IfEnd IfEnd WithEnd Sub

Merci encore du temps consacré!

Userform lent

9 réponses

Discussions similaires