Repositionnement de curseur [Résolu]

Signaler
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
-
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
-
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


3 réponses

Messages postés
1402
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
13 septembre 2020
141
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



Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
339
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.
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
339
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