Mise à jour auto combobox

MRL -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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 17417 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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
MRL
 
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 17417 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,
Pouvez vous montrer le code que vous avez ecrit, comment vous avez nomme la combobox et le nom de la feuille excel.
0
MRL
 
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 17417 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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