bonjour,

je suis bientôt au bout de mon calvaire, la lumière au bout du tunnel, c'est peut être vous!

Voilà j'ai une base de donnée qui contient 4000 lignes quand je viens à éxécuter les 4000 lignes.

Cela dure plus de 2 minutes.

comment je peux faire pour accélérée le chmilblick!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Initialize()
    Dim Cellule As Range
    Dim balan As Range
 
    Dim oCollection As New Collection
    Dim i As Long
 
    For Each Cellule In Feuil4.Range("a2:a" & Feuil4.Range("a" & Rows.Count).End(xlUp).Row)
        AjouterItem oCollection, Cellule.Value
    Next Cellule
 
    For i = 1 To oCollection.Count
        ComBox1.AddItem oCollection.Item(i)
    Next i
End Sub
ceci est mon programme principal