Structures de contrôles VBASelect Case
Select Case
Cette instruction permet d'exécuter 1 ou plusieurs instructions selon le résultat d'une variable, elle permet plusieurs branchements possibles et évite l'utilisation de ElseIf.
Exemple qui affiche différente réponses dans B1 si il y a le texte "Bonjour" dans A1
Sub exemple_de_Select_Case()
Dim MonTexte As String
MonTexte = Range("A1").Value
Select Case MonTexte
Case "Bonjour"
Range("B1").Value = "Merci"
Case "Merci"
Range("B1").Value = "de rien"
Case Else
Range("B1").Value = "Hello"
End Select
End Sub
Dim MonTexte As String
MonTexte = Range("A1").Value
Select Case MonTexte
Case "Bonjour"
Range("B1").Value = "Merci"
Case "Merci"
Range("B1").Value = "de rien"
Case Else
Range("B1").Value = "Hello"
End Select
End Sub
Autre exemple issue de l'aide VBA (affiche le résultat dans la fenêtre "exécution"):
Sub autre_exemple_de_Select_Case()
Dim i As Integer
i = 8
Select Case i
Case 1 To 5
Debug.Print "Entre 1 et 5"
Case 6, 7, 8
Debug.Print "Entre 6 et 8"
Case 9 To 10
Debug.Print "Supérieur à 8"
Case Else
Debug.Print "Non compris entre 1 et 10"
End Select
End Sub
Dim i As Integer
i = 8
Select Case i
Case 1 To 5
Debug.Print "Entre 1 et 5"
Case 6, 7, 8
Debug.Print "Entre 6 et 8"
Case 9 To 10
Debug.Print "Supérieur à 8"
Case Else
Debug.Print "Non compris entre 1 et 10"
End Select
End Sub
