Setfocus et textbox

bernardrustrel · 8 Novembre 2015

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 · 8 Novembre 2015

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 · 8 Novembre 2015

Re : Setfocus et textbox

bonsoir tous🙂🙂

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

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 · 9 Novembre 2015

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

Setfocus et textbox

bernardrustrel

XLDnaute Occasionnel

Pièces jointes

Tentative

XLDnaute Occasionnel

laetitia90

XLDnaute Barbatruc

bernardrustrel

XLDnaute Occasionnel

Discussions similaires

Setfocus et textbox

bernardrustrel

XLDnaute Occasionnel

Pièces jointes

Tentative

XLDnaute Occasionnel

laetitia90

XLDnaute Barbatruc

bernardrustrel

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency