Bonjour,

Le test ci dessous ne fonctionne pas et je ne vois pas mon erreur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    For i = 1 To LvwDétail.ListItems.Count
    vTemp = LvwDétail.ListItems(i).ListSubItems(6)
        Select Case vTemp
            Case InStr("MO", vTemp) > 0
                TxtPrMo.Text = Val(TxtPrMo.Text) + ...            
            Case InStr("SOUS TRAITANCE", vTemp) > 0
                TxtPrSousTraitance.Text = Val(TxtPrSousTraitance.Text) + ...
            Case InStr("TRANSPORT", vTemp) > 0
                TxtPrTransport.Text = Val(TxtPrTransport.Text) + ...            
            Case Else
                TxtPrLivre.Text = Val(TxtPrLivre.Text) + ...      
        End Select
    Next i
Que vTemp soit chargée avec les valeurs "MO", "SOUS TRAITANCE", "TRANSPORT" ou mes autres familles tout est traité dans le Case Else

Merci de votre aide