Easy-Micro


ESPACEMEMBRE Structures de contrôles VBA
Select 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


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


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Lundi 25 mars 2019 - Semaine 13 - Saint Humbert (Demain: Sainte Larissa)
Aujourd'hui, c'est l'anniversaire de Marcia Cross (1962-57 ans), comédienne américaine (rôle de Bree Van de Kamp dans Desperate Housewives). Autre 25 mars: 1918 : décès à Paris du compositeur français Claude Debussy. 1984 : Alain Prost gagne le grand prix de Formule 1 du Brésil.
Haut de page Easy-Micro