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:
'La en fait ça me renvoi la msgbox "saisie annulée" quoi que je face ....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avance
Partager