Bonjour,
J'ai un USF avec des Textbox qui doivent être numérique.
Dans le Sub TbxY_Change j'ai mis :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub TbxY_Change()
If Not IsNumeric(TbxY) Then
    MsgBox "Veuillez saisir des chiffres, svp"
    TbxY = ""
    TbxY.SetFocus
End If
End Sub
et si dans la saisie je mets des lettres, le message apparait 2 fois consécutivement.
dans le bouton Ok j'ai mis :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub CommandButton1_Click()
    Range("A1") = TbxY.Value
Unload Me
End Sub
sur tous les sites que j'ai fait, je vois le même code...
Quelqu'un peut-il m'aider svp ?
Merci