XL 2019 VBA Userform Remplir une combobox

Staple1600

XLDnaute Barbatruc

• 9 Mars 2021

• #2

Bonsoir

Il y a également le passage par List
(non pas Frantz)


Exemple

VB:

Private Sub UserForm_Initialize()
ComboBox1.List = Array(1, 2, 3, 4, 5, 6, 7, 9, 10)
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mars 2021

• #3

Re

Et si il faut remplir avec les données d'une feuille.

VB:

Private Sub UserForm_Initialize()
With Sheets(1)
ComboBox1.List = Range(.[A2], .Cells(Rows.Count, 1).End(xlUp)).Value
End With
End Sub

 

Vote positif 0 Vote négatif

A

alexane

XLDnaute Occasionnel

• 9 Mars 2021

• #4

Ok.
Si je comprends bien, List a pour avantage d'éviter de remplir en utilisant une boucle

VB:

For j = 1 To lim
    ComboBox1.AddItem .Cells(j, 1).Value
Next j

Je vais regarder ça de plus près, c'est moins lourdeau ! Encore merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mars 2021

• #5

Re

Exact. Avec List pas de boucle
Et on peut aussi varier les plaisirs

VB:

Private Sub UserForm_Initialize()
With Sheets(1).Cells(1).Resize(, 13)
    .Formula = "=COLUMN()"
    ComboBox1.List = Application.Transpose(.Value2)
End With
End Sub

 

Vote positif 0 Vote négatif

A

alexane

XLDnaute Occasionnel

• 9 Mars 2021

• #6

Staple1600 à dit:

Re

Exact. Avec List pas de boucle
Et on peut aussi varier les plaisirs

VB:

Private Sub UserForm_Initialize()
With Sheets(1).Cells(1).Resize(, 13)
    .Formula = "=COLUMN()"
    ComboBox1.List = Application.Transpose(.Value2)
End With
End Sub

Cliquez pour agrandir...

C'est quoi cells(1) ? un équivalent de cells(1,1) ?

 

Vote positif 0 Vote négatif

A

alexane

XLDnaute Occasionnel

• 9 Mars 2021

• #7

A oui, je viens de tester avec cells(2) puis cells(20000) Plus simple comme écriture !

 

Vote positif 0 Vote négatif

A

alexane

XLDnaute Occasionnel

• 9 Mars 2021

• #8

Ah , je comprenais pas pourquoi tu me passais ce bout de code mais oui, le transpose pour récupérer les données à l'horizontal, ça peut tjs être utile ! Et puis j'avais jamais utilisé un value2
Merci beaucoup pour toutes ces infos

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mars 2021

• #9

Re

Cells(1) c'est A1
Et toujours pour varier les plaisirs

VB:

Sub k()
Dim a$, b$, c$, d$, e$, f$
a = [A1].Address
b = Cells(1).Address
c = Cells(1, 1).Address
d = Cells(1, "A").Address
e = ActiveSheet.UsedRange.Item(1).Address
f = Range("A1").Address
MsgBox a & vbCr & b & vbCr & c & vbCr & d & vbCr & e & vbCr & f, vbExclamation, "Aie,Caramba!"
End Sub

 

Dernière édition: 9 Mars 2021

Vote positif 0 Vote négatif