Mon code est trop lentRésolu

Question

Bonjour à tous,

Voici un code qui fonctionne 
Le seul problème est sa lenteur.
dans ma feuille xls j'ai environ 5000 lignes.
Le tps de l'exécution est d'environ 10 secondes (c'est trés long !!)

1°) Contrôle des filtres
2°) remplissage des cellules avec l'Userform1
3°) je vide l'userform

La vraie lenteur est dans le remplissage des cellules avec les textbox ou combobox.
Comment puis-je l'accélérer ?

--------------------------------------------------------------------------------------

Sub CommandButton1_Click()

    Dim objControl As Control 'Collection des contrôles de l'userform

    If Selection.AutoFilter Then
    Selection.AutoFilter Field:=4
    Range("B10").End(xlDown).Offset(1, 0).Select
        Else
        Range("B10").End(xlDown).Offset(1, 0).Select
    End If

'remplie les cellules à l'aide de l'userform
ActiveCell.Offset(0, 0).Value = dat.Text
ActiveCell.Offset(0, 3).Value = natre
ActiveCell.Offset(0, 4).Value = snatre
ActiveCell.Offset(0, 5).Value = type_
ActiveCell.Offset(0, 6).Value = txtdebit.Text
ActiveCell.Offset(0, 6).NumberFormat = "0.00"
ActiveCell.Offset(0, 7).Value = txtcredit.Text
ActiveCell.Offset(0, 7).NumberFormat = "0.00"
ActiveCell.Offset(0, 9).Value = txtchek
ActiveCell.Offset(0, 9).NumberFormat = "0.00"
ActiveCell.Offset(0, 10).Value = txtdiv

For Each objControl In UserForm1.Controls
    If TypeOf objControl Is msforms.TextBox Then
    objControl.Text = ""
    End If
Next

End Sub

--------------------------------------------------------------------------------------

NHenry · Accepted Answer

Bonjour,

2 liens qui peuvent t'aider : 
http://fordom.free.fr/tuto/OPTIMISATION.htm
http://xcell05.free.fr/pages/prog/accvba.htm

Mon site

Molenn · Answer

Si la lenteur n'est du qu'au nb de lignes que tu as, tu peux désactiver le rafraichissement d'EXCEL et passer en mode de calcul manuel. Tu réactives le tout à la fin de ta procédure.


Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

puis

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False


Molenn

cs_zeps2 · Answer

Merci, tout le monde,

Je vais essayer de suivre ces pistes.

Zeps

cs_zeps2 · Answer

En fin de compte la lenteur est du au nb de feuille (+de 10) et du fait que la liste déroulante des combobox fait référence à des plages ds une feuille.
En ne mettant que 2 feuilles, le remplissage est quasiment instantané, et en mettant le listing ds le code, ça va beaucoup plus vite également.

Zeps

Mon code est trop lent

4 réponses

Votre réponse

Discussions similaires