MsgBox + macro calcul

[Zérø]

Bonsoir, j'aimerais créer une MsgBox qui me demanderait une valeur et qui effectuerait un calcul en prenant en compte la valeur demandée en me mettant le résultat dans une MsgBox.

Exemple:

Une MsgBox me demande une valeur, j'entre 2 (ça j'y arrive XD)
Prenons un calcul simple, la macro doit multiplier par 2 la valeur demandée.
Elle affiche le résultat dans une MsgBox.

Merci d'avance

 

[Excel-lent]

Re : MsgBox + macro calcul

Bonjour et bienvenu sur le forum Zérø

Une MsgBox me demande une valeur, j'entre 2 (ça j'y arrive XD)
Prenons un calcul simple, la macro doit multiplier par 2 la valeur demandée.
Elle affiche le résultat dans une MsgBox.

MsgBox? Perso j'utilise plutôt une InputBox

Réponse basic :

Sub Proposition()

réponse = [COLOR="Red"]InputBox[/COLOR]("Veuillez saisir un nombre")

MsgBox "La réponse est : " & [COLOR="Green"][I]réponse * 2[/I][/COLOR]

End Sub

Réponse plus fouillé :

Sub Proposition()

Dim réponse As String

réponse = InputBox("Veuillez saisir un nombre", "S A I S I E", 1)

MsgBox "Tu viens de saisir : " & réponse & ". Sache que ce nombre multiplié par 2 donne : " & réponse * 2

End Sub

Bonne fin de soirée

 

[ROGER2327]

Re : MsgBox + macro calcul

Bonsoir à tous

Sub toto()
   MsgBox 2 * InputBox("Un nombre, s.v.p. !")
End Sub

ROGER2327

 

[Zérø]

Re : MsgBox + macro calcul

Merci sa marche nikel ^^

 

[vbacrumble]

Re : MsgBox + macro calcul

Bonjour

Une inputBox renvoyant un String
(si quelqu'un a plus court, ou une autre voie, merci à lui de se signaler )

Sub toto()
Dim rep$
rep = InputBox("Un nombre, s.v.p. !", "User choice", 1)
MsgBox 2 * (IIf(IsNumeric(rep), rep, Asc(rep))), vbInformation, (IIf(Asc(rep) >= 65, "Saisie invalide", "Saisie valide"))
End Sub

 

[Zérø]

Re : MsgBox + macro calcul

Sub toto()
Dim rep$
rep = InputBox("Un nombre, s.v.p. !", "User choice", 1)
MsgBox 2 * (IIf(IsNumeric(rep), rep, Asc(rep))), vbInformation, [COLOR="Red"](IIf(Asc(rep) >= 65[/COLOR], "Saisie invalide", "Saisie valide"))
End Sub

Sa veut dire quoi ?

 

[vbacrumble]

Re : MsgBox + macro calcul

Bonjour de nouveau, Zero


Pas de bras, pas de chocolat

Pas de bonjour, pas de VBA

PS: Bis repetita non placent !

 

[Zérø]

Re : MsgBox + macro calcul

Row ><

J'ai dis bonjour au dessus du sujet en plus c'était ce matin mais si t'y tiens tant que sa, rebonjour.

Tu peux me traduire ton code stp ?

 

[vbacrumble]

Re : MsgBox + macro calcul

Re


Qu'est-ce que tu ne comprends pas ?


Essayes le code de Roger2327, mais saisis la lettre a au lieu d'un chiffre

ensuite fais la même manip avec le code que j'ai posté précédemment.

 

[Zérø]

Re : MsgBox + macro calcul

Avec le code de Roger sa marche nikel XD

Je vais essayer avec le tient car si sa peut me mettre "Valeur incorrecte" lorsque la valeur entrée ou la valeur trouvée l'est sa serait bien ^^

 

[vbacrumble]

Re : MsgBox + macro calcul

Re

Non ça plante si tu saisis a dans l'inputbox dans la procédure toto

Tu demandes des explications sur un code que tu n'as même pas testé !!!

 

[Zérø]

Re : MsgBox + macro calcul

Si je l'avais testé et il marchait... bon ba je le retest...

EDIT: je confirme il marche, c'est celui que j'ai en ce moment.

Celui pour lequel je demande des explication est le tien car je ne comprend pas la signification de ce que tu as ecrit. Si on ne peut pas traduire, on ne peut pas créer...

 

[vbacrumble]

Re : MsgBox + macro calcul

Re



Quand tu saisis la lettre a , tu n'as pas de message d'erreur ?

Ça m'étonnerait beaucoup !!!

 

[Zérø]

Re : MsgBox + macro calcul

Re,

Ici je ne saisie pas de lettre, c'est un chiffre ^^

 

[vbacrumble]

Re : MsgBox + macro calcul

Re

Ça j'ai compris

Mais en cas d'erreur de saisie ,
la macro toto génère une erreur

la mienne (enfin celle de Roger modifiée par bibi) gère ce cas de figure.

Mais bon ...