Input Box

[HRDChris]

Bonjour le forum. Quelle syntaxe faut il créer pour avoir une boite de dialogue qui me permet de saisir que des chiffres, avec un total de 6 chiffres maxi ? (Ceci pour entrer des numéros de cde sur des étiquettes autocollante type 27854) puis une copie de cette saisie en cellule D16 ?
Si quelqu'un peut m'éclairer

 

[myDearFriend!]

Bonsoir HRDChris,

Peut-être peux-tu essayer quelque chose comme ça :

Dim R As Variant
      R = Application.InputBox('Numéro de code ?', 'Saisie', Type:=1)
      If R = False Then Exit Sub
      If Not R Like String(Application.min(Len(R), 6), '#') Then
            MsgBox 'Saisie non reconnue !'
            Exit Sub
      End If
      Range('D16').Value = R

Sinon, si on veut 'bloquer' la saisie à 6 caractères avant validation, il conviendrait d'utiliser un Userform avec un Textbox...

Cordialement,

 

[Eric C]

Bonsoir le forum
Bonsoir HRDChris

Essaies ceci :

Valeur = InputBox('Saisissez vos 6 chiffres')
If Not Valeur Like '######' then
MsgBox 'Format non valide'
Exit Sub
Else range('B6') = Valeur
End If

Bonne soirée à toutes & à tous

Scuzi signor Didier. Toujours aussi rapide - Même pas le temps de rafraîchir - Bonne soirée -

Message édité par: Eric C, à: 20/02/2006 23:46

 

[CBernardT]

Bonsoir HRDChris,myDearFriend et Eric C,

Un exemple par userform avec quelques sécurités.

Cordialement

Bernard [file name=ModeleFormulaireV1.zip size=24814]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ModeleFormulaireV1.zip[/file]

 

[HRDChris]

Merci a tous de vous pencher sur ma demande. Super ce forum les gens sont très solidaires. Un grand bravo !! Je teste tout çà et je reviens vous dire laquelle des soluces me parait la meilleure.