Comment utiliser la structure Select Case dans Excel 2016 VBA

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

Un exemple de cas sélectionné

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

Sous ShowDiscount3()
  Dim Quantité aussi longtemps
  Dim Remise en tant que double
  Quantité = InputBox ("Entrez la quantité : ")
  Sélectionnez la quantité de caisse
    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 de la sélection
  MsgBox « Remise : » & Remise
Fin du sous-marin

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).

N'importe quel nombre d'instructions peut suivre chaque instruction Case, et elles sont toutes exécutées si la casse est vraie. Si vous n'utilisez qu'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ée de deux points — le caractère séparateur de l'instruction VBA. Cela rend le code plus compact et un peu plus clair. Voici à quoi ressemble la routine dans ce format :

Sous ShowDiscount4 ()
  Dim Quantité aussi longtemps
  Dim Remise en tant que double
  Quantité = InputBox ("Entrez la quantité : ")
  Sélectionnez la quantité de caisse
    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 de la sélection
  MsgBox « Remise : » & Remise
Fin du sous-marin

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

Un exemple de cas de sélection imbriqué

Comme le montre l'exemple suivant, vous pouvez imbriquer des structures Select Case. 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 End Select :

Sous-CheckCell()
  Dim Msg en tant que chaîne
  Sélectionnez la casse est vide (ActiveCell)
    Cas vrai
     Msg = "est vide."
    Cas autre
     Sélectionnez la casse ActiveCell.HasFormula
       Cas vrai
        Msg = "a une formule"
       Cas autre
        Sélectionnez la casse est numérique (ActiveCell)
          Cas vrai
           Msg = "a un numéro"
          Cas autre
           Msg = "a du texte"
        Fin de la sélection
    Fin de la sélection
  Fin de la sélection
  MsgBox "Cell" & ActiveCell.Address & " " & Msg
Fin du sous-marin

La logique va quelque chose comme ceci:

Découvrez si la cellule est vide.

S'il n'est pas vide, voyez s'il contient une formule.

S'il n'y a pas de formule, déterminez si elle contient une valeur numérique ou du texte.

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.

Comment utiliser la structure Select Case dans Excel 2016 VBA

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 a une instruction End Select correspondante.

Si vous n'êtes toujours pas convaincu que l'indentation du code en vaut la peine, la liste précédente est un bon exemple. Les indentations vraiment pour rendre les niveaux d'imbrication clairs. Jetez un œil à la même procédure sans aucune indentation :

Sous-CheckCell()
Dim Msg en tant que chaîne
Sélectionnez la casse est vide (ActiveCell)
Cas vrai
Msg = "est vide."
Cas autre
Sélectionnez la casse ActiveCell.HasFormula
Cas vrai
Msg = "a une formule"
Cas autre
Sélectionnez la casse est numérique (ActiveCell)
Cas vrai
Msg = "a un numéro"
Cas autre
Msg = "a du texte"
Fin de la sélection
Fin de la sélection
Fin de la sélection
MsgBox "Cell" & ActiveCell.Address & " " & Msg
Fin du sous-marin

Assez incompréhensible, hein ?

Leave a Comment

Comment définir les options de vérification linguistique de Word 2010

Comment définir les options de vérification linguistique de Word 2010

Découvrez comment configurer les options de vérification linguistique dans Word 2010 pour améliorer votre rédaction et éviter les erreurs.

Comment utiliser la fonction CONFIANCE dans Excel

Comment utiliser la fonction CONFIANCE dans Excel

Découvrez comment utiliser les fonctions CONFIDENCE.NORM et CONFIDENCE.T dans Excel pour calculer des intervalles de confiance pour les moyennes de population, améliorant ainsi la prise de décision basée sur des données.

Formater les nombres en milliers et en millions dans les rapports Excel

Formater les nombres en milliers et en millions dans les rapports Excel

Améliorez la lisibilité de vos rapports Excel en formatant vos chiffres en milliers ou millions avec des astuces simples et efficaces pour votre audience.

Comment personnaliser vos étiquettes de données de graphique croisé dynamique Excel

Comment personnaliser vos étiquettes de données de graphique croisé dynamique Excel

Apprenez comment personnaliser vos étiquettes de données dans Excel pour un meilleur rapport. Utilisez les valeurs de votre tableau croisé dynamique efficacement.

Comment créer une application Web Access

Comment créer une application Web Access

Découvrez comment créer une application Web dans Access 2016. Apprenez les étapes essentielles pour développer votre application en ligne facilement.

Comment utiliser les commentaires dans Microsoft Word 2019

Comment utiliser les commentaires dans Microsoft Word 2019

Découvrez comment ajouter, répondre, afficher et supprimer des <strong>commentaires dans Microsoft Word</strong> 2019 pour optimiser votre collaboration.

Feuille intelligente 9.1.1

Feuille intelligente 9.1.1

Smartsheet est une plateforme de travail dynamique qui vous permet de gérer des projets, de créer des flux de travail et de collaborer avec votre équipe.

SharePoint

SharePoint

SharePoint est un système de collaboration basé sur le Web qui utilise une variété d'applications de flux de travail, des bases de données de « liste » et d'autres composants Web, ainsi que des fonctionnalités de sécurité pour donner le contrôle aux groupes professionnels qui travaillent ensemble.

Calendrier perpétuel 1.0.38/1.0.36

Calendrier perpétuel 1.0.38/1.0.36

Van Nien Calendar est une application d'affichage de calendrier sur votre téléphone, vous aidant à voir rapidement la date luni-solaire sur votre téléphone, organisant ainsi votre travail important.

Microsoft Outlook 2021

Microsoft Outlook 2021

Microsoft Outlook est une application commerciale et de productivité développée par Microsoft Corporation.