RECONNAISSANCE DESELECTION DANS LISTBOX

RECONNAISSANCE DESELECTION DANS LISTBOX - VB/VBA/VBS - Programmation

Marsh Posté le 07-02-2012 à 22:59:27    

Bonsoir à tous.
 
Quelqu'un peut-il m'aider pour le code Vba pour Excel 2003 ?  
1) A partir de l'exemple de la ListBox1 ci-dessous, dès que je clique dans celle-ci, ma/mes sélection(s) en cours sont reconnues. But = exporter ensuite mes valeurs (positives) sélectionnées dans une feuille de calcul pour récupération dans une calculette personnalisée. Imaginons que je clique sur 2000 et 4000.
2) Si je désactive mes sélections en cours (2000 et 4000) dans cette ListBox1, il faut que les valeurs soient reconnues comme étant des valeurs négatives, soit -2000 et -4000, pour qu'elles puissent être soustraites dans ma feuille de calcul.
 
Pour le 1), ce code fonctionne parfaitement. Pouvez-vous m'aider pour le code à rajouter pour le 2) ??? Malgré mes recherches, je ne trouve pas !!
 
Merci à tous pour votre aide. Bsr.
 
 
Private Sub UserForm_Initialize()
 
Montant = Array("1000", "2000", "3000", "4000" )
ListBox1.List = Montant
 
ListBox1.MultiSelect = fmMultiSelectMulti
 
End Sub
 
 
Private Sub ListBox1_Change()
 
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                MsgBox "Sélection = " & i
            End If
        Next i
    End With
 
End Sub

Reply

Marsh Posté le 07-02-2012 à 22:59:27   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed