Setfocus et textbox

[bernardrustrel]

Bonsoir à tous
Dans le fichier joint je voudrais que lorsque la TEXTBOX1 n'a pas été saisie cette dernière passe en VERT et le SETFOCUS reste sur TEXTBOX1
Or pour la couleur je ne rencontre pas de souci mais le SETFOCUS passe toujours au TEXTBOX2, aussi si l'un de vous pouvait éclairer ma lanterne je lui en serai reconnaissant.
Par avance un grand merci cordial.
Bernard

 

[Tentative]

Re : Setfocus et textbox

Bonjour,

Peut-être en ajoutant :

Private Sub TextBox2_Enter()
If TextBox1.BackColor = RGB(0, 255, 0) Then TextBox1.SetFocus
End Sub

Tentative

 

[laetitia90]

Re : Setfocus et textbox

bonsoir tous🙂🙂

c'est cancel qu il faut exploiter
exemple avec ton code

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1) Then
        MsgBox ("Vous devez entrer une valeur numérique, dans la cellule colorée")
            TextBox1.BackColor = RGB(0, 255, 0)
            Cancel = 1
                Else
                    TextBox1.BackColor = RGB(255, 255, 255)
                    TextBox2.SetFocus
    End If
End Sub

 

[bernardrustrel]

Re : Setfocus et textbox

Bonjour
Merci pour cette réponse. Ca marche comme je le voulais, et de plus j'ai encore appris, car je n'avais jamais exploité les propriétés de CANCEl ainsi.
Encore merci.
cordialement
Bernard