Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Forcer le SETFOCUS

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion herve62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

herve62

XLDnaute Barbatruc
Bonjour
Ce n'est pas la 1ére fois , mais d'habitude le code de la box s'arrête donc j'ai pas le soucis
Ici dans l'exemple le code doit continuer
En fait au début je traite la validité d'une date , si Erreur on efface et remet le curseur dans la box
Mais le SETFOCUS n'a pas l'air d'agir ,
Code: 
Private Sub TextBox1_AfterUpdate()
If Not IsDate(TextBox1.Value) Then
        MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
        TextBox1.Value = ""
        TextBox1.SetFocus
End If
Tr = 0
date_P = CDate(TextBox1.Value)

Donc en cas d'erreur , j'ai le message mais ensuite Erreur sur date_P ,car ne redemande pas une nouvelle date


Quelle est la bonne méthode que je garde une fois pour toute ?
Merci
 
Trier par date Trier par votes
Re : Forcer le SETFOCUS

bonjour hervé,
as tu essayé avec un do...while ?
Code: 
do while dt=false
   If Not IsDate(TextBox1.Value) Then
        MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
        TextBox1.Value = ""
        TextBox1.SetFocus
        dt=false
   else:
        dt=true
   End If
loop
je ne maitrise pas trop encore ce type de fonction mais sur le papier, ça peut répondre à ton besoin
j'ai fais un essais avec un range et ça fonctionne chez moi
à+
 
Vote positif 0 Vote négatif
Re : Forcer le SETFOCUS

et avec un "enter" ?
Code: 
dim txt1 as bolean
Private Sub TextBox1_Enter()
If Not IsDate(TextBox1.Value) Then
        MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
        TextBox1.Value = ""
        TextBox1.SetFocus
Else:
   txt1=true
End If
end sub
la variable "txt1" est à récupérer pour la suite de ton besoin
à+
 
Vote positif 0 Vote négatif
Re : Forcer le SETFOCUS

Bonjour le fil, bonjour le forum

Voilà ce que dis l'aide VBA :
L'événement AfterUpdate se produit après l'événement BeforeUpdate et avant l'événement Exit pour le contrôle actif et avant l'événement Enter pour le contrôle suivant dans l'ordre de tabulation

Donc le focus est toujours dans la TextBox. Comme Bernard, je préconise l'événement BeforUpdate voire même Exit...

[Édition]
Peut-être comme ça :
Code: 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1.Value) Then
        Cancel = True
        MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
        TextBox1.Value = ""
        Exit Sub
End If
Tr = 0
date_P = CDate(TextBox1.Value)
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Forcer le SETFOCUS

SLT Robert
Là avec ton code ça fonctionne très bien, mais bizarre en + de 10ans j'ai jamais utilisé ce type de Sub !!!
Il subsiste un petit hic !!! , si après erreur je décide de quitter ( bouton ANNULER) , le MSGBOX persiste ???

PS: Je change d'hosto , je quitte Lille à 14H pour un Hosto sur St omer ( encore 10 jours) et je devrais aussi avoir WIFI mais je verrai , Si je ne réponds plus vous saurez pourquoi !!
 
Vote positif 0 Vote négatif
Re : Forcer le SETFOCUS

Bonjour le fil, bonjour le forum,

Oui c'est le problème avec l'événement Exit d'une Textbox. Si tu décides de quitter l'Userform et que le focus se trouve dans la Textbox le message s'affiche... Tu peut contourner en rajoutant :
Code: 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox1.Value = "" then Exit Sub
If Not IsDate(TextBox1.Value) Then
        Cancel = True
        MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
        TextBox1.Value = ""
        Exit Sub
End If
Tr = 0
date_P = CDate(TextBox1.Value)
End Sub

Sinon, moi je reste dans le même hosto mais ils me rajoutent une camisole de force...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
932
Zonmé
Z
  • Question Question
XL 2019 Input.Box et format des dates mm/dd ou dd/mm
Réponses
6
Affichages
1 K
job75
  • Question Question
XL 2019 Application.inputBox et Dates
Réponses
3
Affichages
650
job75
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
F
  • Résolu(e)
XL 2019 Besoin d'aide pour reporter une donnée d'un Userform vers un tableau
Réponses
2
Affichages
811
Flnte
F
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
  • Question Question
XL 2010 Setfocus Textbox dans différentes Frames
Réponses
2
Affichages
1 K
cp4
  • Question Question
Autres Interrompu le code
Réponses
2
Affichages
770
chaelie2015
V
  • Question Question
XL 2016 [RESOLU] Traduction code VBA (code trouvé sur internet je ne comprend rien)
2
Réponses
17
Affichages
3 K
VBgalère
V
  • Question Question
XL 2016 rafraîchir écran
Réponses
0
Affichages
1 K
KTM
E
  • Résolu(e)
Microsoft 365 Problème Débogage VBA
2
Réponses
18
Affichages
3 K
eric72
E
M
  • Question Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
2 K
MONADESIGN82
M
B
  • Question Question
XL 2016 Mailing Type à différents groupe de personnes
Réponses
1
Affichages
905
Bullrot
B
L
  • Question Question
XL 2016 Format Date "##/##/####" dans TextBox
3 4 5
Réponses
60
Affichages
16 K
patricktoulon
L
  • Question Question
XL 2016 format numérique textbox VBA
Réponses
5
Affichages
4 K
patricktoulon
V
  • Résolu(e)
XL 2016 Format de date sous vba
Réponses
3
Affichages
2 K
vanin
V
  • Question Question
XL 2019 Calendrier pour macro...
2
Réponses
26
Affichages
4 K
patricktoulon
B
  • Résolu(e)
XL 2019 Erreur de compilation
Réponses
6
Affichages
1 K
Gégé-45550
T
  • Résolu(e)
XL 2019 Format de date dans ListBox US (MM/JJ/AAAA) à changer en FR (JJ/MM/AAAA).
3 4 5
Réponses
71
Affichages
9 K
job75
L
  • Question Question
XL 2019 Problème de boucle ou de variables
Réponses
1
Affichages
1 K
Lucien31
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…