utilisation de Rowsource dans la Combobox

bonjour a tous. je suis en face d'un problème et je n'arrive pas à trouver la solution.

j'ai un ensemble de données dans ma feuille excel. je lui ai attribué un nom afin de l'utiliser dans l'option "rowsource" de une "combobox". le souci est que mes données sont un ensemble de
colonne ( range ("A1:L1")) . du coup, la combobox n'affiche que le premier élément de ma liste.

comment faire pour qu'il puisse lire tous les éléments de mes données.

merci d'avance

Bonjour,

Le champ doit être vertical.
RowSource est souvent source de pb. Il est préférable d'utiliser List ou Column
Si le champ est horizontal, utiliser

Code:

---

Me.combobox1.List=Application.Transpose(Range("A1:L1"))

---

ou

Code:

---

Me.combobox1.Column=Range("A1:L1")

---

Boisgontier

svp je dois ecrire cette ligne de code dans quel evenement??

dans Change ou autres ???

Dans Initialize

Boisgontier

désolé mais je n'arrive pas toujours à résoudre mon problème.si vous pouvez mieux m'expliquer la procédure ,ca m'aiderait beaucoup. merci

Bonjour Jacques,

Citation:

---

Le champ doit être vertical.
RowSource est souvent source de pb. Il est préférable d'utiliser List ou Column

---

Ce n'est pas la propriété RowSource qui est source de problème mais la manière dont les utilisateurs construisent leurs données et sauf si une liste doit être affichée avec critères ou si je dois afficher le titre des colonnes d'une liste, je privilégie toujours cette propriété qui a l'avantage notamment d'afficher les titres de la liste de données.

Bonjour,

Citation:

---

désolé mais je n'arrive pas toujours à résoudre mon problème.si vous pouvez mieux m'expliquer la procédure ,ca m'aiderait beaucoup.

---

Comme expliqué par Jacques Boisgontier le code qu'il t'a proposé doit être placé dans la procédure événementielle Initialize de ton UserForm (UserForm_Initialize)
Je suppose que si tu as pu alimenter la propriété RowSource tu sais où se trouve cette procédure

Je crois qu'il a en plus déposé un classeur exemple. L'as tu ouvert ?

2 problèmes de Rowsource


1er problème

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Me.ComboBox1.RowSource = Range("A1:A10").Address End Sub   Private Sub ComboBox1_Change() MsgBox "coucou" End Sub

---

-utiliser le combobox une fois
-si on modifie la source (A1:A10), déclenche l'événement change du combobox

2e problème


On ne peut filtrer le combobox en utilisant List ou Column

cf x posts à ce sujet ( de débutants)


Boisgontier

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Me.ComboBox1.Column = Range("A1:M1").Value End Sub   Private Sub ComboBox1_Change() MsgBox "coucou" End Sub

---

Affichage des en-têtes d'une LListBox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim Rng, NbCol Private Sub UserForm_Initialize() Set f = Sheets("BD") Set Rng = f.Range("A2:D" & f.[A65000].End(xlUp).Row) NbCol = Rng.Columns.Count Me.ListBox1.ColumnCount = NbCol tblBD = Rng.Value Me.ListBox1.List = tblBD EnteteListBox End Sub   Sub EnteteListBox() x = Me.ListBox1.Left + 8 Y = Me.ListBox1.Top - 12 For i = 1 To NbCol Set lab = Me.Controls.Add("Forms.Label.1") lab.Caption = Rng.Offset(-1).Cells(1, i) lab.Top = Y lab.Left = x x = x + Rng.Columns(i).Width * 1.1 temp = temp & Rng.Columns(i).Width * 1.1 & ";" Next temp = Left(temp, Len(temp) - 1) Me.ListBox1.ColumnWidths = temp End Sub

---

Boisgontier

Bonjour Jacques,

Citation:

---

-si on modifie la source (A1:A10), déclenche l'événement change du combobox

---

Je n'utilise pas l'événement Change (pour intercepter la sélection j'utilise Click) d'un ListBox ou ComboBox ce n'est donc pas un problème pour moi.
La procédure événementielle Change réagit d'ailleurs également lorsque l'on clique sur un des éléments de la liste et cela que tu utilises la propriété RowSource, List ou la méthode AddItem
Quant au 2ème problème

Citation:

---

On ne peut filtrer le combobox en utilisant List ou Column

---

Si cette réponse m'était adressée, je ne pense pas avoir prétendu cela. Lorsque j'affiche une liste qui doit être filtrée, j'utilise la méthode Add

-Avec Click au lieu de change, je confirme le 1er problème (cf PJ)
-Les débutants se font avoir. En utilisant Rowsource, ils ont Accès refusé
s'ils essaient AddItem, List ou Column.

Boisgontier

Bonjour,
Je crois que c'est un dialogue de sourd.
Je n'ai aucun problème avec RowSource et je ne mélange pas l'usage des propriétés pour un même contrôle.

Salut.

Perso, je charge les combobox et listbox avant le show dans la procédure qui appelle et affiche le formulaire, ce qui est grandement facilité par l'utilisation des tables de données, et on évite ainsi le hard coding dans le formulaire.

Code:

---

1 2 3 4

With UserForm1 .ListBox1.List = Range("t_contacts").Value .Show End With

---

Je n'utilise jamais le rowsource qui pose au moins trois problèmes:

1. Préciser que rowsource = feuil1!A1:A10 revient à pratiquer du hard coding, obligeant à modifier le userform si ce n'est plus A1:A10 (ajout ou suppression d'une ligne, déplacement de la plage, renommage de la feuille, etc).

2. Si on tente de créer une plage nommée dynamique ou d'utiliser les références structurées dans le RowSource, l'ajout ou la suppression de lignes dans la source va planter Excel à l'ouverture suivante du userform.

3. Si, durant l'utilisation du userform, on tente de modifier le rowsource, par exemple en ajoutant une ligne à la plage nommée/structurée, Excel va planter.

On a donc moins de souplesse en fixant "en dur" la source du combobox/listbox.

merci à tous pour vos interventions toutes aussi édifiantes.
grâce à vous, j'ai pu résoudre mon problème et mieux encore, j'appris de nouvelles commandes pour l'avenir.
:D:D:D