Avis d'expert !

[chasseur44]

Bonjour à tous
Je vous sollicite pour avoir votre avis sur une de mes appli !
J'utilise un Userform afin d'alimenter une base de données classique (le Userform contient onze champs).
la méthode utilisée est des plus classique :
Je me positionne la ou il faut et :
Cells(ligne, 1).Value = TextBox1.Value
Cells(ligne, 2).Value = TextBox2.Value
Cells(ligne, 3).Value = Combobox1.Value
Cells(ligne, 4).Value = Combobox2.Value
...
Cells(ligne, 22).FormulaR1C1 = _
"=IF(RC16=0,RC18,VLOOKUP(RC16&RC17,t_es,5,FALSE))"
...
Je trouve que le temps d'alimentation est relativement long !
environ 6 secondes pour un enregistrement ! (je vous rassure c'est quand même moins long que la saisie manuelle!)
Je fais appel à votre expérience ! afin de savoir si c'est un temps normal ou la méthode utilisée n'est pas des plus rapide
Merci

 

[Pierrot93]

Re : Avis d'expert !

Bonjour,

bah... fonction aussi si procédures événementielles déclenchées par ce code et / ou des re-calculs faits par les formules.... essaye peut être en utilisant ceci :

With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
    'ton code
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With

bonne journée
@+

 

[francedemo]

Re : Avis d'expert !

bonjour,
au lieu de remplir directement chaque cellule, tu peux essayer avec un tableau et tu écris le tableau à la fin uniquement
je ne sais pas si ça sera plus rapide mais tu peux essayer..
à+

 

[chasseur44]

Re : Avis d'expert !

Merci Pierrot93😀
Finalement c'est mes formules qui me font perdre du temps !
Je n'y avais pas pensé !🙂