Comment utiliser la structure Select Case dans Excel 2016 VBA - dummies

La structure Select Case est une structure VBA utile pour les décisions impliquant trois ou plus options dans Excel 2016 (bien qu'il fonctionne également avec deux options, fournissant une alternative à la structure If-Then-Else).

Exemple de cas de sélection

L'exemple suivant montre comment utiliser la structure Select Case:

Sub ShowDiscount3 () Dim Quantité en tant que réduction longue En tant que quantité double = InputBox ("Entrer la quantité:") Cas 0 à 24 Remise = 0. 1 Cas 25 à 49 Remise = 0. 15 Cas 50 à 74 Remise = 0. 2 Cas est> = 75 Remise = 0. 25 Fin Sélectionnez MsgBox "Remise:" & Remise Fin Sous > Dans cet exemple, la variable Quantité est en cours d'évaluation. La routine vérifie quatre cas différents (0-24, 25-49, 50-74 et 75 ou plus).

Un nombre quelconque d'instructions peut suivre chaque instruction Case, et elles sont toutes exécutées si la casse est vraie. Si vous utilisez une seule instruction, comme dans cet exemple, vous pouvez placer l'instruction sur la même ligne que le mot clé Case, précédé d'un deux-points - le caractère de séparation d'instructions VBA. Cela rend le code plus compact et un peu plus clair. Voici à quoi ressemble la routine dans ce format:

Sub ShowDiscount4 () Dim Quantité en tant que Réduction Longue Durée En Double Quantité = InputBox ("Entrer Quantité:") Sélectionner Cas Quantité Cas 0 à 24: Remise = 0. 1 Cas 25 49: Remise = 0. 15 Cas 50 à 74: Remise = 0. 2 Cas est> = 75: Remise = 0. 25 Fin Sélectionnez MsgBox "Remise:" & Remise End Sub

Lorsque VBA exécute une structure Select Case, la structure est quittée dès que VBA trouve un cas réel et exécute les instructions pour ce cas.

Exemple de cas de sélection imbriqué

Comme illustré dans l'exemple suivant, vous pouvez imbriquer des structures de sélection de cas. Cette routine examine la cellule active et affiche un message décrivant le contenu de la cellule. Notez que la procédure a trois structures Select Case, et chacune a sa propre instruction de fin de sélection:

Sub CheckCell () Dim Msg As String Sélectionner un cas IsEmpty (ActiveCell) Case True Msg = "est vide. "Case Else Sélectionnez Case ActiveCell. Case HasFormula True Msg = "a une formule" Case Else Select Case IsNumeric (ActiveCell) Case True Msg = "a un nombre" Case Else Msg = "contient du texte" End Select End Select Select MsgBox "Cell" & ActiveCell. Address & "" & Msg End Sub

La logique ressemble à ceci:

Détermine si la cellule est vide.

1. Si ce n'est pas vide, voyez s'il contient une formule.

2. S'il n'y a pas de formule, vérifiez si elle contient une valeur numérique ou un texte.

3. Lorsque la routine se termine, la variable Msg contient une chaîne qui décrit le contenu de la cellule. La fonction MsgBox affiche ce message.

Un message affiché par la procédure CheckCell.

Vous pouvez imbriquer les structures Select Case aussi profondément que nécessaire, mais assurez-vous que chaque instruction Select Case possède une instruction End Select correspondante.

Si vous n'êtes toujours pas convaincu que le code d'indentation en vaut la peine, la liste précédente est un bon exemple. Les indentations permettent vraiment de rendre les niveaux de nidification plus clairs. Jetez un oeil à la même procédure sans aucune indentation:

Sub CheckCell () Dim Msg As String Sélectionner un cas IsEmpty (ActiveCell) Case True Msg = "est vide. "Case Else Sélectionnez Case ActiveCell. Case HasFormula True Msg = "a une formule" Case Else Select Case IsNumeric (ActiveCell) Case True Msg = "a un nombre" Case Else Msg = "contient du texte" End Select End Select Select MsgBox "Cell" & ActiveCell. Adresse & "" & Msg End Sub

Assez incompréhensible, hein?