Appliquer une formule à une sélection

Bonjour !

Je cherche à multiplier une sélection en VBA par 100 quand j'utilise un raccourci clavier (type ctrl + N par ex)

Auriez vous une idée de comment procéder?

Merci d'avance

lionel52

Bonjour Lionel52

Insère un nouveau module dans le VBAProject (Alt + F11) et copies le code suivant :

Option Explicit

Sub Multiplier_100()
    ActiveCell = CDec(ActiveCell) * 100
    'La fonction CDec transforme le texte-numérique en type décimal
    'La fonction CInt transforme le texte-numérique en type entier
End Sub

Donnes le raccourci Ctrl + Shift + N

et si par tous les hasard le multiple est différent voici le code incluant un InputBox pour y mettre le chiffre multiple de ton choix

Option Explicit

Sub Multiplier()
Dim Multiple%
Multiple = InputBox("Saisir le multiple : ", "A multiplier par ", "0")
    ActiveCell = CDec(ActiveCell) * CDec(Multiple)
    'La fonction CDec transforme le texte-numérique en type décimal
    'La fonction CInt transforme le texte-numérique en type entier
End Sub

Merci ça fonctionne parfaitement