Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA rowsource

VBA rowsource

4 réponses
Avatar
Pierre.M
Bonjour a tous,

y aurait-il un moyen pour utiliser une liste "horizontale" afin
d'alimenter un combobox avec rowsource(j'utilise un code d'AV qui
utilise rowsource...), ce dernier attendant plutot une liste
"verticale"?

Merci pour votre aide et bonne fin d'apres-midi.

Pierre.M
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
y aurait-il un moyen pour utiliser une liste "horizontale" afin d'alimenter un
combobox avec rowsource(j'utilise un code d'AV qui utilise rowsource...), ce
dernier attendant plutot une liste "verticale"?



Utilise la méthode "AddItem"

Exemple :
Private Sub UserForm_Initialize()
For Each Elt In Sheets("Feuil2").Range("A1:G1")
ComboBox1.AddItem Elt
Next Elt
End Sub

AV

Avatar
Pierre.M
Merci encore une fois pour ton aide :-)
Est ce que ce truc est adaptable facilement a ton modele de comboboxes
en cascade (marque/modeles et couleurs de voitures)? C'est pour ca que
j'en aurais besoin...

Pierre.M



On 2006-09-07 18:14:32 +0200, "AV" said:

y aurait-il un moyen pour utiliser une liste "horizontale" afin
d'alimenter un combobox avec rowsource(j'utilise un code d'AV qui
utilise rowsource...), ce dernier attendant plutot une liste
"verticale"?



Utilise la méthode "AddItem"

Exemple :
Private Sub UserForm_Initialize()
For Each Elt In Sheets("Feuil2").Range("A1:G1")
ComboBox1.AddItem Elt
Next Elt
End Sub

AV



Avatar
michdenis
Cette syntaxe est aussi possible:

Me.ComboBox1.List = Application.Transpose(Sheets("Feuil2").Range("A1:G1").Value)



"AV" a écrit dans le message de news:
%
y aurait-il un moyen pour utiliser une liste "horizontale" afin d'alimenter un
combobox avec rowsource(j'utilise un code d'AV qui utilise rowsource...), ce
dernier attendant plutot une liste "verticale"?



Utilise la méthode "AddItem"

Exemple :
Private Sub UserForm_Initialize()
For Each Elt In Sheets("Feuil2").Range("A1:G1")
ComboBox1.AddItem Elt
Next Elt
End Sub

AV

Avatar
Pierre.M
Merci egalement pour ton aide.
Juste par curiosite, ce "transpose" n'est pas utilisable avec rowsource
je suppose? Je debute et pour l'instant j'utilisais toujours rowsource
que je maitrise bien, mais je sais qu'il existe d'autres methodes...
A quoi correspond le "application"?
Bonne soiree.

Pierre.M



On 2006-09-08 01:46:22 +0200, "michdenis" said:

Cette syntaxe est aussi possible:

Me.ComboBox1.List =
Application.Transpose(Sheets("Feuil2").Range("A1:G1").Value)



"AV" a écrit dans le message de news:
%
y aurait-il un moyen pour utiliser une liste "horizontale" afin d'alimenter un
combobox avec rowsource(j'utilise un code d'AV qui utilise rowsource...), ce
dernier attendant plutot une liste "verticale"?



Utilise la méthode "AddItem"

Exemple :
Private Sub UserForm_Initialize()
For Each Elt In Sheets("Feuil2").Range("A1:G1")
ComboBox1.AddItem Elt
Next Elt
End Sub

AV