Combobox multicolonne

Le
GGAL
Bonjour,

J'ai un combobox qui me permet d'afficher deux colonnes A et D, en masquant
les colonnes B et C (mais je n'ai pas trouvé mieux) :

With Formulaire.ComboBox4
.ColumnCount = 2
.RowSource = "A1:D500"
.ListIndex = 0
.ColumnWidths = "40 pt;1 pt;1 pt;40 pt"
End With

Je voudrais que les colonnes s'affichent dans l'ordre : D puis A.
Y a-t-il une autre façon de procéder que de jouer sur la largeur des
colonnes ?

Merci d'avance,

GGAL
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 #18470561
Bonjour,


Il faut utliser AddItem:

Private Sub UserForm_Initialize()
i = 0
For Each c In [D1:D500]
Me.ComboBox1.AddItem c
Me.ComboBox1.List(i, 1) = c.Offset(0, -3)
i = i + 1
Next
End Sub

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

JB
http://boisgontierjacques.free.fr

On 24 jan, 08:08, GGAL
Bonjour,

J'ai un combobox qui me permet d'afficher deux colonnes A et D, en masqua nt
les colonnes  B et C (mais je n'ai pas trouvé mieux) :

With Formulaire.ComboBox4
.ColumnCount = 2
.RowSource = "A1:D500"
.ListIndex = 0
.ColumnWidths = "40 pt;1 pt;1 pt;40 pt"
End With

Je voudrais que les colonnes s'affichent dans l'ordre : D puis A.
Y a-t-il une autre façon de procéder que de jouer sur la largeur des
colonnes ?

Merci d'avance,

GGAL


GGAL
Le #18471231
C'est tout à fait ça.
Merci beaucoup.

GGAL

"JB" a écrit :

Bonjour,


Il faut utliser AddItem:

Private Sub UserForm_Initialize()
i = 0
For Each c In [D1:D500]
Me.ComboBox1.AddItem c
Me.ComboBox1.List(i, 1) = c.Offset(0, -3)
i = i + 1
Next
End Sub

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

JB
http://boisgontierjacques.free.fr

On 24 jan, 08:08, GGAL > Bonjour,
>
> J'ai un combobox qui me permet d'afficher deux colonnes A et D, en masquant
> les colonnes B et C (mais je n'ai pas trouvé mieux) :
>
> With Formulaire.ComboBox4
> .ColumnCount = 2
> .RowSource = "A1:D500"
> .ListIndex = 0
> .ColumnWidths = "40 pt;1 pt;1 pt;40 pt"
> End With
>
> Je voudrais que les colonnes s'affichent dans l'ordre : D puis A.
> Y a-t-il une autre façon de procéder que de jouer sur la largeur des
> colonnes ?
>
> Merci d'avance,
>
> GGAL




Publicité
Poster une réponse
Anonyme