[Toutes versions] Cancel sur une InputBox [Résolu]

[JeanYves70]

Bonjour,

Je crée une boite de message avec "inputbox", lorsque je clique sur "annuler" cela plante !

SVP qu'est-ce que je fais de pas bien ??

Code :

1
2
3
4
5
6
7
8
 
Public Function Fnc_AjoutJour()   
Dim MaValeur As Integer
 
MaValeur = InputBox("Entrez le nombre de jour à ajouter.", "Modification des dates", 0)
 
'suite de ma fonction qui fonctionne correctement   
End Function

Je n'ai pas trouvé dans les FAQ - D'avance merci

[Mycose]

Code :

Dim MaValeur As string

Si tu as besoin de le repassé en int après fait un CInt

[NguyenRD]

Salut,
Quand tu appuies sur Cancel, le système affecte la valeur "" à ta variable MaValeur qui est Integer donc elle n'accepte pas de "" ou null.
Essaie la même chose mais en déclarant ta variable en String

Code :

1
2
3
4
5
6
Public Function Fnc_AjoutJour()   
Dim MaValeur As String 
MaValeur = InputBox("Entrez le nombre de jour à ajouter.", "Modification des dates", 0)
 
'suite de ma fonction qui fonctionne correctement   
End Function

Puis teste si c'est numérique ou non.

[JeanYves70]

Magnifique ça marche

Merci