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
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.