saisie dans combobox s'arrête à chaque chiffre ?

[sirbeetee]

Bonjour groupe

je suis à la construction d'un fichier avec quelques formulaires

mon formulaire nommé "UF_modifier_un_commis" s'ouvre sur un combobox, qui est en liens avec un page identifié
cette plage son des numéros d'employé. si par erreur j'entre une lettre, je tombe en erreur d'exévution !380! valeur de propriété non valide

vous voyez où est mon problème ?

 

[Lone-wolf]

Bonsoir sirbeetee

Voici le code pour obliger la saisie numérique.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
           If InStr("1,2,3,4,5,6,7,8,9,0", Chr(KeyAscii)) = 0 Then
                    KeyAscii = 0
                   MsgBox "Veuillez saisir un nombre.", , "AVVERTISSEMENT"
         End If
End Sub

 

[Jacky67]

Bonjour groupe

je suis à la construction d'un fichier avec quelques formulaires

mon formulaire nommé "UF_modifier_un_commis" s'ouvre sur un combobox, qui est en liens avec un page identifié
cette plage son des numéros d'employé. si par erreur j'entre une lettre, je tombe en erreur d'exévution !380! valeur de propriété non valide

vous voyez où est mon problème ?

Bonsoir,

Mettre la propriété "style " de la combobox sur ==> 2-fmStyleDropDownList
Il y aura obligation de choisir dans la liste.

 

[sirbeetee]

Bonsoir,

Mettre la propriété "style " de la combobox sur ==> 2-fmStyleDropDownList
Il y aura obligation de choisir dans la liste.

merci ! j'aime bien cette solution !