Discussion :

[danbo52]

Bonjour,

Question de gain de temps dans les routines VBA.

Je souhaite charger une listbox le plus rapidement possible. J'entends par 'le plus rapidement possible', avec le moins de traitements de code possible (il est vrai, qu'un informaticien doit être un peu fénéant, cela l'oblige à optimiser son code).

si...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
UserForm.ListBox.Rowsource = "laFeuille!A1:B2"

est connu, et fonctionne,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
UserForm.ListBox.Rowsource = "laFeuille!A1:B2" & "laFeuille!C1:D2",

ne fonctionnant pas. Existe-t-il une méthode qui s'assimilerait à cette forme associative de plages pour charger une listbox ? Je cherche à minimiser les lignes de code.

Merci, si avis ou piste.

Danbo52

[Fvandermeulen]

Salut,
Au lieu de RowSource tu peux utiliser AdItem, mais ça veut dire une boucle pour passer sur chaque cellule => pas certain que ce soit plus court en terme de code, voici toujours un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Dim MaPlage As Range, cel As Range
 
Set MaPlage = Sheets("LaFeuille").Range("A1:b2", "C1:D2")
 
For Each cel In MaPlage
    UserForm.ListBox.AddItem cel
Next cel
 
End Sub

A+

[danbo52]

Fvandermeulen, merci, mais je connais bien cela.

Je pense à un constructeur pour réaliser ce travail, constructeur qui serait de la forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
userform.listbox.Rowsource = "Plage A" & "Plage B" & "Plage C"

...., qui éliminerait toutes les lignes au-delà de la plage à moindre lignes.

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
userform.listbox.Rowsource = "Plage!A1:B2" & "Plage!C1:D3" & "Plage!E1:F4"

qui élimerait donc les parties au-delà de 2, car la plage l plus courte est plage!A1:B2

Elle renverrait un résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
userform.listbox.Rowsource = "Plage!A1:B2" & "Plage!C1:D2" & "Plage!E1:F2"

Si je parviens à me faire comprendre.

L'idée centrale c'est : moins de code !

Mon travail consiste à remplir et vider des listbox dans le cadre d'un gestionnaire de devis-factures avec clients, fournisseurs, articles, stocks.

Comme il y a de nombreuses routines pour remplir les listbox (toujours les mêmes), je réfléchisssais à cela en le soumettant aux neurones des praticiens.

Voilà, voilà !

[danbo52]

Je pars tout de même sur ton principe, mais j'me creuse la tête, j'ai l'obsession de la réduction de mon nombre de lignes.
Je vais peut-être me construire une tiote fonction !

[Fvandermeulen]

OK, si tu trouve, n'oublie pas de poster ta solution, ça m'intéresse...
A+