Saisi textbox sous condition

[Ilino]

Bonsoir Forum
Dans mon USF j’ai un textbox
Je souhaite avant de faire la saisie dans TextBox exécuter ce 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]

Re : Saisi textbox sous condition

Salut Ilino, le Forum

Pas sur d'avoir compris mais code a tester

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]

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]

Re : Saisi textbox sous condition

Re Ilino, le Fil

Toujours pas sur d'avoir compris

essaye ce nouveau 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]

Re : Saisi textbox sous condition

rE DULL
GRAZIE, ça fonctionne tres bien
A+