Création d’un bouton plus / moins (Microsoft Excel)
Sur certaines calculatrices, il y a un petit bouton qui peut être très pratique: le bouton plus / moins. Ce bouton, lorsqu’il est enfoncé, fera basculer la valeur affichée à l’écran entre ses valeurs positives et négatives. Par exemple, si l’écran affiche le numéro 57, appuyez sur le bouton pour changer l’affichage à -57. Une nouvelle pression ramènera la valeur à 57.
Si vous souhaitez un « bouton » qui fait cela dans Excel, vous constaterez rapidement qu’il n’y en a aucun intégré dans le programme. Vous pouvez cependant en créer rapidement une en utilisant une macro:
Sub PlusMinus1() Dim cell As Range For Each cell In Selection If Application.IsNumber(cell) Then cell.Value = cell.Value * -1 End If Next cell End Sub
Notez que la macro parcourt simplement la plage de cellules que vous avez sélectionnée au démarrage de la macro. Chaque cellule est vérifiée pour voir si elle contient un nombre. Si tel est le cas, la valeur de ce nombre est multipliée par -1. Le résultat est un changement de signe pour le numéro.
Un inconvénient de la macro est que si la cellule contient une formule, cette formule est convertie en une valeur, puis multipliée par la valeur -1. Vous ne voudrez peut-être pas perdre vos formules. Dans ce cas, vous pouvez vous fier à une macro plus discriminante, qui vérifie si la cellule contient une formule ou non. Sinon, il est simplement multiplié par -1. Si tel est le cas, la formule est ajustée afin que le résultat soit multiplié par -1.
Sub PlusMinus2() Dim cell As Range For Each cell In Selection If Left(cell.Formula, 1) = "=" Then Cell.Formula = cell.Formula & " * -1" Elseif Application.IsNumber(cell) Then cell.Value = cell.Value * -1 End If Next cell End Sub
Vous pouvez attribuer l’une de ces macros à une touche de raccourci ou à un bouton de la barre d’outils pour faciliter son utilisation à tout moment.
_Note: _
Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.
lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur]
.
ExcelTips est votre source pour une formation Microsoft Excel rentable.
Cette astuce (3256) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:
link: / excelribbon-Creating_a_Plus_Minus_Button [Création d’un bouton plus / moins]
.