Input Box

[Bradvid]

Bonjour,

Est il possoble d'obliger un utilisateur à inscrire plus de X carractères dans un InputBox?

Merci pour vos retour.

 

[dixit]

Re : Input Box

bonjour,
on peut toujours boucler jusqu'à ce que le mini soit respecté en utilisant len et en convertissant préalablement les nombres si nécessaire.
il y a peut-être une autre solution plus élégante.

 

[Pierrot93]

Re : Input Box

Bonsoir Bradvid, Dixit

regarde peut être le code ci dessous :

Sub test()
Dim maval As String
Do
    maval = InputBox("saisissez 4 caractères")
Loop While Len(maval) < 4
End Sub

bonne soirée
@+

 

[Bradvid]

Re : Input Box

Dixit, Pierrot,

Merci pour vos retours mais en fait je demande à l'utilisateur d'indiquer son nom avec le code suivant :

Do
Retour2 = InputBox("Veuillez entrer votre nom et prénom", "Information", "")
Sheets("Date Création Doc").Range("B1") = Retour2
Loop While Retour2 = ""

Le problème c'est que certains petits malins mettent un "Espace" et dans ce cas je n'ai plus de traçabilité......

Comment puis je contourner ce problème.

 

[dixit]

Re : Input Box

re
je ne comprends pas l'espace : on parle d'un nombre mini de caractères c'est donc plus de 1
par ailleurs, si le nom des utilisateurs est connu pourquoi ne pas contrôler avec une liste ? si la liste n'est pas connue, chacun pourra toujours mettre n'importe quoi, le nombre ne changera rien ...

 

[Bradvid]

Re : Input Box

re
je m'explique plus précisémment. Un utilisateur entre "normalement son nom" dans une inputbox. Ensuite je renvoie ce nom dans une cellule afin de garder une traçabilité de la personne qui a créée le document. Certains mettent un " " dans l'input box afin que le nom n'apparaisse pas, tout en pouvant continuer à remplir le document puisque ma boucle revient uniquement si l'inputbox est vide.

Je voudrais donc les contraindre à indiquer leur nom (mais il est vrai comme tu le dis qu'ils peuvent mettrent n'importe quoi).

Si une liste existe comment puis je faire pour faire comparer les deux informations....

Merci encore.

 

[Pierrot93]

Re : Input Box

Re

essaye comme ceci alors :

Sub test()
Dim maval As String, c As Range
Do
   maval = InputBox("saisissez 4 caractères")
   Set c = Range("A1:A3").Find(maval, , xlValues, xlWhole)
Loop While c Is Nothing
End Sub

où Sheets("Feuil1").Range("A1:A3") représente ta feuille / plage où se trouve ta liste, à adapter.

bonne soirée
@+

 

[Bradvid]

Re : Input Box

Bonjour Pierrot,

ça fonctionne super bien!
juste une idée en passant : possible de faire apparaître une liste dans l'Inputbox? Si oui, tu pourrais me dire comment...

Merci encore pour ton aide précieuse.

 

[Pierrot93]

Re : Input Box

Bonjour Bradvid

une liste non, mais une valeur par défaut oui, regarde ci dessous :

Sub test()
Dim maval As String, c As Range
Do
   maval = InputBox("saisissez 4 caractères", , "Utilisateur")
   Set c = Range("A1:A3").Find(maval, , xlValues, xlWhole)
Loop While c Is Nothing
End Sub

sinon il faut passer par un UserForm...

bonne journée
@+