Comparer 2 string

Bonjour,

Le test ci dessous ne fonctionne pas et je ne vois pas mon erreur.

Code:

---

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

bjr,

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

Code:

---

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

re

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

Code:

---

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

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:

---

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

Citation:

---

Envoyé par danisoaz

Instr est totalement inutile ici

---

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