Discussion :

[danisoaz]

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

[Arkham46]

bjr,

ton code teste si vtemp est égal à toute l'instruction :

Code :

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

InStr("MO", vTemp) > 0

ce qui équivaut à comparer vtemp à un booléen (Vrai ou Faux) résultat du test de supériorité

case ne peut être utilisé pour de tels tests (on ne peut pas utiliser "case is like" par exemple)

donc il reste l'utilisation de if ... elsif .. elsif ...else ...endif

[Arkham46]

re

Complément : on peut en fait garder un code similaire mais c'est tordu :
Il suffit de mettre :

Code :

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

Select Case True

et le code passera dans le premier test qui est Vrai

pas forcément facile à relire par rapport à une utilisation de else

[danisoaz]

Re,

J'avais déjà utilisé cette méthode et c'est seulement maintenant que je me rends compte de mon erreur ! Instr est totalement inutile ici, Il suffisait d'écrire :

Code :

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

1
2
3
4
5
6
7
vTemp = LvwDétail.ListItems(i).ListSubItems(6)
        Select Case vTemp
            Case "MO"
            Case "SOUS TRAITANCE"
            Case "TRANSPORT"
            Case Else
         End Select

Select Case est bien plus pratique que IF... dans certains cas.
Merci quand même à ceux qui se sont dévoués.
Cordialement
Daniel

[Arkham46]

Instr est totalement inutile ici

effectivement pour tester une égalité c'était plutôt compliqué!