Textbox en fonction sélection valeur 2ème colonne listbox multiselect

Version imprimable

22/03/2018, 16h15
Mél3790

Textbox en fonction sélection valeur 2ème colonne listbox multiselect

Bonjour tout le monde,

J'ai une listbox multiselect (LbPersonnel) comprenant 3 colonne. 1ère colonne : des noms, 2ème colonne : des catégories (OUV ou ETA), 3ème colonne : des taux.
J'ai également 4 textbox (TbHeures, TbCoutF°, TbOUV, TbETA)

Si, dans mes sélections, en 2ème colonne est écrit "OUV", alors ma TbOUV doit effectuer le calcul suivant et montrer le résultat : TbCoutF° + TbHeures * 21
Si, dans mes sélections, en 2ème colonne est écrit "ETA", alors ma TbETA doit effectuer le calcul suivant et montrer le résultat : TbCoutF° + TbHeures * 25

J'ai regardé un peu partout sur internet, je tombe sur beaucoup de sujet des listbox multiselect, mais ça ne m'aide pas vraiment.

Merci beaucoup pour votre aide.

Citation:

Envoyé par Mél3790

Bonjour,

A tester :

Code:

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
 
Private Sub LbPersonnel_Change()
 
Dim CtrI As Long, NbHeuresOUV As Long, NBHeuresETA As Long
 
    TbOUV = ""
    TbETA = ""
    NbHeuresOUV = 0
    NBHeuresETA = 0
 
    If LbPersonnel.ListCount > 0 Then
        For CtrI = 0 To LbPersonnel.ListCount - 1
            If LbPersonnel.Selected(CtrI) = True Then
              Select Case LbPersonnel.List(CtrI, 1)
                     Case "OUV"
                          NbHeuresOUV = NbHeuresOUV + TbHeures
                     Case "ETA"
                          NBHeuresETA = NBHeuresETA + TbHeures
              End Select
            End If
        Next CtrI
 
        TbOUV = TbCoutF° + NbHeuresOUV * 21
        TbETA = TbCoutF° + NBHeuresETA * 25
 
     End If
 
End Sub

Bonjour,

Merci pour votre réponse.
Votre code fonctionne très bien.
Je l'ai un peu modifier pour que le calcul ne se fasse qu'une seul fois :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim CtrI As Long ', NbHeuresOUV As Long, NBHeuresETA As Long
 
    TbOUV = ""
    TbETA = ""
    NbHeuresOUV = 0
    NBHeuresETA = 0
 
    If LbPersonnel.ListCount > 0 Then
        For CtrI = 0 To LbPersonnel.ListCount - 1
            If LbPersonnel.Selected(CtrI) = True Then
              Select Case LbPersonnel.List(CtrI, 1)
                     Case "OUV"
                          'NbHeuresOUV = NbHeuresOUV + TbHeures
                          TbOUV = TbCoutF° + TbHeures * 21
                     Case "ETA"
                          'NBHeuresETA = NBHeuresETA + TbHeures
                          TbETA = TbCoutF° + TbHeures * 25
              End Select
            End If
        Next CtrI
    End If

Par contre je garde en mémoire la totalité de votre code car il va m'être utile pour une autre partie de mon projet.
C'est parfait merci beaucoup pour votre aide. Je cherchais vraiment la complication !

A bientôt.