[Résolu Alimenter un combobox avec des colonnes au lieu de rangées

K

kjin

XLDnaute Barbatruc

• 23 Novembre 2012

• #2

Re : Alimenter un combobox avec des colonnes au lieu de rangées

bonsoir,

Code:

Combobox1.List = Application.Transpose(Range("F2", Range("IV2").End(xlToLeft)).Value)

A+
kjin

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 23 Novembre 2012

• #3

Re : Alimenter un combobox avec des colonnes au lieu de rangées

Bonsoir,

J'ai le message d'erreur 381 (impossible de définir la propriété List.Index. Pourtant j'appelle l'onglet avec With ?

With Sheets("Commandes Stinson")
ComboBox1.List = Application.Transpose(Range("F2", Range("IV2").End(xlToLeft)).Value)
End With

Merci

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 23 Novembre 2012

• #4

Re : Alimenter un combobox avec des colonnes au lieu de rangées

Bonjour

le with ne sert à rien si tu ne mets pas les points pour rattacher tes références.
transpose est si je ne m'abuse une fonction de feuille de calcul
ComboBox1.List = Application.WorksheetFunction.Transpose(.Range("F2", .Range("IV2").End(xlToLeft)).Value)

Cordialement, @+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Novembre 2012

• #5

Re : Alimenter un combobox avec des colonnes au lieu de rangées

Bonjour,

une autre solution :

Code:

With Sheets("Commandes Stinson")
    ComboBox1.Column = .Range("F2", .Range("IV2").End(xlToLeft)).Value
End With

bonne journée
@+

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 23 Novembre 2012

• #6

Re : Alimenter un combobox avec des colonnes au lieu de rangées

Bonjour,

J'ai modifié vos aides et cela fonctionne : ComboBox1.List = Application.Transpose(Range("c22"))

Cependant, mes cellules sont en format date (2012-12-03) et dans mon combobox il apparaît comme en nombre (41246) ???

Si j'ajoute .value, ça ne fonctionne pas ??? Comment changer l'affichage en date dans le combobox ?

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Novembre 2012

• #7

Re : Alimenter un combobox avec des colonnes au lieu de rangées

Bonjour,

pas de souci chez moi avec le code proposée si les dates sont bien reconnues comme telles par Excel....

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 23 Novembre 2012

• #8

Re : Alimenter un combobox avec des colonnes au lieu de rangées

Bonsoir

Le fichier joint vous aidera peut-être à corriger ce problème.

Merci

 

Pièces jointes

• test cougar.zip

  60.7 KB · Affichages: 38
• test cougar.zip

  60.7 KB · Affichages: 38
• test cougar.zip

  60.7 KB · Affichages: 40

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 23 Novembre 2012

• #9

Re : Alimenter un combobox avec des colonnes au lieu de rangées

Cougar à dit:

Bonjour,

J'ai modifié vos aides et cela fonctionne : ComboBox1.List = Application.Transpose(Range("c22"))

Cependant, mes cellules sont en format date (2012-12-03) et dans mon combobox il apparaît comme en nombre (41246) ???

Si j'ajoute .value, ça ne fonctionne pas ??? Comment changer l'affichage en date dans le combobox ?

Merci

Cliquez pour agrandir...

Bonsoir à tous,

Bonsoir Cougar,

Curieusement, si tu appliques le code de Pierrot, ça marche parfaitement : seulement, n'oublie pas le point de rattachement au With...End With devant Range ni le .Value à la fin.

Code:

ComboBox1.Column= .Range("C2:P2").Value

Par contre, la liste affiche les dates au format bien de chez nous : jj/mm/aaaa

Cordialement.

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 24 Novembre 2012

• #10

Re : Alimenter un combobox avec des colonnes au lieu de rangées

Bonjour,

J'ai retesté le code de Pierrot et oui il fonctionne très bien et les dates.

Merci

 

Vote positif 0 Vote négatif