XL 2016 Lenteur de lancement de userform

[KTM]

Bonjour chers tous
je voudrais savoir si une liste longue alimentant un combobox pourrait ralentir le lancement d' un formulaire.
Si oui que faire ? j'utilise le code suivant pour l'alimenter :

   Dim n%, i%
    With Worksheets("Listes")
        n = .Cells(.Rows.Count, 19).End(xlUp).Row
        For i = 2 To n
            ComboBox2.AddItem .Cells(i, 19)
        Next i
    End With

Merci

 

[ChTi160]

Bonsoir KTM
Pas évident dans fichier !
Tu devrais essayer de passer par un tableau

With Worksheets("Listes")
        n = .Cells(.Rows.Count, 19).End(xlUp).Row
       Tablo = .Range(.Cells(2,19),.Cells(n,19) ).Value
       ComboBox2.List=Tablo   
End With

A voir !
Depuis mon téléphone
Cordialement
Jean marie

 

[patricktoulon]

bonsoir
ou bien encore

With Worksheets("Listes")
        n = .Cells(.Rows.Count, 19).End(xlUp).Row
       Tablo =.Cells(2,19).resize(n-1).value
       ComboBox2.List=Tablo   
End With

et si la variable "tablo" n'est pas en global module on la vire aussi

With Worksheets("Listes")
        n = .Cells(.Rows.Count, 19).End(xlUp).Row
        ComboBox2.List=.Cells(2,19).resize(n-1).value 
End With