Discussion :

[r0main2b]

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 :

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

La en fait ça me renvoi la msgbox "saisie annulée" quoi que je face ....

Merci d'avance

[SilkyRoad]

Bonsoir

Assure toi que la cellule C3 ne soit pas vide, complète manuellement la zone de saisie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("saisie").Range("c3").Value

Comment as tu déclaré la variable valdef ?



michel