À l'aide d'une fonction InStr dans un Select case

Cela ne semble pas fonctionner. Est-il un moyen de faire ce que je suis en train de faire ici? Je ne peux pas un cas d'être sélectionné si la valeur est dans un sting:

Select Case gTTD.Cells(r, 4)

     Case InStr(gTTD.Cells(r, 4), "MASTER LOG")
         resp = "MM LOG"
      Case InStr(gTTD.Cells(r, 4), "MASTER MET")
         resp = "MM MET"
     Case "PIR"
         gTTD.Cells(r, 7) = "Martin Trépanier"
         resp = "Martin Trépanier"

 End Select

Je comprends pourquoi on ne travail, mais est-il un moyen de le faire fonctionner? merci

Merci

Je voudrais utiliser If...Then...Else pour ce cas

OriginalL'auteur user2385809 | 2014-02-19

  1. 22

    Voici une petite astuce que j'utilise, l'instruction select veut juste trouver les résultats sont les mêmes. Voici un exemple simple:

        Select Case True
        Case (1 = 2)
            Stop
        Case (2 = 3)
            Stop
        Case (4 = 4)
            Stop
        Case Else
            Stop
    End Select

    Ce tombera dans l'4=4 cas. Dans votre exemple, ce pourrait être la réponse est simple:

    Select Case True

     Case (InStr(gTTD.Cells(r, 4), "MASTER LOG") > 0)
         resp = "MM LOG"
      Case (InStr(gTTD.Cells(r, 4), "MASTER MET") > 0)
         resp = "MM MET"
     Case else
         gTTD.Cells(r, 7) = "Martin Trépanier"
         resp = "Martin Trépanier"
 End Select
    +1 Steve, bon truc:)
    ya c'est sympa! concept très intéressant grâce
    Désolé mais je ne comprends pas le > -1. Pour moi, à l'aide de InStr() > -1 retournera toujours True, ai-je le droit?
    Instr() donne la position de la première occurrence d'une chaîne dans une autre. Si il n'est pas trouvé, il renvoie -1. Ce que ce n'est que si le code à l'intérieur de la parenthèse résultats dans un vrai, il va tomber dans l'affaire.
    Édité pour VBA au lieu de VB.NET

    OriginalL'auteur Steve

  2. 0

    essayer cette

    dim r as integer
for r = 1 to 'number of rows
    if Instr(gTTD.Cells(r, 4), "MASTER LOG") <> 0 then
         resp = "MM LOG"
    elseif Instr(gTTD.Cells(r, 4), "MASTER MET") <> 0 then
        resp = "MM MET"
    else
        gTTD.Cells(r, 7) = "Martin Trépanier"
        resp = "Martin Trépanier"
    end if
next r

    OriginalL'auteur Pedrumj