Bah écoute je n'ai aucun souci...
Il faut essayer avant de dire que ca ne marche pas...
Donc, si j'ai une liste que j'appelle : Liste
(toujours cette imagination débordante !)
Dans cette liste j'ai ces valeurs en colonne 0 (la 1ère)
1000
2000
3000
4000
Avec ce code :
Code :
- Private Sub Liste_AfterUpdate()
- A = ""
- With Liste
- For I = 0 To .ListCount - 1
- If .Selected(I) Then
- A = A & "+" & .Column(0, I)
- Else
- A = A & "-" & .Column(0, I)
- End If
- Next I
- End With
- MsgBox Eval(A)
- End Sub
|
Si je sélectionne 1000 et 4000, il renvoie bien 0 car 2000 et 3000 sont renvoyés comme négatifs et 1000 + 4000 - 2000 - 3000 = 0
Idem :
Si je sélectionne 1000 seulement, ca me renvoie -8000 (1000 - 2000 - 3000 - 4000 = -8000)
Si je sélectionne 1000, 3000 et 4000 il me renvoie 6000 (1000 - 2000 + 3000 + 4000 = 6000)
Etc.
N'oublie pas ma fête Pas le bon post
Message édité par SuppotDeSaTante le 16-03-2012 à 15:27:54
---------------
Soyez malin, louez entre voisins !