[RESOLU] InputBox- limitation saisie 4 chiffres

cathodique · 19 Janvier 2018

Bonsoir🙂,
Je voudrais limiter la saisie ou rejeter tout nombre ne comportant pas 4 chiffres.

VB:

Sub essai_application_inputbox()
  Dim Nb As String
  Nb = Application.InputBox("Un nombre de 4 chiffres, SVP", Type:=1)
  If Nb = Empty Then
    Exit Sub
  Else
    MsgBox "poursuite du code..."
  End If
    'Les types de valeurs peuvent être les suivants :
  '0: Formule
  '1: Nombre
  '2: Texte
  '4: Valeur logique(True Or False)
  '8: Référence de cellule
  '16: Valeur d’erreur
  '64: Tableau de valeurs
 End Sub

En vous remerciant par avance.

Bonne soirée et bon week-end.🙂

zebanx · 19 Janvier 2018

Bonsoir Cathodique,

Tu ne précises pas si tes 4 chiffres sont des nombres > 0 , des entiers...
Peut-être ça si ce sont les restrictions choisies :

If (Nb = Empty Or Nb < 0 Or Nb > 9999) Then

++
zebanx

Staple1600 · 19 Janvier 2018

Bonsoir le fil, le forum

Une autre approche
(PS: Mieux vaut ne pas saisir des lettres sinon...)

VB:

Sub b()
Dim a
a = InputBox("Nombre?")
If Len(a) = 4 And 1000 Mod a = 1000 Then
MsgBox "Saisie OK"
End If
End Sub

cathodique · 19 Janvier 2018

zebanx à dit:
Bonsoir Cathodique,

Tu ne précises pas si tes 4 chiffres sont des nombres > 0 , des entiers...
Peut-être ça si ce sont les restrictions choisies :

If (Nb = Empty Or Nb < 0 Or Nb > 9999) Then

++
zebanx

😀Désolé, omission. C'est des entiers positifs.
Merci beaucoup.

cathodique · 19 Janvier 2018

Staple1600 à dit:
Bonsoir le fil, le forum

Une autre approche
(PS: Mieux vaut ne pas saisir des lettres sinon...)

Merci beaucoup Staple1600. Je pense m'en sortir comme ça.😉
comme ceci c'est OK, même si on saisit des lettres, elles ne seront pas prises en compte.

VB:

Sub b()
Dim a
a = Application.InputBox("Nombre?", Type:=1)
If Len(a) = 4 And 1000 Mod a = 1000 Then
MsgBox "Saisie OK"
End If
End Sub

job75 · 20 Janvier 2018

Bonjour cathodique, zebanx, JM, Nicole, le forum,

Ceci est tout de même très classique :

Code:

Sub Essai()
Dim x$
While Not x Like "####"
    x = InputBox("Entrez 4 chiffres :", , x)
    If x = "" Then Exit Sub
Wend
'suite
End Sub

Bonne journée.

cathodique · 20 Janvier 2018

Zebanx🙂 , Staple1600🙂 , Bisson Nicole🙂 , Job75🙂 , Bonjour le forum

Je vous remercie pour votre aide. C'est très gentil de votre part.

@job75 : "classique", en effet mais je n'y avais pas pensé😳. Je déduis que JM c'est Staple1600?!😀

Bon week-end.

cathodique · 20 Janvier 2018

BISSON Nicole à dit:

Code:

Sub saisieNombre()
  Do
    Nombre = Application.InputBox("Nombre ?", Type:=1, Title:="Saisir 4 chiffres")
  Loop While Len(Nombre) <> 4 And Nombre<>False
  If Nombre = False Then   MsgBox "Annulé"  Else   MsgBox Nombre
End Sub

Permet de tester le bouton Annuler

Bisson

Merci Nicole pour ce code. Cependant, il ne fonctionne pas comme il le faudrait.
Je l'ai testé ainsi, jusqu'à 3 chiffres la 'InputBox' ne se ferme pas, jusque là c'est bon.
Mais même avec 4 chiffres, elle ne se ferme pas.
Pour test, j'ai saisi 5 chiffres, ils sont effacés. Puis 6 chiffres, et là le code plante "erreur d’exécution 6, dépassement de capacité". Voilà, je voulais juste te mettre au courant.🙂

Une dernière question: Quelle est la différence (s'il y en a) entre InputBox et Application.InputBox

Un grand merci.
Bon WE😀

cathodique · 20 Janvier 2018

Re,
j'ai fait mes petites tests et voici ce que j'en ai déduit. voir image
J'espère que ça sera utile.😉😀

Staple1600 · 20 Janvier 2018

Bonjour le fil, le forum

@cathodique
Oui moi c'est JM. C'est même écrit dans ma signature 😉
Quand à la différence en les deux InputBox
Voir l'aide en ligne de VBE (touche F1)

cathodique · 20 Janvier 2018

Staple1600 à dit:
Bonjour le fil, le forum

@cathodique
Oui moi c'est JM. C'est même écrit dans ma signature 😉
Quand à la différence en les deux InputBox
Voir l'aide en ligne de VBE (touche F1)

Désolé, je deviens de plus en plus bigleux😳😛 (pas fais attention à la signature)😀
Quant à l'aide, je ne sais pas pourquoi mais j'ai un souci sur mon pc.
J'ai vérifié sur le pc de mon fils, même version 2007; la sienne est mieux documentée.
Bon week-end.🙂

Staple1600 · 20 Janvier 2018

Re

@cathodique
Tu dis "même version 2007"
Mais ton profil indique Excel 2010

Au final quelle version utilises-tu vraiment?

cathodique · 20 Janvier 2018

Staple1600 à dit:
Re

@cathodique
Tu dis "même version 2007"
Mais ton profil indique Excel 2010

Au final quelle version utilises-tu vraiment?

Re,
@Staple1600
Autant pour moi, je suis vraiment confus😳😳😳. Toutes mes excuses, j'utilise la version 2007.
J'avais mis à jour vers 2010 mais j'ai eu un gros problème sur mon pc.
J'ai effectué une restauration et du coup revenu à 2007.😀
Bon Week-end😉
nb: profil mis à jour

[RESOLU] InputBox- limitation saisie 4 chiffres

cathodique

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Discussions similaires

[RESOLU] InputBox- limitation saisie 4 chiffres

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency