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
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
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
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
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 :
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
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
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.
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.
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
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
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