Discussion :

[danisoaz]

Bonjour,

Je gère une base de données de contacts (donc dans une feuille de calcul sans aucune formule) à l'aide d'un formulaire composé d'un listview affichant les contacts, des zones de saisies, et commande Enregistrer, modifier etc...

Ma proc d'enregistrement écrit les nouvelles données dans la table, mets à jour le listview et rafraîchit le formulaire avec les dernières données.

Tout se passe bien sauf dans le cas de saisies en boucle où les temps d'enregistrement évoluent de façon exponentielle, je n'ai pas chronométré mais schématiquement ça donne à peu près ça :
La première opération d'enregistrement dure moins d'une seconde
La seconde 2 secondes
La troisière 4 secondes

Quelle est l'explication et éventuellement la solution à ce problème ?

Merci

[jfontaine]

Bonjour,

Ma proc d'enregistrement écrit les nouvelles données dans la table, mets à jour le listview et rafraîchit le formulaire avec les dernières données.

Peux tu poster le code de la proc

[danisoaz]

Bonjour,

Je te le mets en pièce jointe
Merci

[jfontaine]

Pour commencer, connais tu la procédure qui pose problème (Enregistrer, MajListingClients, ChargeFiche)
Si tu ne sais pas, une solution consiste a mesurer les délais en l'appel et le retour de chacune des procédures et de stockées les résultats dans un onglet de mesure
Comme cela tu sauras le temps d'exécution de chacune d'elles a chaque tour

[danisoaz]

Je vais chercher comment faire pour mesurer les temps, mais comment expliques tu qu'une chaine d'opérations identiques puisse voir son temps de traitement doubler, voire tripler, à chaque répétition ?
La suppression de ThisWorkbook.Save en fin d'enregistrement a sensiblement diminué la durée mais pas l'exponentialité.
Merci

[patricktoulon]

Bonjour
une idée

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub truc()
oldnow = Now 'en debut de macro
For i = 1 To 100000000
'c 'est une boucle plus ou moins longue
Next
newnow = Now ' en fin de macro
 
MsgBox Now - oldnow 'l' asoustraction du old au new te donne la différence
End Sub

au plaisir

[danisoaz]

Jérome,

C'est la proc ComboFill qui est en cause, les temps des autres proc sont constants.
ComboFill
Nb Enr Temps Ecart
1 0.27
2 0.48 0.21
3 0.77 0.29
4 1.21 0.44
5 1.80 0.59
6 2.63 0.83
7 3.80 1.17
Donc j'ai revisité le code et je crois avoir trouvé :
Je ne décharge pas mes listes (ListeType etc...) et je les recharge d'autant d'enregistrements !
Je n'ai pas pu tester cette solution car je n'ai pas trouvé comment vider ces collections. Si tu as encore quelques instants à me consacrer pour me dire comment faire, merci.
Daniel

Bonjour Patrick,

Merci d'avoir planché pour moi.
J'ai utilisé ça :

Code :

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

1
2
3
4
5
 
TimeIn= Timer
MajListingClients 'ma procédure
Time = Timer - Timein
vMessage = "MajListingClients " & Round(sngTotalTime, 2) & " seconds"

Cordialement
Daniel