Discussion :

[lemoineeric]

Bonjour,

est-il possible dans le Rowsource d'un Combobox (placé dans un UserForm) de pointer vers une liste située sur un fichier extérieur ?
Si oui, quelle est la syntaxe ?

Environnement :
- excel 2003
- fichier principal : Appli.xls
- UserForm : ListeMatières
- données pour la liste : fichier="Matières.xls", feuille="Liste", zone="A1:B30"

Merci par avance pour votre aide.

Cordialement

[Commodore]

je te conseille d'alimenter ton combobox avec un bout de code vba... (par exemple sur l'évènement Activate de la feuille ?)

[lemoineeric]

Peux-tu préciser un peu la syntaxe du code VBA ?
Merci

[Commodore]

Considérons que tu aies stocké les valeurs de ta combobox dans une feuille excel dans les cellules A1:A10

Code :

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

1
2
3
4
Dim c as range
For Each c in Range("A1:A10") 'modifier : zone où tu as stocké tes valeurs
  ComboBox1.Additem c.Value
Next c

[lemoineeric]

Je te remercie pour la réponse.
Le problème est que ma liste se trouve dans un autre fichier. Je dois donc rapatrier les infos et c'est là où ça coince.

Je viens de tester le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Activate()
'va chercher la liste des matières dans 'Matières.xls'
Dim Fic
Dim c As Range
 
Fic = ActiveWorkbook.Path & "\Matières.xls"
For Each c In Workbooks(Fic).Sheets("Matières").Range("B1:B30")
  Liste.AddItem c.Value
Next c
End Sub

mais j'obtiens une erreur : "L'indice n'appartient pas à la sélection"

As-tu une idée de l'erreur que j'ai commise ?

Cordialement

[Commodore]

as-tu ouvert ton fichier avant d'aller chercher les infos dedans ?

Code :

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

Workbooks.Open "<path>/Matieres.xls"