somme de montant selectionné dans une listbox

bonjour à tous,


Dans une listbox, je fais apparaitre le résultat d'un filtre élaboré (en passant par une feuille "critèrel" et une feuille "extractionl".


voici le code qui fait apparaitre la séléction filtré

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub nom_Change() Sheets("critèrel").Activate Range("b2").Value = nom.Value Range("v2").Select ActiveCell.Value = "a" filtre_lettrage totalbox = Range("k1").Value totalbox = Replace(totalbox, ",", ".") np.Value = Range("k1").Value list_operation.ColumnHeads = True 'en tete de colone list_operation.ColumnCount = 10 ' nombre de colone a afficher list_operation.ColumnWidths = "60,40;80;40;40;40;40;40;50;50" list_operation.RowSource = "extractionl!a2:j" & Range("extractionl!b65536").End(xlUp).Row ' etendue de la liste a fficher list_operation.MultiSelect = fmMultiSelectMulti End Sub

---

Je cherche a obtenir le total de la 9eme colone des lignes que je selectionnerais dans cette listbox (puisque j'ai mis fmMultiSelectMulti).

Total qui irais dans une box à part


merci pour votre aide

Slt Bosk,

Si j'ai bien compris, et de plus n'ayant pas de fichier joint, essayes d'adapter ce fichier avec le tien.

Antoniom.

excuse moi, j'avais vue que j'avais une réponse, mais ma journée au boulot a été chaotique

je regarde cela

sympa ton approche

par contre comment fais-tu pour avoir dans le visual basic, dans la listbox, la vision de ta feuille excel en synchro
j'ai modifier le 14 de la cellule a2 en 20, la listbox sur le visual a modifier en direct

Par contre, crois tu qu'il est possible d'obtenir la meme chose avec un principe de "ListBox1.MultiSelect = fmMultiSelectMulti" me permetant par la suite de recuperer les lignes selectioner dans un autre tableau

car en faite l'idée final est en cliquant sur plusieur ligne, vérifié que le total est égal à 0, ceci afin après de les lettrer, mais pour cela je dois pouvoir en selectionner plusieur

j'ai mis en plus de ton code

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() ListBox1.MultiSelect = fmMultiSelectMulti End Sub

---

mais le résultat, est que seul le premier cick compte pour le comptage, après il ne prend plus en compte mes choix, j'ai bien la multiselction, mais il arête le compteuraprès avoir rempli la cellule N2

Re,

Citation:

---

comment fais-tu pour avoir dans le visual basic, dans la listbox, la vision de ta feuille excel en synchro
j'ai modifier le 14 de la cellule a2 en 20, la listbox sur le visual a modifier en direct

---

Ben au fait j'ai simplement écris la plage dans la fenêtre des Propriétés de la ListBox, ce qui fait que les données sont en "live".

Pour le reste, je suis désolé, mais je ne crois pas pouvoir t'aider plus que ça... de plus, si j'ai bien compris, suis pas sûr que tu puisses sélectionner plus d'une ligne à la fois dans une ListBox.

J'espère que quelqu'un me contredira et pourra t'aider plus que moi.

Bonne soirée, Antoniom.

Bonsoir,

A partir du fichier d'Antoniom...

Dans l'usf, tu rajoutes un TextBox (nommé TextBox1)

puis, dans le code du bouton "Afficher total colonne 9", tu remplaces par :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub BtnTotal_Click() Dim X As Long 'Double si tu as des décimales With Me.ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) Then X = X + .List(i, 8) End If Next i End With Me.TextBox1 = X End Sub

---

En ayant bien entendu le multiselect de la listbox...

Bonne soirée

merci a vous deux,

mapeh, j'ai suivi ton conseil
j'ai ajouté

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() ListBox1.MultiSelect = fmMultiSelectMulti End Sub

---

ainsi qu'une textbox

c'est impécable