Problème de setfocus

[blord]

Bonjour à tous,

J'utilise le code suivant pour valider une saisie dans un textbox :

Private Sub TBM5JCDN_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Valide si le contenu du textbox est une valeur numérique
If TBM5JCDN.Value <> "" Then
CheckBoxModifications.Value = True
If Not IsNumeric(TBM5JCDN.Value) Then
MsgBox "Vous devez entrer une valeur numérique !", vbOKOnly + vbInformation
TBM5JCDN.Value = ""
Cancel = True
Else
End If
End If
End Sub

J'aimerais qu'après avoir répondu "OK" dans le msgbox, le focus se remette sur "TBM5JCDN"...

J'ai essayé quelques trucs mais rien ne fonctionne !

Merci de votre aide !

Blord

 

[jp14]

Re : Problème de setfocus

Bonsoir

A essayer

TBM5JCDN.SetFocus
TBM5JCDN étant un combobox ou autre
JP

 

[Luki]

Re : Problème de setfocus

salut,

 Private Sub TBM5JCDN_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Valide si le contenu du textbox est une valeur numérique
    If TBM5JCDN.Value <> "" Then
        CheckBoxModifications.Value = True
        If Not IsNumeric(TBM5JCDN.Value) Then
        MsgBox "Vous devez entrer une valeur numérique !", vbOKOnly + vbInformation
        TBM5JCDN.Value = ""
[COLOR=Red][B]TBM5JCDN.SetFocus[/B][/COLOR]

        Cancel = True
        Else
        End If
    End If
End Sub

Testé chez moi, ça marche

 

[blord]

Re : Problème de setfocus

Bonjour JP, Bonjour Luc,

Merci pour vos réponses...

J'avais déjà testé le setocus...

J'ai finalement découvert pourquoi cela ne fonctionnait pas...

J'ouvrais mon UserForm avec UserFormXYZ. show 0....

En enlevant le 0 (mode modal je crois) celà fonctionne très bien...

Merci !