Pour yannch (combobox numérique)

Soyez le premier à donner votre avis sur cette source.

Vue 3 680 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

Commentaires

Commenter la réponse de cs_Zeroc00l

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.