Discussion :

[kisame93]

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

[boisgontierjacques]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Boisgontier

[kisame93]

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

dans Change ou autres ???

[boisgontierjacques]

Dans Initialize

Boisgontier

[kisame93]

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

[Philippe Tulliez]

Bonjour Jacques,

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.

[Philippe Tulliez]

Bonjour,

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 ?

[boisgontierjacques]

2 problèmes de Rowsource


1er problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[boisgontierjacques]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour Jacques,

-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

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

[boisgontierjacques]

-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

[Philippe Tulliez]

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.

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[kisame93]

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.