combobox

Le
eneric
Bonjour,
j'ai un combobox dans un USF
je recuperere 2 colonnes voisines (C et D) c'est Ok
mais voila je voudrais egalement voir la 1ere (Col A)
si je mets ColumnCount à 3 il me prends A - B - C
comment echapper à ceci et voir A - C - D
merci

--
eneric
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5230481
Bonjour,

Private Sub UserForm_Initialize()
i = 0
For Each c In Range("A1", [A65000].End(xlUp))
Me.ComboBox1.AddItem
Me.ComboBox1.List(i, 0) = c.Value
Me.ComboBox1.List(i, 1) = c.Offset(0, 2).Value
Me.ComboBox1.List(i, 2) = c.Offset(0, 3).Value
i = i + 1
Next c
End Sub

http://boisgontierjacques.free.fr/pages_site/formulaireListes2colonnes.htm

JB
http://boisgontierjacques.free.fr/



On 13 mar, 17:00, eneric
Bonjour,
j'ai un combobox dans un USF
je  recuperere 2 colonnes voisines (C et D) c'est Ok
mais voila je voudrais egalement voir la 1ere (Col A)
si je mets ColumnCount à 3 il me prends  A - B - C
comment echapper à ceci et voir A - C - D
merci

--
eneric


eneric
Le #5230471
eneric vous demande
Bonjour,

Private Sub UserForm_Initialize()
i = 0
For Each c In Range("A1", [A65000].End(xlUp))
Me.ComboBox1.AddItem
Me.ComboBox1.List(i, 0) = c.Value
Me.ComboBox1.List(i, 1) = c.Offset(0, 2).Value
Me.ComboBox1.List(i, 2) = c.Offset(0, 3).Value
i = i + 1
Next c
End Sub

http://boisgontierjacques.free.fr/pages_site/formulaireListes2colonnes.htm

JB
Merci JB


--
eneric

Publicité
Poster une réponse
Anonyme