OVH Cloud OVH Cloud

Seulement des chiffres entier dans un combo

2 réponses
Avatar
Florian
Bonjour,
je souhaite que l'on ne puisse pas saisir autre chose que des chiffres
entier
Merci beaucoup
Flo riant

Private Sub UserForm_Initialize()
For i = 1 To 12 'Step 1
Cbx_choix.AddItem i
Next
Cbx_choix.Text = Cbx_choix.List(4)

2 réponses

Avatar
LeSteph
Bonjour Florian,
(A adapter à ton UF)
exemple avec un inputbox

Dim monchoix As Integer
resaisie:
On Error GoTo resaisie
monchoix = InputBox("entrer un entier")

MsgBox monchoix

--
LeSteph

"Florian" a écrit dans le message de
news:%
Bonjour,
je souhaite que l'on ne puisse pas saisir autre chose que des chiffres
entier
Merci beaucoup
Flo riant

Private Sub UserForm_Initialize()
For i = 1 To 12 'Step 1
Cbx_choix.AddItem i
Next
Cbx_choix.Text = Cbx_choix.List(4)




Avatar
Florian
Merci Lesteph, j'essaie d'adapter
Flo riant

"LeSteph" a écrit dans le message de
news:40d545d7$0$11322$
Bonjour Florian,
(A adapter à ton UF)
exemple avec un inputbox

Dim monchoix As Integer
resaisie:
On Error GoTo resaisie
monchoix = InputBox("entrer un entier")

MsgBox monchoix

--
LeSteph

"Florian" a écrit dans le message de
news:%
Bonjour,
je souhaite que l'on ne puisse pas saisir autre chose que des chiffres
entier
Merci beaucoup
Flo riant

Private Sub UserForm_Initialize()
For i = 1 To 12 'Step 1
Cbx_choix.AddItem i
Next
Cbx_choix.Text = Cbx_choix.List(4)