Remplir ComboBox

bonjour

je voudrais remplir une ComboBox avec des données stockées dans une cellule

j'ai un code dans un module et de ce module avec la fonction call je voudrais ouvrir un autre module pour y mettre le programme.mais rien ne marche


merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For j = lig1 + 1 To lig1 + 500 If Left(Cells(j, 1), longch) = "" Then j = lig1 + 500 If ch = Left(Cells(j, 1), longch) Then ch1 = (Cells(j, 1)) Call UserForm   Option Explicit Dim ComboBox1 Sub userform_initialize() cbocombobox1.RowSource = "base!a1:a" & Sheets("base").Cells(1, 1).End(xlDown).Row   End Sub

---

Bonjour,

Citation:

---

j'ai un code dans un module et de ce module avec la fonction call je voudrai ouvrir un autre module pour y mettre le programme.mais rien ne marche

---

Rien ne marche cela ne signifie pas grand chose.
Tu écris que tu as un code dans un module. La première chose à faire est de l'éditer ici et expliquer où il y a un problème avec éventuellement le numéro de la ligne où se situe le problème et le n° de l'erreur ainsi que le texte qui l'accompagne.

Citation:

---

je voudrai remplir une combobox avec de s donnees stockees dans une cellule

---

Ces données sont séparées par des points virgules, caractères espacés ?

hello,

pour afficher un userform, il faut écrire <nom du userform>.show me semble t-il?

par exemple : ...
userform1.show

si le nom du formulaire est userform1 et non Call ...

L'initialisation du combobox semble correcte : il retrouvera la liste à l'adresse indiquée!

geogeo70

PS : il me semble qu'il manque ... End If

bonjour
ca ne fonctionne pas

Bonjour,
Toujours aussi vague dans tes explications soit "Rien ne marche" ou "cela ne fonctionne pas". C'est formidable.
De plus tu ne réponds même pas aux questions que l'on te pose.
Tu auras difficile ainsi de recevoir une réponse satisfaisante.

bonjour
la propriété rowsource d'une combo ou listbox ne fonctionne que si l'onglet source est actif

utilise plutôt une variable tableau

du genre

Code:

---

1 2 3 4 5

Sub userform_initialize() Dim maliste maliste = Sheets("base").Range("A1:A" & Sheets("base").Cells(1, 1).End(xlDown).Row) cbocombobox1.List = maliste End Sub

---

Bonjour Patrick,

Citation:

---

la propriété rowsource d'une combo ou listbox ne fonctionne que si l'onglet source est actif

---

La propriété RowSource d'un contrôle ComboBox fonctionne parfaitement sans que la feuille ne soit active
Exemple

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() With ThisWorkbook .Worksheets("Menu").Activate ' Activation de la feuille nommée MENU With .Worksheets("db").Range("A1").CurrentRegion ComboBox1.RowSource = .Offset(1).Resize(.Rows.Count - 1).Address(external:=True) ComboBox1.ColumnCount = 4: ComboBox1.ColumnHeads = True End With End With End Sub

---

Bonjour Philipe

chez moi c'est pas le cas (office 2007) ca ne l'a jamais été

Salut Patrick,

Ca a toujours fonctionné comme Philippe le décrit... J'ai cru un instant que tu confondais avec les "listes déroulantes de validation", mais au vu du code que tu as posté, tu parles bien de combobox... Donc, je confirme ce que Philippe a écrit...

Salut tout le monde,

Citation:

---

Envoyé par patricktoulon

Bonjour Philipe

chez moi c'est pas le cas (office 2007) ca ne l'a jamais été

---

Oui, c'est parce que je pense que tu n'alimente pas ta ComboBox via RowSource avec une adresse complète muni des 3 paramètres que sont:
- Le Classeur
- La Feuille
- La Plage de cellule

Si tu alimente par RowSource avec uniquement une adresse composé de la plage de cellule (sous forme de string), MSForms considérera que la référence est équivalente à Excel.Range("xx:xx").Value.
Soit finalement Excel.Application.ActiveWorkbook.ActiveSheet.Range("xx:xx").Value.
Il faut passer une adresse complète. Le paramètre External de la propriété Address permet de spécifier une addresse complète à partir de la hierarchie object d'Excel (du Range au Workbook).

Bonjour à tous,

Je suis passé de Excel 2002 à Excel 2010. Si j'en ai tiré une leçon, c'est que VBA pour Excel 2010 est plus capricieux que VBA pour Excel 2002.

Bonjour,
Avant de répondre à Patrick et même si j'étais certain du résultat je voulais tout de même faire un test avec Excel 2003.
Je confirme et comme l'a signalé entre-autre Pierre, la plupart des problèmes que rencontre les développeurs en VBA pour excel c'est de ne pas préciser la filiation complète d'un objet Range.
Cela fonctionne donc bien avec 2003 et 2010 et je doute que 2007 pose problème.

Cette discussion me depasse un peu. mais merci les experts, la réponse fournit a Alain m'aide a comprendre pourquoi mes quelque tentatives de macro plantent lamentablement:D