Discussion :

[souad12]

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!

[Invité]

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

[souad12]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Philippe