Repositionnement de curseur [Résolu]

Messages postés
1234
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
7 novembre 2019
-
Bonjour,
J'ai une UserForm avec des textebox ,j'aimerais savoir ce que je dois rajouter au coda vba ci-joint de
façon que quand je clique sur le bouton ajouter le curseur se replace sur TXTDATE.

Private Sub CmdAjouter_Click()
'on vérifie que les champs sont bien remplis
If Cmb_Nom.Text = "" Then
MsgBox "Veuillez renseigner le nom", vbCritical, "champs manquants"
Cmb_Nom.SetFocus
Exit Sub
End If
Nlig = F01.Range("B" & Rows.Count).End(xlUp).Row + 1
' on remplit les données dans le tableau
F01.Range("B" & Nlig) = Format(CDate(TxtDate), "mm/dd")
F01.Range("C" & Nlig).Value = UCase(Cmb_Nom.Text)
F01.Range("D" & Nlig).Value = UCase(Cmb_Paiement.Text)
F01.Range("E" & Nlig).Value = TxtEntrée.Text
F01.Range("F" & Nlig).Value = TxtSortie.Text
F01.Range("M" & Nlig).Value = UCase(TxtCommentaire.Text)

TxtDate.Text = ""
Cmb_Nom.Text = ""
Cmb_Paiement.Text = ""
TxtEntrée.Text = ""
TxtSortie.Text = ""
TxtCommentaire.Text = ""

End Sub
Merci pour votre aide



Configuration: Windows / Firefox 70.0


Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
4598
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
7 novembre 2019
118
1
Merci
Bonsoir JCB, bonjour le forum,

Bizarre, tu as déjà une ligne de code qui fait ça pour un autre contrôle !?... Pourquoi cette question ?

Rajoute à la fin, avant le End Sub :
TxtDate.SetFocus



Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 71966 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ThauTheme
Messages postés
1234
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
7 novembre 2019
154
0
Merci
Bonjour ThauTheme
Merci pour ta réponse
C'est tout simplement pour supprimer le retour dans la Cmb Nom puisque la TxtDate et placée au dessus dans l'userform.
Commenter la réponse de JCB40
Messages postés
1234
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
7 novembre 2019
154
0
Merci
Cette partie de code
Private Sub CmdAjouter_Click()
'on vérifie que les champs sont bien remplis
If Cmb_Nom.Text = "" Then
MsgBox "Veuillez renseigner le nom", vbCritical, "champs manquants"
Cmb_Nom.SetFocus
Exit Sub


Je l'ai remplacé par cela
Private Sub CmdAjouter_Click()
'on vérifie que les champs sont bien remplis
If TxtDate.Text = "" Then
TxtDate.SetFocus
Exit Sub
Commenter la réponse de JCB40