Textbox et curseur

Bonjour,

suite a de multiples recherches sur differents forums, je me vois contraint de demander un peu d'aide pour quelquechose qui m'apparait pourtant simple:

lors de la verification du format d'une textbox, je souhaiterias si erreur il y a, que le curseur reste dans la textbox incriminé

donc j'ai tenté ces 2 codes pour le faire mais cela ne fonctionne pas.

Private Sub FréquenceBox_AfterUpdate()
If IsNumeric(FréquenceBox) = True Then
FréquenceBox = Format(FréquenceBox, "0")
Else
MsgBox "Entrez une valeur numérique"
FréquenceBox = ""
Création.ActiveControl=FréquenceBox
End If

ou

Private Sub FréquenceBox_AfterUpdate()
If IsNumeric(FréquenceBox) = True Then
FréquenceBox = Format(FréquenceBox, "0")
Else
MsgBox "Entrez une valeur numérique"
FréquenceBox = ""
FréquenceBox.setfocus
end if 

une idée sur ce qui m'empeche de réussir? le tab index qui prend le dessus peut etre?

Salut,

On peut voir un bout de ton fichier ?

Cordialement.

voila en esperant que vous pourrez m'aider.

Mici.

Salut,

Là j'avoue être un peu bloqué. Si un autre membre ne vient pas à ton aide d'ici 1 jour, indique ce fil comme résolu et ouvre-en un autre en fournissant tout de suite ton fichier et tu recevras très certainement l'aide désirée.

Désolé

Il n'y a pas trop de solution si l'utilisateur décide de zapper purement et simplement.

Le contrôle sur OkButton_Click suffit amplement.

En revanche on pourrait amméliorer avantageusement le contrôle en ajoutant :

Private Sub FréquenceBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case Is < 48, Is > 57
        KeyAscii = 0
    End Select
End Sub

et en supprimant le : FréquenceBox_AfterUpdate()

et en modifiant le :

Private Sub DateDRBox_AfterUpdate()
If Not IsDate(DateDRBox) Then
DateDRBox = ""
MsgBox "Entrez une date sous la forme jj/mm/aaaa"
End If
End Sub

A+

IsDate

ok je savais pas que cette commande existait...mici