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 ]
Jeudi 24 janvier 2019 - Semaine 04 - Saint François de Sales (Demain: Saint Manuel)
Aujourd'hui, c'est l'anniversaire de Daniel Auteuil (1950-69 ans), acteur français, de Nastassja Kinski (1961), actrice et mannequin allemande et de Muriel Moreno (1963), chanteuse française (du groupe Niagara). Autre 24 janvier: 2009 - Tempête Klaus sur le sud-ouest de la France (60% des forêts sont dévastées).
Haut de page Easy-Micro