Simplification avec Select Case

[koko_spv89]

Salut à tous

J'ai un code que j'aimerai simplifié, le suivant :

Private Sub CommandButton1_Click()
If [C3] = "Tempo" And [E3] = "cas1" Then
    [B8] = 2000
Else
    If [C3] = "Extinction" And [E3] = "cas1" Then
        [B9] = 3000
    Else
        If [C3] = "Tempo finale" And [E3] = "cas1" Then
            [B10] = 4000
        Else
        End If
    End If
End If
If [C3] = "Tempo" And [E3] = "cas2" Then
    [C8] = 2000 / 2
Else
    If [C3] = "Extinction" And [E3] = "cas2" Then
        [C9] = 3000 / 2
    Else
        If [C3] = "Tempo finale" And [E3] = "cas2" Then
            [C10] = 4000 / 2
        Else
        End If
    End If
End If
End Sub

Je veux pas faire une succession de If/Else cas ça ça ne représente que 2 cas mais moi j'en ai plus d'une 20aine ds mon fichier original...

La solution est d'utliser Select Case mais je sais pas trop faire... je sais que ça doit ressembler à qqch du genre :

Private Sub CommandButton1_Click()
Select Case [I]"quelquechose"[/I]
Case 1
******
******
Case 2
******
******
Case Else
******
******
End Select
End Sub

Si vous pouviez me donner un petit coup de main ça sera sympa!!

 

[Roland_M]

Re : Simplification avec Select Case

bonjour

Select Case [C3]
  Case "Tempo":
       Select Case [E3]
         Case "cas1": [B8] = 2000
         Case "cas2": [C8] = 2000 / 2
       End Select
  Case "Extinction":
       Select Case [E3]
         Case "cas1": [B9] = 3000
         Case "cas2": [C9] = 3000 / 2
       End Select
  Case "Tempo finale":
       Select Case [E3]
         Case "cas1": [B10] = 4000
         Case "cas2": [C10] = 4000 / 2
       End Select
End Select

à vérifier ! Roland

 

[koko_spv89]

Re : Simplification avec Select Case

SAlut Rolland

ça fonctionne parfaitement...

Je savais pas qu'on pouvais imbriquer les cas comme ça....

Merci

@+