MsgBox et variable

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:

---

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!

Bonjour

Déjà bravo d'avoir voulu faire quelque chose, cela change de l'énoncé et faites mon taf pour moi.

Déjàn si tu lis ton énoncé il te faut une MsgBox pour valider le choix, tu as un tuto pour cela dans les tutos en haut de cette page.

Ton début est bon, à part.

La déclaration de ta variable, car là elle n'admettra pas tous les chiffres, passes la en Double.

Philippe

Merci pour votre réponse j'ai trouvé un code qui fonctionne, à l'aide des tutoriels sur le site.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub opposer_cellule() Dim opp As Double Dim var As Double   var = ActiveCell.Value opp = -var mess = MsgBox(" L'opposé de " & var & " est " & opp & Chr(10) & _ " Voulez vous remplacer " & var & " par " & opp & "?", vbYesNo) If mess = vbYes Then ActiveCell = opp End If End Sub

---

:ccool: voilà les gars comme je les aime, ils se décarcassent avec leur énoncé, et avec un peu d'aide ils y arrivent.

Philippe