La meilleure façon de permettre à un utilisateur d'augmenter ou de diminuer la valeur de votre application Microsoft Excel quand une macro est en cours d'exécution est d'utiliser un bouton de rotation . Une macro est couramment utilisé pour enregistrer une séquence d'actions qui peuvent ensuite être exécutées par l'exécution de la macro manuellement ou en cliquant sur un bouton. Une macro est créée par l'utilisation de Visual Basic pour Applications ( VBA) , un langage de programmation informatique utilisé dans les applications Microsoft Office pour automatiser les tâches de routine telles que l'affichage d' une fileuse . Instructions
1

Lancez Microsoft Excel , cliquez sur l'onglet « Développeur » et cliquez sur l'icône "Insérer" dans le volet «contrôle» . Cliquez sur "Button" et cliquez sur le tableau pour ajouter un nouveau bouton de commande. Cliquez sur " Bouton Spin " en dessous " Contrôles ActiveX " et l'ajouter à la feuille de calcul .
2

un clic droit sur la fileuse et cliquez sur "Propriétés" pour afficher la fenêtre des propriétés . Choisissez "False" à côté de la propriété "Visible" . Cliquez sur l'icône "Macros " et tapez " IncrementValues ​​" en dessous " Nom de la macro . " Cliquez sur le bouton "Créer" pour créer une nouvelle macro.
3

Copier et coller le code suivant pour créer une «Alors ... la boucle " et mettre à jour la feuille de calcul avec des valeurs à chaque fois que l' l'utilisateur clique sur le bouton spinner :

Sheet1.SpinButton1.Visible = True

Do While ( compteur <> 10)

Range (" A1") Sélectionnez < . br > Gamme

( "A1") . Value = compteur

Range (" A2 " ) . Sélectionnez

Range (" A2 " ) . Value = " Macro course ... "

Application.Wait maintenant + TimeValue ( " 00:00:02 " )

DoEvents

boucle

Range (" A1 ") . Sélectionnez Photos

Range (" A1") . Value = " "

Range (" A2 " ) . Sélectionnez

Range (" A2 " ) . Value = " Macro terminée. "

Sheet1.SpinButton1.Visible = False

compteur = 0
4

Ajoutez la ligne de code suivante dans le très haut de votre module pour créer un mondial Variable:

compteur global As Integer
5

Revenez à Microsoft Excel et cliquez droit sur " Bouton 1". Cliquez sur " Affecter une macro " et cliquez sur " IncrementValues ​​. " Cliquez sur « OK ».
6

clic droit sur le bouton spinner et cliquez sur " Afficher le code " pour ouvrir un module de code VBA. Copiez et collez le code suivant pour augmenter ou diminuer la valeur de la variable globale :

SpinButton1_SpinDown Private Sub ()

de compteur = compteur - 1 x

End Sub
< p > Private SpinButton1_SpinUp Sub ( )

compteur = compteur + 1

End Sub
7

Revenez à Microsoft Excel et cliquez sur "Bouton 1" pour commencer à courir le macro et affiche la commande spinner . Cliquez sur la flèche vers le haut du bouton spinner pour augmenter ou sur la flèche vers le bas pour le diminuer . La macro permet de masquer la fileuse et arrêter de courir lorsque la variable globale est égale à 10.