jcop :
chaque ligne est une concatenations de differents champs optenus via une requette sql ( rs(...) )
la deuxieme ligne est concatennee à la premiere, la 3eme au deux premieres, etc..
il y avait environ 700 lignes. (sur un P3 548 MHz sous XP)
je suis partit de 46 secondes, puis 17, puis 4/5, puis entre 1, 2 et 3, en moyenne 2
et c pas fini !
le code proposé sur VBFrance est buggué !
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Extrait de l'article consacré à l'optimisation du code en VB
'paru dans le mensuel "Programmez!" en novembre 2000 (mensuel n°26)
'et écrit par Xavier LECLERCQ.
'------------------------------------------------------------------------------
'
'Soit deux chaînes de caractères:
' CH1 = "Méthode standard"
' CH2 = " de concaténation."
'
'Par concaténation standard, cela donne :
' CH1 = CH1 & CH2
' soit CH1 = "Méhode de concaténation standard."
'
'Que fait VB pour réaliser cette opération ?
' 1. Il alloue une plage mémoire temporaire qui contiendra le résultat;
' 2. Il copie CH1 au début de cette plage;
' 3. Il copie CH2 à la fin de cette plage;
' 4. Il libère la plage mémoire CH1 d'origine;
' 5. Il alloue la plage mémoire définitive qui contiendra le résultat;
' 6. Il copie la zone temporaire vers cette plage mémoire définitive.
'
'Il y a beaucoup plus simple en VB !
'
'Soit nos deux chaines de caractères:
' CH1 = "Méthode standard"
' CH2 = " de concaténation."
'
' 1. L1 = Len(CH1)
' 2. L2 = Len(CH2)
' 3. CH1 = CH1 & Space(L2) 'Pour une allocation mémoire très rapide
' 4. Mid(CH1, L1, L2) = CH2 'Copie
' Remarque personnelle : c'est l'instruction MID qui est utilisée
' et non la fonction... Voir MSDN
'
'Ce qui donne:
'
' Dim CH1, CH2 As String
'
' CH1 = "Méthode standard"
' CH2 = " de concaténation."
'
' L1 = Len(CH1)
' L2 = Len(CH2)
' CH1 = CH1 & Space(L2)
' Mid(CH1, L1, L2) = CH2
'
' MsgBox CH1
'
il faut ecrire :
' Dim CH1, CH2 As String
'
' CH1 = "Méthode standard"
' CH2 = " de concaténation."
'
' L1 = Len(CH1) [4][b]+ 1[/b][/4]
' L2 = Len(CH2)
' CH1 = CH1 & Space(L2)
' Mid(CH1, L1, L2) = CH2
'
' MsgBox CH1
ça parait débile, mais je suis passé de 17 secondes à .... 2/3 secondes avec cette idée 
)
le code proposé sur VBFrance est buggué !
).
)
(pas d'étapes 5 et 6)