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

[Quentin77170]

Salut à toi,

Essaye quelque chose du genre :

Code :

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

1
2
3
4
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then k = k + 1
Next i
Msgbox "Vous avez sélectionné " & k &" lignes"

Tu récupères ainsi sans souci le nombre d'items sélectionnés

J'ai l'impression que dans ton cas, tu as intégré ton msgbox dans la boucle... Il faut faire une boucle à part pour compter d'abord les items sélectionnés (et au passage faire des maths avec le contenu des lignes si tu le souhaites).

J'espère que ça t'aidera !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim lItem As Long
Dim Compteur As Long
    For lItem = 0 To Selection_Taches.ListCount - 1
        If Selection_Taches.Selected(lItem) = True Then compteur = compteur + 1 ':Selection_Taches.Selected(lItem) = False
    Next lItem
 
    MsgBox "Information saisie : " & vbLf & vbLf _
    & "Personne : " & Personnes & vbLf _
    & "Vous avez passé : " & Heures & " heure à faire : " & compteur  & " tâche(s)" & vbLf & vbLf _
    & "Soit : " & (Format(Replace(Heures, ".", ","), " 0.00") / compteur & vbLf _
    & "Pour faire : " & compteur  _
    , vbInformation, "Information"
 
    Unload Me

Pas certain d'avoir bien remplacé, tu me dis si ça t'aide

[GuiJenn34]

C'est pas tout a fait ça. Je donne le code entier comme ça se sera peut être mieux.
Car en faite ça doit faire une boucle pour ajouter chaque(s) sélection(s) dans une colonne.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Ok_Click()
 
    If Personnes.ListIndex = -1 Then
        MsgBox "Aucune personne n'est selecitionée !", vbCritical
    Exit Sub
    End If
 
    If Selection_Taches.ListIndex = 0 Then
        MsgBox ("Aucunes n'est tâche(s) selectionnée(s) !"), vbCritical
    Exit Sub
    End If
 
    If Heures.Value = "" Then
        MsgBox ("Vous n'avez mis aucun temps passé !"), vbCritical
    Exit Sub
    End If
 
    Call Fichier_Taches
    Windows("planning taches mensuelles - " & Personnes & ".xlsx").Activate
    Application.WindowState = xlMinimized
 
    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.Selected(lItem) & " tâche(s)" & vbLf & vbLf _
    & "Soit : " & (Format(Replace(Heures, ".", ","), " 0.00") / Selection_Taches.ListIndex) & vbLf _
    & "Pour faire : " & Selection_Taches.List(lItem) _
    , vbInformation, "Information"
 
    Sheets("Tâches").Range("A65536").End(xlUp).Offset(1, 0).FormulaR1C1 = Format(Date, "mmm")
    Sheets("Tâches").Range("A65536").End(xlUp).Offset(0, 1).FormulaR1C1 = Format(Date, "mm/dd/yyyy")
    Sheets("Tâches").Range("A65536").End(xlUp).Offset(0, 2).FormulaR1C1 = Selection_Taches.List(lItem)
    Sheets("Tâches").Range("A65536").End(xlUp).Offset(0, 3).FormulaR1C1 = (Format(Heures, " 0.00") / Selection_Taches.ListIndex)
 
    Selection_Taches.Selected(lItem) = False
    End If
    Next
 
    Windows("planning taches mensuelles - " & Personnes & ".xlsx").Activate
    Application.WindowState = xlMinimized
    ActiveWorkbook.Save
    ActiveWindow.Close
    MsgBox "Merci " & Personnes & vbLf & " données saisie !", vbInformation, "Confirmation"
    Unload Me
 
End Sub

En gros ça donne le nom de la sélection + le temps passé /divisé par le nombre de sélection(s)
Exemple : (2 sélections pour 1 heures) Résultat :
- Traitement courrier 0,50
- Mise sous pli 0,50

[GuiJenn34]

C'est bon grâce à ton code j'ai pu l'adapter au miens en faisant une boucle après ton code :
Et ça fonctionne parfaitement.

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
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Ok_Click()
 
    Dim l As Long
    Dim Compteur As Long
    For l = 0 To Selection_Taches.ListCount - 1
        If Selection_Taches.Selected(l) = True Then Compteur = Compteur + 1
    Next l
 
    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 : " & Compteur & " tâche(s)" & vbLf & vbLf _
    & "Soit : " & (Format(Replace(Heures, ".", ","), " 0.00") / Compteur) & " heure(s)" & vbLf _
    & "Pour faire : " & Selection_Taches.List(lItem) _
    , vbInformation, "Information"
 
    Sheets("Tâches").Range("A65536").End(xlUp).Offset(1, 0).FormulaR1C1 = Format(Date, "mmm")
    Sheets("Tâches").Range("A65536").End(xlUp).Offset(0, 1).FormulaR1C1 = Format(Date, "mm/dd/yyyy")
    Sheets("Tâches").Range("A65536").End(xlUp).Offset(0, 2).FormulaR1C1 = Selection_Taches.List(lItem)
    Sheets("Tâches").Range("A65536").End(xlUp).Offset(0, 3).FormulaR1C1 = (Format(Replace(Heures, ".", ","), " 0.00") / Compteur)
 
    Selection_Taches.Selected(lItem) = False
    End If
    Next
 
    Unload Me
 
End Sub