FORMATAGE DE CHAINES ET MESURES DE TEMPS D'EXECUTION
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
2 janv. 2007 à 08:50
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 2 janv. 2007 à 08:50
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 2 janv. 2007 à 08:50
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1437-formatage-de-chaines-et-mesures-de-temps-d-execution
https://codes-sources.commentcamarche.net/source/1437-formatage-de-chaines-et-mesures-de-temps-d-execution
2 janv. 2007 à 08:50
par exemple, la première ligne de ce code (Avant) :
a(i) = Text1(i).Text 'Lecture
a(i) = Format$(Text1(i).Text, "0000") 'Formattage
n'a rien a faire là... puisque tu écrases aussitot a(i)
de plus, tes mesuers sont fausses, puisque le contenu de tes deux textboxes, a l'arrivée sont différents (erreur de codage)
essaye plutot, par exemple :
Dim c As String
For j = 1 To 100
For i = 0 To 3
c = c & Format$(Text1(i).Text, "0000") 'String de sortie
Next i
Next j
Text1(4).Text = Text1(4).Text & c
et tu verras que le temps de traitement diminue sensiblement. En effet, chaque fois que tu modifie le TextBox, celui ci est redessiné, cela est couteux....