annuler dans inputbox

Pierrot93

XLDnaute Barbatruc

• 30 Juillet 2010

• #2

Re : annuler dans inputbox

Bonsoir,

essaye peut être ainsi :

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 30 Juillet 2010

• #3

Re : annuler dans inputbox

Impeccable, merci Pierrot
Bonne soirée
@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 30 Juillet 2010

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Juillet 2010

• #5

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é...

Code:

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

@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 30 Juillet 2010

• #6

Re : annuler dans inputbox

Parfait!

Grand merci 😉
@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 2 Août 2010

• #7

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?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Août 2010

• #8

Re : annuler dans inputbox

Bonjour,

modifie ainsi :

Code:

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
@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 2 Août 2010

• #9

Re : annuler dans inputbox

Impec

Merci beaucoup Pierrot

Bonne journée à toi aussi
@+

 

Vote positif 0 Vote négatif