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é...
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.......
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
merci bien......
Partager