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

[Cougar]

Bonsoir le forum,

Je veux alimenter un combobox avec les rangées F22 avec la ligne de code suivante sans succès :

t = .Range("f22" & .Cells(Columns.Count, 1).End(xlleft).Column): ComboBox1.List = t

Quels correctifs apporter ?

Merci

 

[kjin]

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

bonsoir,

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

A+
kjin

 

[Cougar]

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

 

[Bernard_XLD]

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, @+

 

[Pierrot93]

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

Bonjour,

une autre solution :

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

bonne journée
@+

 

[Cougar]

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

 

[Pierrot93]

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....

 

[Cougar]

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

 

[Papou-net]

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

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.

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

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

Cordialement.

 

[Cougar]

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