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 : Sélectionner tout - Visualiser dans une fenêtre à part
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