La valeur de la Listbox reste sur -1

Résolu
Thomus -  
benol3 Messages postés 718 Statut Membre -
Bonjour,

Dans mon userform, lorsque je sélectionne un donnée dans un list box et ensuite valide pour sortir de l'userform via un bouton, je ne parviens pas à récupérer la sélection...

Voici mon code :

Private Sub BoutonValider_Click()

Range("E14").Value = ListBox1.List

End Sub


UN grand merci

1 réponse

  1. benol3 Messages postés 718 Statut Membre 87
     
    Salut,

    Si ton problème est pour récupérer la valeur selectionnée dans ta listbox :

    En cherchant sur internet, tu aurais pu trouver la solution tout seul....

    Range("E14").Value = ListBox1.Value

    Si ce n'est pas le cas, que veux tu récupérer ? L'indice de l'élément selectionné dans ta listbox ?

    Voici une solution :

    Range("E14").Value = ListBox1.ListIndex
    0
    1. Thomus
       
      Salut,

      Merci mais j'ai déjà essayé avec .value
      je cherche depuis une heure sur internet :s

      j'ai l'impression d'avoir même testé plusieurs solutions qui devraient fonctionner mais non, je n'ai rien dans ma cellule !

      Cela proviendrait-il d'une autre erreur ?!
      0
    2. benol3 Messages postés 718 Statut Membre 87
       
      Envoies nous ton fichier anonymisé via cjoint.com
      0
    3. Thomus
       
      Pour être plus complet peut-être :

      1- j'initialise d'abord mon userform
      2- je veux valider les données et les renvoyer vers excel

      3- je peux modifier la valeur sélectionnée (via un autre bouton et userform.show) et re-valider

      Mais pour le moment, cela ne fonctionne pas...

      Private Sub UserForm_Initialize()

      'remplir la listbox
      ListBox1.RowSource = "data!A1:A13"

      End Sub

      Private Sub CommandButton1_Click()

      'renvoie le mois de prestation (SECO)
      Range("E14").Value = ListBox1.Value

      'ferme l'userform
      UserForm1.Hide

      End Sub
      0
    4. benol3 Messages postés 718 Statut Membre 87
       
      Re,

      Dans quelle feuille veux tu récupérer ta valeur ?

      modifie cette ligne de code :

      Range("E14").Value = ListBox1.Value

      Par :

      Sheets("nomdetafeuille").Range("E14").Value = ListBox1.Value
      0
    5. Thomus
       
      Le voici :

      http://cjoint.com/?3GCqNyw8Evd
      0