Sub TestInput() ' Test boîte INPUTBOX
Dim Réponse As Variant
Dim Message, Title, Default, MyValue
Message = "Entrez votre donnée" ' Set Texte.
Title = "Test ..." ' Set Titre.
Default = "1" ' Set Valeur par défaut.
Do
ici:
Réponse = Application.InputBox(Message, Title)
If Réponse = False Then
If MsgBox("Vous avez demandé l'annulation.", vbYesNo + vbInformation, "Confirmer.") = vbYes Then
Exit Sub
Else: GoTo ici
End If
End If
If Réponse = "" Then MsgBox "Saisissez quelque chose, SVP!"
Loop Until Réponse <> ""
MsgBox Réponse & ": est votre saisie à noter en I2", , "Valeur saisie."
Range("I2") = Réponse
End Sub