La valeur de la Listbox reste sur -1

Résolu/Fermé

Thomus - 28 juil. 2014 à 16:06
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 - 28 juil. 2014 à 18:10

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

A voir également:

La valeur de la Listbox reste sur -1
Combien de temps reste une story sur facebook - Guide
Mon pc s'allume mais lécran reste noir sans bip - Guide
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
Combien de temps reste le sablier sur snap - Forum Snapchat
La valeur relative de 9 dans 295 700 est - Forum Excel

1 réponse

Réponse 1 / 1

benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
Modifié par benol3 le 28/07/2014 à 16:25

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

Thomus
Modifié par Thomus le 28/07/2014 à 16:26

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 ?!

benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
28 juil. 2014 à 16:28

Envoies nous ton fichier anonymisé via cjoint.com

Thomus
28 juil. 2014 à 16:29

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

benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
28 juil. 2014 à 16:37

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

Thomus
28 juil. 2014 à 16:40

Le voici :

http://cjoint.com/?3GCqNyw8Evd

Discussions similaires

Problème de restrictions

Durée d'une diapositive animée

Touche de clavier qui reste active

Le rond vert ne s affiche plus que cela signifie

Combien de temps le sablier dur t'il?