COMBOBOX NUMÉRIQUE, LONGUEUR LIMITE

Signaler
-
 AgentOrange712 -
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/200-combobox-numerique-longueur-limite


Belle source mais un peu compliqué pour moi.
J'avais un problème semblable et je l'ai résolu comme ceci

Private Sub combo1_KeyPress(KeyAscii As Integer)If Len(Trim(combo1.Text)) >5 And KeyAscii <> 8 Then KeyAscii 0 'limite le box à 5 chars et moins. Si l'on entre plus, on efface.
end sub

j'en ai aussi profité pour contrôler les caractères permis dans le box.