XL 2013 Inputbox numérique

[Appo1985]

Bonjour
Dans une boîte de dialogue, j'aimerais sairir exclusivement des chiffres.
Donc je voudrais pouvoir faire l'une des solutions suivantes ou d'autres possibilités s'il y en a
1) Remplacer par vide automatiquement si on saisie une lettre ou un autre caractère
2) Ne rien faire quand ce qu'on a saisi ne sont pas des chiffres et qu'on clique sur ok
3) Ne pas afficher les erreurs que la saisie pourrait causer
Ci joint le fichier
Tout en espérant que je me suis fait comprendre, je vous remercie par avance

 

[sylvanu]

Bonjour Appo,
Une solution parmi d'autres en PJ :

Sub numpv()
Numéro = "a"
While IsNumeric(Numéro) = False
    nom = InputBox("Quel est le premier numéro ?", "saisie d'un nombre")
    If nom = "" Then Exit Sub
    If IsNumeric(nom) Then Numéro = Val(nom)
Wend
End Sub

 

[Appo1985]

Bonjour Appo,
Une solution parmi d'autres en PJ :

Sub numpv()
Numéro = "a"
While IsNumeric(Numéro) = False
    nom = InputBox("Quel est le premier numéro ?", "saisie d'un nombre")
    If nom = "" Then Exit Sub
    If IsNumeric(nom) Then Numéro = Val(nom)
Wend
End Sub

Merci beaucoup.
Si je comprends bien l'instruction qui suivra ne sera pas exécuter mais on demandera encore à l'utilisateur de recommencer

 

[sylvanu]

Re,
Exact, on boucle tant que la valeur n'est pas numérique, et on sort sur Annuler ou contenu vide.