Repositionnement de curseur
Résolu/Fermé
JCB40
Messages postés
2708
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
18 mars 2023
-
Modifié le 7 nov. 2019 à 16:55
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 - 7 nov. 2019 à 17:24
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 - 7 nov. 2019 à 17:24
A voir également:
- Repositionnement de curseur
- Problème curseur souris incontrolable résolu ✓ - Forum Virus / Sécurité
- Curseur vert word online - Forum Word
- Excel curseur bloqué ✓ - Forum Excel
- Curseur bloqué ✓ - Forum Google Chrome
- Word curseur invisible - Forum Word
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
2708
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
18 mars 2023
460
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
2708
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
18 mars 2023
460
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