Bonjour, je me permet de vous demander votre avis (aide) sur cette petite question. L'énoncé est simple mais j'ai un problème avec la msgbox en effet je ne sais pas comment introduire une variable. Voici le sujet:

Réaliser une macro « opposer_cellule » qui calcule l'opposé de la valeur de la cellule active
(nous supposerons que la cellule active contient une valeur numérique), puis affiche
(MsgBox) le message suivant sur deux lignes : première ligne « l'opposé de X est Y » avec X la valeur de la cellule active et Y son opposé et deuxième ligne « Voulez-vous remplacer X par Y ? ». Dans le cas où l’utilisateur clique sur « oui » alors la macro remplace le contenu de la cellule active (X) par son opposé (Y). Elle ne fait rien si l'utilisateur clique sur " non"

voici le début de mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub opposer_cellule()
Dim opp As Integer
Dim var As Integer
var = ActiveCell.Value
opp = -var
End Sub
Je vous remercie par avance!