Discussion :

[GuiJenn34]

Bonjour,

Je voudrais compter le nombre d'éléments d'une multifonction d'une ListBox, mais je n'y arrive pas
Ci joint mon code et en rouge ou je bloque : (bien sur j'ai raccourcie le code) [le nom de ma ListBox est Selection_Taches]

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
17
18
19
Private Sub Ok_Click()

    Dim lItem As Long
    For lItem = 0 To Selection_Taches.ListCount - 1
    If Selection_Taches.Selected(lItem) = True Then

    MsgBox "Information saisie : " & vbLf & vbLf _
    & "Personne : " & Personnes & vbLf _
    & "Vous avez passé : " & Heures & " heure à faire : " & Selection_Taches.ListIndex & " tâche(s)" & vbLf & vbLf _
    & "Soit : " & (Format(Replace(Heures, ".", ","), " 0.00") / Selection_Taches.ListIndex.Selected(lItem) & vbLf _
    & "Pour faire : " & Selection_Taches.List(lItem) _
    , vbInformation, "Information"

    Selection_Taches.Selected(lItem) = False
    End If
    Next
    Unload Me

End Sub

J'ai recherché sur Google mais la solution que je trouve c'est compter la totalité de ma liste, alors que je voudrais seulement ce que j'ai sélectionnée.
car je m'en sert en suite pour faire un prorata des mes heures saisies.

Ce qui donnerai :
(On voit bien derrière que j'ai sélectionné que 4 éléments pour 4 heures)

Merci de votre aide. Bien Cdt