nb.jours.ouvre et vitesse d'executionRésolu

Question

Bonjour.

J'utilise &#224; ce jour un fichier excel dans lequel je dois calculer le nombres de jours entre 2 dates tout en excluant les jours f&#233;ri&#233;s. J'ai trouv&#233; mon bonheur avec la fonction excel nb.jours.ouvr&#233;s.

Malheureusement &#224; ce jour, mon fichier va bientot compter 1000 enregistrements et lors de la moindre modification excel recalcule les nb.jours.ouvres de tout mon fichier. A ce jour la moindre modifs prend 2 a 3 minutes pour etre prise en compte le temps qu'excel recalcule le tout.

De plus vu le temps de recalcul je ne peux pas me permettre de faire les calculs sur ordre : en effet je ne suis pas la seule a travailler sur le fichier et je me voietres mal dire a mes utilisateurs "pour une modif de 2 sec tu devra attendre 3 min de mise a jour" ou bien "pour voir tes modifs il faut que tu fermes puis ouvre ton fichier" :(

Connaissez vous un moyen d'accelerer le temps d'execution de cette fonction (nb.jours.ouvres) ou tout simplement une autre fonction s'executant plus rapidement voir du Vba. Je precise que je travaille sous Execl 97 et qu'il m'est impossible de migrer le tout sous access ou tout autre basede donn&#233;es.

Merci d'avance.

jpleroisse · Accepted Answer

Bonjour,

Essaye celle-ci &#224; la place de la fonction Excel.

Cette fonction consid&#232;re que le samedi et le dimanche ne sont pas ouvr&#233;s.

Pour le reste c'est la m&#234;me chose(par exemple en A1 21/12/1950, en B1 15/01/1951, en C1  = NbreJoursOuvr&#233;s(A1;B1)

Dans un Module



Function NbreJoursOuvr&#233;s(Date1, Date2)

Dim tjour(7) As String

Dim vNbjours As Integer, i

tjour(1) = 0 'Dimache

tjour(2) = 1 'Lundi

tjour(3) = 1 'Mardi

tjour(4) = 1 'Mercredi

tjour(5) = 1 'Jeudi

tjour(6) = 1 'Vendredi

tjour(7) = 0 'Samedi

For i = Date1 To Date2

    If tjour(WeekDay(i)) = 1 Then

    vNbjours = vNbjours + 1

End If

Next i

NbreJoursOuvr&#233;s = vNbjours

End Function



jpleroisse



Si un r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

cs_Jack · Answer

Salut
Est-ce que tu utilises cette fonction telle quelle ou bien l'utilises-tu dans une macro ?
Si Oui : Fais-tu des boucles dans cette macro ?
Es-tu sure que ces boucles soient 'propres' ?
Il faudrait que tu nous copies/colles le code, qu'on y jette un oeil.

Je ne vois pas pourquoi "faire les calculs sur ordre" (F9) est g&#232;nant puisque de toute fa&#231;on, si le fichier est ouvert sur ton poste, personne d'autre ne peut le lire (&#224; part en mode lecture seule).

Il faut peut-&#234;tre repenser la m&#233;thode de stockage de tes lignes et les dispatcher sur plusieurs feuilles ou plusieurs classeurs. Je pense que Excel ne recalculera pas les feuilles qui ne sont pas apparentes, sauf si tu fais des liaisons.

Sinon, il faut changer de machine et/ou installer plus de m&#233;moire.
D&#233;sol&#233;, il n'y a pas de solution miracle.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Salut
Bonne id&#233;e jp !
Simplifie : 
Dim tjour(7) As Integer
et plus loin
For i = Date1 To Date2
    vNbjours = vNbjours + tjour(WeekDay(i))
End If

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Eyjaring · Answer

Re-Bonjour, merci pour vos r&#233;ponses, c'est exactement ce qu'il me faut, de cette facon je peux intercepter l'event et lui demander de recalculer pour la ligne en cours uniquement, recalcul qui est desormais transparent. 
Me suffis plus de rajouter une chtite fonction pour me calculer les jours f&#233;ri&#233;s &#224; la vol&#233;e ( mais ca, ca ne devrait pas poser de pbs). Vous etes des chefs !!!!

Merci bcp

Eyjaring · Answer

Un  petit rajout le temps d'execution est egalement instant&#233; meme si je je lance le traitement sur mes 1000 enregistrements ( que je peux pas dispatcher en plusieurs feuilles car justement le but est de pouvoir avoir les donn&#233;es sur la meme feuille). C'est trop beau a voir tellement c'est rapide

cs_Jack · Answer

Re
Content que &#231;a solutionne ton probl&#232;me.
Ta macro "nb.jours.ouvres" est incluse dans les fonctions compl&#233;mentaires de Excel.
Je pense que cette macro est internamtionale et, &#224; ce titre, elle doit recalculer les dates des jours f&#233;ri&#233;s &#224; chaque appel. C'est surement la raison de sa lenteur.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Nb.jours.ouvre et vitesse d'execution

6 réponses

Discussions similaires