bonjour,
Sur un formulaire j'ai le contole suivant (recupéré sur un forum)
Private Sub TelFixe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(1, "0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
MsgBox ("n'entrez que des chiffres sans espaces")
End If
End Sub
or j'ai le message : bibliotheque introuvable avec le curseur positionné sur Chr
Si vous avez une idée je suis preneur
Cordialement
Alain
Sur un formulaire j'ai le contole suivant (recupéré sur un forum)
Private Sub TelFixe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(1, "0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
MsgBox ("n'entrez que des chiffres sans espaces")
End If
End Sub
or j'ai le message : bibliotheque introuvable avec le curseur positionné sur Chr
Si vous avez une idée je suis preneur
Cordialement
Alain