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

3 réponses

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