annuler dans inputbox

[pizzaman]

Bonjour,

J'utilise une inputbox, mais malgré mes recherche sur d'autres post, je n'arrive pas à mettre le bon code pour qu'elle s'arrete quand j'appuie sur annuler et qu'elle refuse par une msgbox si la valeur entrée n'est pas numerique
Si je laisse comme ca, ca m'envoie en debogage dès que je mets annuler

Merci d'avance

Dim Reponse As Integer
Reponse = InputBox("Total divisé par:")
[I5] = [I2] / Reponse

 

[Pierrot93]

Re : annuler dans inputbox

Bonsoir,

essaye peut être ainsi :

Dim Reponse As Variant
Reponse = InputBox("Total divisé par:")
If Reponse = "" Or Not IsNumeric(Reponse) Then Exit Sub
[I5] = [I2] / Reponse

bonne soirée
@+

 

[pizzaman]

Re : annuler dans inputbox

Impeccable, merci Pierrot
Bonne soirée
@+

 

[pizzaman]

Re : annuler dans inputbox

En fait, ca me convient mais ca serait mieux si il y avait une msgbox pour indiquer que la valeur manque ou qu'elle n'est pas numerique, et si on appuie sur annuler alors la sortir simplement

Si c'est possible c'est encore mieux

Merci

 

[Pierrot93]

Re : annuler dans inputbox

Re,

essaye avec la méthode plutôt qu'avec la fonction, le type de donnée saisie est contrôlé...

Dim Reponse As Integer
Reponse = Application.InputBox("Total divisé par : ", Type:=1)
If Reponse = 0 Then Exit Sub
[I5] = [I2] / Reponse

@+

 

[pizzaman]

Re : annuler dans inputbox

Parfait!

Grand merci 😉
@+

 

[pizzaman]

Re : annuler dans inputbox

Bonjour Pierrot,

Je reviens sur ce post car je viens de me rendre compte que je ne peux pas utilisé de nombres decimaux avec cette imputbox, ce qui me pose un petit problème

Quand j'ecris diviser par 2,5 ,la division se fait quand meme, mais c'est divisé par 2 et non par 2,5

Peut on faire autrement?

 

[Pierrot93]

Re : annuler dans inputbox

Bonjour,

modifie ainsi :

Dim reponse As [B][COLOR="Blue"]Double[/COLOR][/B]
reponse = Application.InputBox("Total divisé par : ", Type:=1)
If reponse = 0 Then Exit Sub
[I5] = [I2] / reponse

bonne journée
@+

 

[pizzaman]

Re : annuler dans inputbox

Impec

Merci beaucoup Pierrot

Bonne journée à toi aussi
@+