utilise Application.InputBox, en précisant le type attendu.
Exemple, pour avoir un nombre :
Sub Test()
Dim Valeur As Variant
Dim Message As String, Titre As String
Message = "Entrez une valeur numérique"
Titre = "Saisie d'une valeur"
Valeur = Application.InputBox(prompt:=Message, Title:=Titre, Type:=1)
End Sub
voici les valeurs attendues pour Type (cf. l'aide d'InputBox)
0 Une formule.
1 Un nombre.
2 Texte (une chaîne).
4 Une valeur logique (True ou False).
8 Une référence de cellule, sous la forme d'un objet Range.
16 Une valeur d'erreur, telle que #N/A.
64 Un tableau de valeurs.