XL 2016 Lenteur de lancement de userform

KTM · 27 Octobre 2021

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 :

VB:

   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 · 27 Octobre 2021

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

VB:

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 · 27 Octobre 2021

bonsoir
ou bien encore

VB:

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

Code:

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

XL 2016 Lenteur de lancement de userform

KTM

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires

XL 2016 Lenteur de lancement de userform

KTM

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency