Problème avec le bouton Annuler de la fonction Inputbox
Voilà j'utilise une fenetre inputbox pour demander a un utilisateur d'entrer une valeur, je la test, si elle ne correspond pas à quelquechose de logique je lui envoi un message d'erreur et le renvoi sur la saisie, mais je voudrai que lorsqu'il clic sur la touche "Annuler", il quitte la saisie... Impossible à faire !
j'ai tout essayer .. j'espere que vous pourrez m'aider.
je vous met la fonction telle qu'elle est:
'
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| saisie de pi
pi:
Range("c3").Select
titre = "saisie de pi"
Message = ("entrer pi (insolation),comprise entre 0 et 900 W/m²")
valdef = Worksheets("saisie").Range("c3").Value
saisie = InputBox(Message, titre, valdef)
If saisie = "" Then
MsgBox "Saisie Annulée"
Exit Sub
Else
End If
If saisie >= 0 And saisie < 901 Then
ActiveCell.FormulaR1C1 = saisie
GoTo Qef:
Else
Choix = MsgBox("valeur incorrecte de pi, choisir un entier entre 0 et 900", 1)
GoTo pi:
End If |
La en fait ça me renvoi la msgbox "saisie annulée" quoi que je face ....
Merci d'avance
