XL 2013 Inputbox numérique

Appo1985 · 10 Décembre 2023

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 · 10 Décembre 2023

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

sylvanu · 10 Décembre 2023

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

VB:

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 · 10 Décembre 2023

sylvanu à dit:

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

VB:

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 · 10 Décembre 2023

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

XL 2013 Inputbox numérique

Appo1985

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Appo1985

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Discussions similaires