La valeur de la Listbox reste sur -1

Résolu

Thomus -
benol3 Messages postés 570 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

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
Combien de temps reste le sablier sur snap ✓ - Forum Snapchat
La valeur relative de 9 dans 295 700 est - Forum Excel
Flamme snapcaht sablier - Forum Snapchat

1 réponse

Réponse 1 / 1

benol3 Messages postés 570 Date d'inscription Statut Membre Dernière intervention 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

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

benol3 Messages postés 570 Date d'inscription Statut Membre Dernière intervention 87

Envoies nous ton fichier anonymisé via cjoint.com

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

benol3 Messages postés 570 Date d'inscription Statut Membre Dernière intervention 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

Thomus

Le voici :

http://cjoint.com/?3GCqNyw8Evd

Discussions similaires

Durée d'une diapositive animée

Problème de restrictions

Le rond vert ne s affiche plus que cela signifie

Touche de clavier qui reste active

Combien de temps le sablier dur t'il?

Votre réponse

Discussions similaires