Discussion :

[bebel9313]

Bonjour,
Cela fait 30 minutes que je cherche à récupérer une valeur sélectionnée dans la listbox. Mais à chaque fois, ce n'est pas la bonne propriété...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub supprime_valeur_liste()
Dim i, j As Integer
Dim nom_action As Variant
Dim compteur_liste As Double
compteur_liste = D_estimation_achat.action_estim.ListCount - 1
For i = compteur_liste To 0 Step -1
    If D_estimation_achat.action_estim.Selected(i) = True Then
    nom_action = D_estimation_achat.action_estim.Value
    D_estimation_achat.action_estim.RemoveItem i

Comment faire pour récupérer la valeur avant de l'effacer???? J'ai essayer pas mal de propriétés avec le ctrl J, mais je n'ai rien de bon.......
merci bien......

[fring]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nom_action = D_estimation_achat.action_estim.list(i)

Tu trouveras d'autres infos dans ce tuto
http://silkyroad.developpez.com/VBA/ControlesUserForm

[bebel9313]

merci bien.............