je souhaiterais qu'un TextBox conserve le focus tant que la valeur saisie
n'est pas correcte mais la propriété .SetFocus ne fonctionne pas.
ex: Private Sub TextBox1_AfterUpdate()
If TextBox1.Value > 10 Then
TextBox1.SetFocus
End If
End Sub
j'ai même essayé avec TextBox1_Exit et TextBox1_Change sans succès...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
L'astuce que j'ai trouvée pour contourner ce problème : sur sortie de textBox1 aller sur TextBox2 ou autre et sur entrée de ce dernier faire le test et le renvoi.
Camille
-----Message d'origine----- Bonjour,
je souhaiterais qu'un TextBox conserve le focus tant que la valeur saisie
n'est pas correcte mais la propriété .SetFocus ne fonctionne pas.
ex: Private Sub TextBox1_AfterUpdate() If TextBox1.Value > 10 Then TextBox1.SetFocus End If End Sub j'ai même essayé avec TextBox1_Exit et TextBox1_Change sans succès...
Merci d'avance
D.
.
Bonjour,
L'astuce que j'ai trouvée pour contourner ce problème :
sur sortie de textBox1 aller sur TextBox2 ou autre et sur
entrée de ce dernier faire le test et le renvoi.
Camille
-----Message d'origine-----
Bonjour,
je souhaiterais qu'un TextBox conserve le focus tant que
la valeur saisie
n'est pas correcte mais la propriété .SetFocus ne
fonctionne pas.
ex: Private Sub TextBox1_AfterUpdate()
If TextBox1.Value > 10 Then
TextBox1.SetFocus
End If
End Sub
j'ai même essayé avec TextBox1_Exit et TextBox1_Change
sans succès...
L'astuce que j'ai trouvée pour contourner ce problème : sur sortie de textBox1 aller sur TextBox2 ou autre et sur entrée de ce dernier faire le test et le renvoi.
Camille
-----Message d'origine----- Bonjour,
je souhaiterais qu'un TextBox conserve le focus tant que la valeur saisie
n'est pas correcte mais la propriété .SetFocus ne fonctionne pas.
ex: Private Sub TextBox1_AfterUpdate() If TextBox1.Value > 10 Then TextBox1.SetFocus End If End Sub j'ai même essayé avec TextBox1_Exit et TextBox1_Change sans succès...
Merci d'avance
D.
.
Alain CROS
Bonjour.
Peut être comme ça.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With ActiveControl If IsNumeric(.Value) Then If Val(.Value) < 10 Then Exit Sub End If End With Cancel = True End Sub'AC
Alain CROS.
"David D." a écrit dans le message de news: #
Bonjour,
je souhaiterais qu'un TextBox conserve le focus tant que la valeur saisie n'est pas correcte mais la propriété .SetFocus ne fonctionne pas.
ex: Private Sub TextBox1_AfterUpdate() If TextBox1.Value > 10 Then TextBox1.SetFocus End If End Sub j'ai même essayé avec TextBox1_Exit et TextBox1_Change sans succès...
Merci d'avance
D.
Bonjour.
Peut être comme ça.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With ActiveControl
If IsNumeric(.Value) Then
If Val(.Value) < 10 Then Exit Sub
End If
End With
Cancel = True
End Sub'AC
Alain CROS.
"David D." <jules.delattre@laposte.net> a écrit dans le message de news: #yVNQMJ8DHA.3804@tk2msftngp13.phx.gbl...
Bonjour,
je souhaiterais qu'un TextBox conserve le focus tant que la valeur saisie
n'est pas correcte mais la propriété .SetFocus ne fonctionne pas.
ex: Private Sub TextBox1_AfterUpdate()
If TextBox1.Value > 10 Then
TextBox1.SetFocus
End If
End Sub
j'ai même essayé avec TextBox1_Exit et TextBox1_Change sans succès...
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With ActiveControl If IsNumeric(.Value) Then If Val(.Value) < 10 Then Exit Sub End If End With Cancel = True End Sub'AC
Alain CROS.
"David D." a écrit dans le message de news: #
Bonjour,
je souhaiterais qu'un TextBox conserve le focus tant que la valeur saisie n'est pas correcte mais la propriété .SetFocus ne fonctionne pas.
ex: Private Sub TextBox1_AfterUpdate() If TextBox1.Value > 10 Then TextBox1.SetFocus End If End Sub j'ai même essayé avec TextBox1_Exit et TextBox1_Change sans succès...
