Bonjour,

J'ai créé une inputbox pour signaler à l'utilisateur qu'il a laissé des cases vides et lui demander de les remplir. Pas de problème.
Si l'utilisateur clique sur annuler ou sur OK sans rien saisir, je voudrais que ma variable prenne par défaut la valeur 1. Est-ce possible et si oui comment? J'ai cherché sur le forum mais je n'ai rien trouvé qui me convienne...


Merci d'avance !


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
 
Sub tintin
 
[...]
Dim TextNum as variant      'TextNum = variable reprenant le contenu de ma cellule
Dim NoteSaisie as integer    'NoteSaisie = variable reprenant le contenu de l'inputbox    
[...]
 
'a. gestion des cases vides:
    If TextNum = "" Then           
        NoteSaisie = InputBox("Aucun critère n'a été saisi , veuillez saisir une note." + Chr(13) + "Par défaut, la note saisie aura la valeur 1", "")
        ActiveSheet.Cells(LActivite, CActivite) = NoteSaisie
    End If
 
[...]
End Sub