Discussion :

[BtjpsspgrW]

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 :

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

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 :

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

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.

[Philippe Tulliez]

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 :

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

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

[Thautheme]

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 :

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

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

[BtjpsspgrW]

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 :

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

1
2
3
Sub MasqueInfos()
SaisieInfos.Show
End Sub

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

Code :

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

1
2
3
Sub MasqueInfos()
SaisieInfos.Show
End Sub

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

Code :

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

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

[Philippe Tulliez]

Bonjour,

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

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

et

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

[Philippe Tulliez]

Bonjour Robert,

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.