Discussion :

[bosk1000]

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

[Antoniom]

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.

[bosk1000]

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

je regarde cela

[bosk1000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Antoniom]

Re,

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.

[mapeh]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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