Pour yannch (combobox numérique)

Soyez le premier à donner votre avis sur cette source.

Vue 3 711 fois - Téléchargée 263 fois

Description

Exemple pour ne validé que des valeurs numérique sur un ComboBox (pour yannch)

Source / Exemple :


Private Sub cmbExemple_KeyPress(KeyAscii As Integer)
' Déclaration des variables
    Dim lngI    As Long

'
    If KeyAscii = 13 Then
        For lngI = 1 To Len(cmbExemple.Text)
            If InStr(" 0123456789", Mid(cmbExemple.Text, lngI, 1)) = 0 Then
                MsgBox "Non ce n'est pas des chiffres..."
                cmbExemple.Text = ""
                Exit Sub
            End If
        Next lngI

        cmbExemple.AddItem cmbExemple.Text
        cmbExemple.Text = ""
        MsgBox "Ok les chiffres sont ajouté..."
    End If

End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

cs_Zeroc00l
Messages postés
370
Date d'inscription
lundi 1 avril 2002
Statut
Membre
Dernière intervention
11 février 2010
-
Y'a plus simple non ? :

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 And KeyAscii <> 8 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.