Discussion :

[Invité]

Bonjour Développeurs , en fait je suis bloquée :
le bouton annuler dans les inputboxs ne marche pas et si je clique dessus un message d’Erreur apparaît ( erreur d’exécution 13 ) .
HELP
Voilà le code que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
Dim montant As Double
montant = InputBox("Montant de l'investissement ?", "Montant de l'investissement :")
 
While montant < 1 Or montant > 999999999
    MsgBox "Veuillez saisir un montant valide !", vbCritical
    montant = InputBox("Montant de l'investissement ?")
Wend
Range("E6").Value = montant

[Transitoire]

Bonjour,
il faut déclarer :

Code :

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

Dim montant as variant

Cordialement

[Invité]

NIIICE . THANK UUU