Saisi textbox sous condition

Ilino · 2 Septembre 2014

Bonsoir Forum
Dans mon USF j’ai un textbox
Je souhaite avant de faire la saisie dans TextBox exécuter ce code

Code:

Application.GoTo Range("A5"), True
Range("E7,E9,E11,E13,E15,E17,E19,E21,E23,E25").ClearContents

Une fois le code est exécuté alors afficher un message "toutes les cellules sont vidées"
et après je donne la main de saisir a nouveau dans TextBox.
A chaque ouverture de USF je dois exiger cette procédure
A+

Dull · 2 Septembre 2014

Re : Saisi textbox sous condition

Salut Ilino, le Forum

Pas sur d'avoir compris mais code a tester

Code:

Private Sub CommandButton1_Click()
Application.GoTo Range("A5"), True
Range("E7,E9,E11,E13,E15,E17,E19,E21,E23,E25").ClearContents
MsgBox "toutes les cellules sont vidées"
    With Me.TextBox1
        .Enabled = True
        .SetFocus
    End With
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1.Enabled = False
End Sub

Ilino · 2 Septembre 2014

Re : Saisi textbox sous condition

Salut DULL, Forum
merci pour la réponse,en effet je souhaite executer le code sans cliquer sur le bouton vider (peut etre je vais le supprimer du USF), sinon est ce qu' il y a une possibilité une fois j'ai terminer la saisie avant de valider ,il faut faire le vidage apres valider?
GRAZIE
A+
Edit: sinon pour que l'utilisateur suivre la procedure masquer le bouton "Valider" avant la saisi, une fois il a vider afficher le bouton"valider" et masquer le bouton"Vider"
A+

Dull · 2 Septembre 2014

Re : Saisi textbox sous condition

Re Ilino, le Fil

Toujours pas sur d'avoir compris

essaye ce nouveau code

Code:

Private Sub CommandButton1_Click()
Application.GoTo Range("A5"), True
Range("E7,E9,E11,E13,E15,E17,E19,E21,E23,E25").ClearContents
Me.CommandButton2.Enabled = True
MsgBox "toutes les cellules sont vidées"
    With Me.TextBox1
        .Enabled = True
        .SetFocus
    End With
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1.Enabled = False
Me.CommandButton2.Enabled = False
End Sub

Bonne journée

Ilino · 2 Septembre 2014

Re : Saisi textbox sous condition

rE DULL
GRAZIE, ça fonctionne tres bien
A+

Saisi textbox sous condition

Ilino

XLDnaute Barbatruc

Pièces jointes

Dull

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Dull

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Discussions similaires

Saisi textbox sous condition

Ilino

XLDnaute Barbatruc

Pièces jointes

Dull

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Dull

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency