Simplification avec Select Case

  • Initiateur de la discussion Initiateur de la discussion koko_spv89
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

koko_spv89

XLDnaute Occasionnel
Salut à tous

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

Code:
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 :
Code:
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!!
 
Re : Simplification avec Select Case

bonjour

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
164
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
318
Réponses
4
Affichages
243
Retour