En VBA, vous pouvez créer un Bouton d'essorage qui permet à un utilisateur d'incrémenter un nombre dans la cellule dans une plage définie. Chaque fois qu'un utilisateur clique sur un bouton, le nombre augmente ou diminue. Dans ce tutoriel, vous apprendrez à créer un bouton Spin et à l'utiliser dans Excel et VBA.
Si vous souhaitez apprendre à utiliser un bouton d'option, cliquez sur ce lien : Bouton d'option Excel VBA
Créer un bouton de rotation
Pour insérer un bouton Spin dans la feuille de travail, vous devez accéder à la Onglet Développeur, Cliquez sur Insérer et sous Contrôles ActiveX choisissez Bouton d'essorage :
Image 1. Insérer un bouton Spin dans la feuille de calcul
Lorsque vous sélectionnez le bouton Spin que vous avez inséré, vous pouvez cliquer sur Propriétés sous le Onglet Développeur:
Image 2. Modifier les propriétés du bouton Spin
Ici, vous pouvez définir différentes propriétés du bouton Spin. Pour le début, nous avons changé l'attribut Nom à spbSpinButton. Maintenant, nous pouvons utiliser le bouton Spin avec ce nom en code VBA. D'autres attributs importants sont Min et Max, qui définissent une tranche de nombres et Petite monnaie qui définit une étape d'incrémentation.
Définir un bouton Spin à l'aide de VBA
Nous allons d'abord voir comment définir les propriétés d'un bouton Spin en VBA et obtenir une valeur dans Worksheet. Le code doit être dans l'événement Changer de l'objet spbSpinButton. Vous pouvez participer à cet événement en faisant un clic droit sur le bouton Spin et en choisissant Afficher le code option. Voici le code :
1234567891011 | Sous privé spbSpinButton_Change()Feuille1.spbSpinButton.Min = 100Feuille1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range("B2") = Sheet1.spbSpinButton.ValueFin du sous-marin |
Tout d'abord, nous définissons la limite inférieure pour la plage de nombres :
1 | Feuille1.spbSpinButton.Min = 100 |
Après cela, nous définissons la limite supérieure pour la plage de numéros :
1 | Feuille1.spbSpinButton.Max = 200 |
Nous devons également définir l'étape pour l'incrémentation des nombres :
1 | Sheet1.spbSpinButton.SmallChange = 10 |
Enfin, nous attribuons la valeur actuelle du bouton Spin à la cellule B2. Cette valeur est dans le Valeur attribut de l'objet Feuille1.spbSpinButton:
1 | Sheet1.Range("B2") = Sheet1.spbSpinButton.Value |
Maintenant, chaque fois que nous cliquons sur le bouton Spin, la valeur augmentera ou diminuera de 10 dans la plage 100-200 :
Image 3. Augmenter un nombre à l'aide du bouton Spin dans VBA
Définir un bouton Spin dans Excel
Une autre façon de définir un bouton Spin consiste à utiliser les propriétés. Cliquer sur Propriétés sous le Onglet Développeur:
Image 4. Définir un bouton Spin dans Excel
Ici, nous pouvons définir tous les attributs que nous voulons : Min est 10, Max est 100 et Petite monnaie est 2. Si vous voulez mettre le résultat du bouton Spin dans la cellule B2, vous devez mettre cette cellule dans l'attribut Cellule Liée.