Discussion :

[alainbreton]

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 :

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

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

[Philippe Tulliez]

Bonjour,

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.

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 ?

[geogeo70]

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

[alainbreton]

bonjour
ca ne fonctionne pas

[Philippe Tulliez]

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.

[patricktoulon]

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 :

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

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

[Pierre Fauconnier]

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...

[Philippe Tulliez]

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.

[scoulibri]

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