Input Box

myDearFriend!

XLDnaute Barbatruc

• 20 Février 2006

• #2

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

Cliquez pour agrandir...

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

Cordialement,

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 20 Février 2006

• #3

Bonsoir le forum
Bonsoir HRDChris

Essaies ceci :

Code:

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

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 20 Février 2006

• #4

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]

 

Pièces jointes

• ModeleFormulaireV1.zip

  24.2 KB · Affichages: 32

Vote positif 0 Vote négatif

H

HRDChris

XLDnaute Nouveau

• 21 Février 2006

• #5

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.

 

Vote positif 0 Vote négatif