Alimenter une ListBox dans un formulaire

Bonjour,

Je souhaite attribuer des données source à une ComboBox.

La liste des données pour cette ComboBox se trouve dans la feuille nommée "Listes".
Pour exécuter la macro avec un bouton dans une autre feuille, Comment corriger la syntaxe pour spécifier la colonne de la feuille nommée "Listes" à partir de B2 dans les 2 lignes ci-dessous ?

Code:

---

1 2	DerDistributeur = Range("B2").End(xlDown).Address Distributeur.RowSource = ("B2:") & DerDistributeur

---

Ma macro ci-dessous ne fonctionne que si je l'exécute dans la feuille nommée "Listes".

Code:

---

1 2 3 4 5 6 7

Private Sub Userform_Activate()   Dim DerDistributeur As String DerDistributeur = Range("B2").End(xlDown).Address Distributeur.RowSource = ("B2:") & DerDistributeur Distributeur. ListIndex = 0 End Sub

---

Vous en remerciant par avance.

Cordialement.

Bonjour,
Il faut utiliser la propriété Address avec comme valeur True à l'argument External (Address(external:=True))
Attention, il faut préciser la filiation complète (objet Classeur + Feuille) de l'objet Range
Exemple pour une liste avec plusieurs colonnes

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Dim rng As Range Set rng = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion With rng ComboBox1.RowSource = .Offset(1).Resize(.Rows.Count - 1).Address(external:=True) End With End Sub

---

Bonjour le fil, bonjour le forum,

La propriété [RowSource] n'étant pas des plus fiables dans certains cas, je lui préfère la procédure
[List]. Avec, comme Philippe, une préférence pour la procédure Initialize à Activate de l'UserForm :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Userform_Initialize() Dim O As Object 'déclare la variable O (Onglet) Dim PL As Range 'déclare la variable P (PLage)   set O = Sheets("Listes") 'définit l'onglet O set PL = O.Range("B2:B").End(xlDown) 'définit la plage PL Distributeur.List = PL.Value 'alimente la ComboBox [Distributeur] Distributeur. ListIndex = 0 'affiche le premier élément de la liste de la ComboBox [Distributeur] End Sub

---

Bonjour,

Les réponses données m'amène au débogage.

1ère réponse de Philippe : Erreur d'exécution 424 ou 9 dans mon module :

Code:

---

1 2 3

Sub MasqueInfos() SaisieInfos.Show End Sub

---

2ème réponse de Robert : Erreur d'exécution 1004 dans mon module :

Code:

---

1 2 3

Sub MasqueInfos() SaisieInfos.Show End Sub

---

N'y-a-t-il pas une possibilité dans mon exemple

Code:

---

1 2	DerDistributeur = Range("B2").End(xlDown).Address Distributeur.RowSource = ("B2:") & DerDistributeur

---

de rédiger une syntaxe du type Sheets("Listes").Range("B2")
J'ai essayé, mais ça ne fonctionne pas.

Vous en remerciant par avance.

Cordialement

Bonjour,

Citation:

---

1ère réponse de Philippe : Erreur d'exécution 424 ou 9 dans mon module :

---

N'ayant aucun don de divination, indiquer le numéro de la ligne où a eu lieu cette erreur aurait été intéressant.
Quand je publie une code, je teste toujours la procédure.
Ceci étant dit, cette erreur provient certainement du fait que tu auras fait un Copier/Coller du code que j'ai publié sans même vérifier le nom de la feuille (db) de mon exemple qui n'est certainement pas le même chez toi.
[EDIT]
Lorsque je lis le code que tu as utilisé (celui de ta deuxième réponse), je me pose la question de savoir si tu a pris la peine de lire les réponses que l'on te donne

Citation:

---

Attention, il faut préciser la filiation complète (objet Classeur + Feuille) de l'objet Range

---

et

Citation:

---

Il faut utiliser la propriété Address avec comme valeur True à l'argument External (Address(external:=True))

---

Bonjour Robert,

Citation:

---

La propriété [RowSource] n'étant pas des plus fiables dans certains cas

---

Pour ma part, je la privilégie et je la trouve très simple à mettre en place. La seule exception est lorsque la liste de données à afficher dans le contrôle ListBox ou Combobox fait l'objet de critères où alors j'utilise la méthode AddItem.