Saisir uniquement des chiffres dans 3 inputbox

[ianis]

Bonsoir à tous,

Je souhaiterais avoir votre aide SVP :

J'ai créé 3 inputbox
Dans ces 3 inputbox je souhaiterais que l'on puisse saisir que des chiffres.

Merci de votre aide.

Ci-joint, fichier.

Cordialement

Ianis

 

[sixair]

Re : Saisir uniquement des chiffres dans 3 inputbox

Bonsoir ianis,

tu peux remplacer

NbreVerre = InputBox(msg1, Titre1, défaut1)

par

NbreVerre = Application.InputBox(msg1, Titre1, défaut1, Type:=1)

On peut toujours taper des lettres, mais la validation oblige à mettre un nombre.
Cdlt

 

[ianis]

Re : Saisir uniquement des chiffres dans 3 inputbox

Bonjour Sixair,

Merci beaucoup !

Cordialement.

Ianis