Mise à jour auto combobox

Fermé
MRL - 1 sept. 2011 à 08:21
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 2 sept. 2011 à 10:42
Bonjour,

Je travaille sur vba excel, et je cherche à mettre à jour la liste d'un combobox en insérant des noms qui ont pu être écrit dans un textbox !
J'ai trouvé un article correspondant à ma demande avec le code suivant :

maliste.rowsource=("mafeuille!maliste")

' or le rowsource n'est pas accepté, erreur 380, impossible de définir la valeur rowsource...

Auriez-vous la solution à mon problème ? J'ai également essayé avec "additem" mais ca ne marche pas non plus ...!

Merci d'avance pour votre aide !!

Crdlmt, MRL
A voir également:

3 réponses

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
1 sept. 2011 à 16:57
Bonjour,
Bien penser a definir un nom pour la plage de cellules ou vous avez les donnees
pour cette exemple: maliste pour la feuille mafeuille

pour une Combobox dans une FORM
maliste.rowsource=("mafeuille!maliste")

pour une Combobox dans une feuille de calcul
mafeuille.maliste.ListFillRange=("mafeuille!maliste")
0
J'ai essayé le premier code car ma combo est sur un Userform mais ca ne marche toujours pas je ne comprends pas ...

Merci quand même pour l'aide apportée !
Si autres idées, je suis preneuse !!

Merci d'avance !
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
2 sept. 2011 à 09:46
Bonjour,
Pouvez vous montrer le code que vous avez ecrit, comment vous avez nomme la combobox et le nom de la feuille excel.
0
Bonjour,
voici mon bout de code !

If UserForm_nameproject.TextBox_project.Value <> "" Then
UserForm_nouveau.ComboBox_project.RowSource = (UserForm.nameproject.TextBox_project.Value)
End If


encore merci pour votre attention et votre aide ! VBA reste encore une étape difficile pour moi !! =)
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
2 sept. 2011 à 10:42
Re,
Ce que vous avez ecrit ne peut pas marcher. RowSource doit etre une cellule ou une plage de cellule d'une feuille excel dans le cas qui vous interesse (voir l'aide VBA excel).
Pour vous il faut programmer comme suit:

If UserForm_nameproject.TextBox_project.Value <> "" Then
UserForm_nouveau.ComboBox_project.AddItem UserForm_nameproject.TextBox_project.Value
End If
0