Accélérer macro pr saisie userform dans BDD
Bonjour le Forum
je cherche à accélrer ma macro
Pr info je saisis dans un userform puis est versé dans une bdd, j'en suis à 15 000 lignes.
Cette partie semble assez lente (5-6 secondes pour une insertion dans Bdd), comme si elle recharge à chaque colonne (20 au total)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Private Sub Enregistrement_Données()
With Me
tExport(1) = .TB_Code.Text
tExport(2) = CDate(Format(.TB_Date.Text, "dd/mm/yyyy"))
tExport(3) = CDate(Format(.TB_Date.Text, "yyyy"))
tExport(4) = .CO_Mois.Text
tExport(5) = .CO_BudgetReel.Text
tExport(6) = .CO_Compte.Text
tExport(7) = .CO_Poste.Text
tExport(8) = ValeurAvantTiretGroupe(.CO_Poste.Text)
tExport(9) = ValeurApresTiretLigne(.CO_Poste.Text)
tExport(10) = .TB_Numero.Text
tExport(11) = .TB_Libelle.Text
tExport(12) = .CO_ModeRegl.Text
tExport(13) = .CO_Tiers.Text
tExport(15) = .CO_BQ.Text
tExport(16) = Format(.TB_Debit.Text, "#,##0.00 €")
tExport(17) = Format(.TB_Credit.Text, "#,##0.00 €")
tExport(19) = "OUI - " & Format(Date, "YYYY-MM-DD")
tExport(20) = Year(CDate(.TB_Date.Text)) & Format(NOSEM(CDate(Format(.TB_Date.Text, "dd/mm/yyyy"))), "00")
End With
End Sub |
Mémo :
tExport est une variable publique.
Dans l'userform, chaque Texbox.... est tagé en fonction de sa colonne dans la bdd
Je ne sais pas si c'est suffisamment clair !!!!
Il ya til moyen d'accélérer cette macro ?
Merci à vous
