Comment rédiger une instruction de cas en VBA (avec exemple)

Une instruction case est un type d’instruction qui passe en revue des conditions et renvoie une valeur lorsque la première condition est remplie.

Vous pouvez utiliser la syntaxe de base suivante pour écrire une instruction case dans VBA :

Sub CaseStatement()

    Dim i As Integer

    For i = 2 To 9
    
        Select Case Range("B" & i).Value
            Case Is >= 30
                result = "Great"
            Case Is >= 20
                result = "Good"
            Case Is >= 15
                result = "OK"
            Case Else
                result = "Bad"
        End Select
        
        Range("C" & i).Value = result
        
    Next i
    
End Sub

Cet exemple particulier examine chaque cellule de la plage B2:B9 et renvoie les valeurs suivantes dans la plage C2:C9 :

• « Excellent » si la valeur de la colonne B est supérieure ou égale à 30.
• Sinon, « Bon » si la valeur de la colonne B est supérieure ou égale à 20.
• Sinon, « OK » si la valeur de la colonne B est supérieure ou égale à 15.
• Sinon, « Mauvais » si aucune des conditions précédentes n’est remplie.

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : écriture d’une instruction de cas dans VBA

Supposons que nous ayons l’ensemble de données suivant dans Excel qui montre le nombre de points marqués par différents joueurs de basket-ball :

Supposons que nous souhaitions rédiger un énoncé de cas pour attribuer une valeur Excellent, Bon, OK ou Mauvais à chaque joueur en fonction du nombre de points marqués.

Nous pouvons créer la macro suivante pour ce faire :

Sub CaseStatement()

    Dim i As Integer

    For i = 2 To 9
    
        Select Case Range("B" & i).Value
            Case Is >= 30
                result = "Great"
            Case Is >= 20
                result = "Good"
            Case Is >= 15
                result = "OK"
            Case Else
                result = "Bad"
        End Select
        
        Range("C" & i).Value = result
        
    Next i
    
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

La colonne C renvoie une valeur Excellent, Bon, OK ou Mauvais en fonction de la valeur correspondante dans la colonne B.

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : Comment classer une liste de valeurs
VBA : Comment compter les valeurs uniques dans la plage
VBA : Comment compter le nombre de lignes dans la plage