Un bouton de rotation peut être utilisé pour incrémenter un nombre dans une cellule. Pour créer un bouton de rotation dans Excel VBA, exécutez les étapes suivantes.

  1. Dans l’onglet Developer, cliquez sur Insérer.

  2. Dans le groupe Contrôles ActiveX, cliquez sur le bouton Spin.

Create a spin button in Excel VBA

  1. Faites glisser un bouton de rotation sur votre feuille de calcul.

  2. Faites un clic droit sur le bouton de rotation (MAKE est sélectionné que le mode Design).

  3. Cliquez sur Afficher le code.

View Code

Remarque: vous pouvez modifier le nom d’un contrôle par un clic droit sur le contrôle (assurez-vous que le mode Création est sélectionné) et puis en cliquant sur Propriétés. Pour l’instant, nous partirons SpinButton1 comme le nom du bouton de rotation.

  1. Pour créer un lien sur ce bouton de rotation à une cellule, ajoutez la ligne de code suivant.

Range("C3").Value = SpinButton1.Value

  1. Vous pouvez définir un maximum et minimum en ajoutant les lignes de code ci-dessous.

SpinButton1.Max = 100

SpinButton1.Min = 0

  1. Pour modifier la valeur ajoutée, utilisez la propriété SmallChange.

SpinButton1.SmallChange = 2

  1. Cliquez sur les flèches du bouton de rotation (assurez-vous que le mode de conception est décochée).

Résultat:

Spin Button

Remarque: au lieu de modifier les propriétés du bouton de rotation lors de l’exécution, vous pouvez également modifier les propriétés au moment du design. Pour ce faire, faites un clic droit sur le bouton de rotation (assurez-vous que le mode Création est sélectionné) et cliquez sur Propriétés.

Properties