Repositionnement de curseur

Résolu/Fermé

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - Modifié le 7 nov. 2019 à 16:55
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 7 nov. 2019 à 17:24

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

A voir également:

Google doc curseur blanc
Dns google - Guide
Google maps satellite - Guide
Google earth - Télécharger - 3D
.Doc - Guide
Créer un compte google - Guide

3 réponses

Réponse 1 / 3

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
7 nov. 2019 à 17:07

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

Réponse 2 / 3

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
7 nov. 2019 à 17:22

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.

Réponse 3 / 3

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
7 nov. 2019 à 17:24

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

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

Prélèvement Google Ireland Limited

Discussions similaires

Newsletters