Bonsoir tout le monde,
Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer
comment obliger dans un userform, la saisie d'une date valide dans un TextBox.
Je suppose qu'il faut écrire un petit code VBA, mais lequel ?
Merci de vo(s) réponses.
Jeff
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonsoir jfv,
Bonsoir tout le monde, Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer comment obliger dans un userform, la saisie d'une date valide dans un TextBox. Je suppose qu'il faut écrire un petit code VBA, mais lequel ? Merci de vo(s) réponses. Jeff
Par exemple :
If Not IsDate(Me.TextBox1.Text) Then MsgBox "Date invalide" Me.TextBox1.SetFocus End If
-- Cordialement,
Jacques.
Bonsoir jfv,
Bonsoir tout le monde,
Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer
comment obliger dans un userform, la saisie d'une date valide dans un TextBox.
Je suppose qu'il faut écrire un petit code VBA, mais lequel ?
Merci de vo(s) réponses.
Jeff
Par exemple :
If Not IsDate(Me.TextBox1.Text) Then
MsgBox "Date invalide"
Me.TextBox1.SetFocus
End If
Bonsoir tout le monde, Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer comment obliger dans un userform, la saisie d'une date valide dans un TextBox. Je suppose qu'il faut écrire un petit code VBA, mais lequel ? Merci de vo(s) réponses. Jeff
Par exemple :
If Not IsDate(Me.TextBox1.Text) Then MsgBox "Date invalide" Me.TextBox1.SetFocus End If
-- Cordialement,
Jacques.
jfv
Bonsoir Jacques,
Votre macro est parfaite. Merci bcp de votre aide. Cordialement.
Bonsoir jfv,
Bonsoir tout le monde, Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer comment obliger dans un userform, la saisie d'une date valide dans un TextBox. Je suppose qu'il faut écrire un petit code VBA, mais lequel ? Merci de vo(s) réponses. Jeff
Par exemple :
If Not IsDate(Me.TextBox1.Text) Then MsgBox "Date invalide" Me.TextBox1.SetFocus End If
-- Cordialement,
Jacques.
Bonsoir Jacques,
Votre macro est parfaite.
Merci bcp de votre aide.
Cordialement.
Bonsoir jfv,
Bonsoir tout le monde,
Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer
comment obliger dans un userform, la saisie d'une date valide dans un TextBox.
Je suppose qu'il faut écrire un petit code VBA, mais lequel ?
Merci de vo(s) réponses.
Jeff
Par exemple :
If Not IsDate(Me.TextBox1.Text) Then
MsgBox "Date invalide"
Me.TextBox1.SetFocus
End If
Votre macro est parfaite. Merci bcp de votre aide. Cordialement.
Bonsoir jfv,
Bonsoir tout le monde, Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer comment obliger dans un userform, la saisie d'une date valide dans un TextBox. Je suppose qu'il faut écrire un petit code VBA, mais lequel ? Merci de vo(s) réponses. Jeff
Par exemple :
If Not IsDate(Me.TextBox1.Text) Then MsgBox "Date invalide" Me.TextBox1.SetFocus End If
-- Cordialement,
Jacques.
Anacoluthe
Bonjour !
'jfv' nous a écrit ...
Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer comment obliger dans un userform, la saisie d'une date valide dans un TextBox. Je suppose qu'il faut écrire un petit code VBA, mais lequel ?
Vous trouvez que c'est une question bête ???? Ben alors ... Dans le code de votre textbox cherchez l'événement Exit et placez y un petit truc dans le genre :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(TextBox1.Text) Then MsgBox "date non valide!" End Sub
Ça conviendrait ou faut faire plus bête ? :-D )))
Anacoluthe « Celui qui pose une question risque cinq minutes d'avoir l'air bête. Celui qui ne pose pas de question restera bête toute sa vie. » - Proverbe chinois
Bonjour !
'jfv' nous a écrit ...
Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer
comment obliger dans un userform, la saisie d'une date valide dans un TextBox.
Je suppose qu'il faut écrire un petit code VBA, mais lequel ?
Vous trouvez que c'est une question bête ???? Ben alors ...
Dans le code de votre textbox cherchez l'événement Exit
et placez y un petit truc dans le genre :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1.Text) Then MsgBox "date non valide!"
End Sub
Ça conviendrait ou faut faire plus bête ? :-D )))
Anacoluthe
« Celui qui pose une question risque cinq minutes d'avoir l'air bête.
Celui qui ne pose pas de question restera bête toute sa vie. »
- Proverbe chinois
Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer comment obliger dans un userform, la saisie d'une date valide dans un TextBox. Je suppose qu'il faut écrire un petit code VBA, mais lequel ?
Vous trouvez que c'est une question bête ???? Ben alors ... Dans le code de votre textbox cherchez l'événement Exit et placez y un petit truc dans le genre :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(TextBox1.Text) Then MsgBox "date non valide!" End Sub
Ça conviendrait ou faut faire plus bête ? :-D )))
Anacoluthe « Celui qui pose une question risque cinq minutes d'avoir l'air bête. Celui qui ne pose pas de question restera bête toute sa vie. » - Proverbe chinois
Jacques93
Bonsoir Anacoluthe
Bonjour !
'jfv' nous a écrit ...
Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer comment obliger dans un userform, la saisie d'une date valide dans un TextBox. Je suppose qu'il faut écrire un petit code VBA, mais lequel ?
Vous trouvez que c'est une question bête ???? Ben alors ... Dans le code de votre textbox cherchez l'événement Exit et placez y un petit truc dans le genre :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(TextBox1.Text) Then MsgBox "date non valide!" End Sub
Ça conviendrait ou faut faire plus bête ? :-D )))
Anacoluthe « Celui qui pose une question risque cinq minutes d'avoir l'air bête. Celui qui ne pose pas de question restera bête toute sa vie. » - Proverbe chinois
Préambule : mon correcteur orthographique est en panne.
Sujet : Vaut-il mieux contrôler la validité des données champs à champs ou lors de la validation d'un UserForm, via un CommandButton par exemple ?
Je ne veux pas rester bête toute ma vie :-D
-- Cordialement,
Jacques.
Bonsoir Anacoluthe
Bonjour !
'jfv' nous a écrit ...
Je suis un peu penaud de poser une question bêta, mais qui peux
m'indiquer comment obliger dans un userform, la saisie d'une date
valide dans un TextBox.
Je suppose qu'il faut écrire un petit code VBA, mais lequel ?
Vous trouvez que c'est une question bête ???? Ben alors ...
Dans le code de votre textbox cherchez l'événement Exit
et placez y un petit truc dans le genre :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1.Text) Then MsgBox "date non valide!"
End Sub
Ça conviendrait ou faut faire plus bête ? :-D )))
Anacoluthe
« Celui qui pose une question risque cinq minutes d'avoir l'air bête.
Celui qui ne pose pas de question restera bête toute sa vie. »
- Proverbe chinois
Préambule :
mon correcteur orthographique est en panne.
Sujet :
Vaut-il mieux contrôler la validité des données champs à champs ou
lors de la validation d'un UserForm, via un CommandButton par exemple ?
Je suis un peu penaud de poser une question bêta, mais qui peux m'indiquer comment obliger dans un userform, la saisie d'une date valide dans un TextBox. Je suppose qu'il faut écrire un petit code VBA, mais lequel ?
Vous trouvez que c'est une question bête ???? Ben alors ... Dans le code de votre textbox cherchez l'événement Exit et placez y un petit truc dans le genre :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(TextBox1.Text) Then MsgBox "date non valide!" End Sub
Ça conviendrait ou faut faire plus bête ? :-D )))
Anacoluthe « Celui qui pose une question risque cinq minutes d'avoir l'air bête. Celui qui ne pose pas de question restera bête toute sa vie. » - Proverbe chinois
Préambule : mon correcteur orthographique est en panne.
Sujet : Vaut-il mieux contrôler la validité des données champs à champs ou lors de la validation d'un UserForm, via un CommandButton par exemple ?
Je ne veux pas rester bête toute ma vie :-D
-- Cordialement,
Jacques.
Anacoluthe
Bonjour !
'Jacques93' nous a écrit ...
Vaut-il mieux contrôler la validité des données champs à champs ou lors de la validation d'un UserForm, via un CommandButton par exemple ? Je ne veux pas rester bête toute ma vie :-D
Oupss pardon, ma réponse à 'jfv' est partie avant d'avoir lu la tienne ! (on a donné pratiquement le même code ;-) )
Concernant le moment opportun de la validation, je pense que ça dépend de la feuille et de son usage ! Les deux peuvent se défendre. L'important est de se mettre à la place de l'utilisateur : c'est toujours très très énervant de remplir des petites cases et de se voir houspillé 'Donnée non valide' !!!
A+
Anacoluthe « Celui qui pose une question risque cinq minutes d'avoir l'air bête. Celui qui ne pose pas de question restera bête toute sa vie. » - Proverbe chinois
Bonjour !
'Jacques93' nous a écrit ...
Vaut-il mieux contrôler la validité des données champs à champs ou
lors de la validation d'un UserForm, via un CommandButton par exemple ?
Je ne veux pas rester bête toute ma vie :-D
Oupss pardon, ma réponse à 'jfv' est partie avant d'avoir lu la tienne !
(on a donné pratiquement le même code ;-) )
Concernant le moment opportun de la validation, je pense que ça
dépend de la feuille et de son usage ! Les deux peuvent se défendre.
L'important est de se mettre à la place de l'utilisateur :
c'est toujours très très énervant de remplir des petites cases
et de se voir houspillé 'Donnée non valide' !!!
A+
Anacoluthe
« Celui qui pose une question risque cinq minutes d'avoir l'air bête.
Celui qui ne pose pas de question restera bête toute sa vie. »
- Proverbe chinois
Vaut-il mieux contrôler la validité des données champs à champs ou lors de la validation d'un UserForm, via un CommandButton par exemple ? Je ne veux pas rester bête toute ma vie :-D
Oupss pardon, ma réponse à 'jfv' est partie avant d'avoir lu la tienne ! (on a donné pratiquement le même code ;-) )
Concernant le moment opportun de la validation, je pense que ça dépend de la feuille et de son usage ! Les deux peuvent se défendre. L'important est de se mettre à la place de l'utilisateur : c'est toujours très très énervant de remplir des petites cases et de se voir houspillé 'Donnée non valide' !!!
A+
Anacoluthe « Celui qui pose une question risque cinq minutes d'avoir l'air bête. Celui qui ne pose pas de question restera bête toute sa vie. » - Proverbe chinois
ClémentMarcotte
Bonjour,
Concernant le moment opportun de la validation, je pense que ça dépend de la feuille et de son usage ! Les deux peuvent se défendre. L'important est de se mettre à la place de l'utilisateur : c'est toujours très très énervant de remplir des petites cases et de se voir houspillé 'Donnée non valide' !!!
Cependant, cdate() va laisser "passer" des choses du genre 1-15-2005 parce que c'est une "date américaine" valide. (15 janvier 2005).
La méthode la plus sure, pour garantir la validité d'une date, et des calculs subséquents, semble être une saisie en 3 parties distinctes, suivie de l'utilisation de DateSerial(), qui va ramener la date sous "son numéro" dans VBA.
Bonjour,
Concernant le moment opportun de la validation, je pense que ça
dépend de la feuille et de son usage ! Les deux peuvent se défendre.
L'important est de se mettre à la place de l'utilisateur :
c'est toujours très très énervant de remplir des petites cases
et de se voir houspillé 'Donnée non valide' !!!
Cependant, cdate() va laisser "passer" des choses du genre 1-15-2005 parce
que c'est une "date américaine" valide. (15 janvier 2005).
La méthode la plus sure, pour garantir la validité d'une date, et des
calculs subséquents, semble être une saisie en 3 parties distinctes, suivie
de l'utilisation de DateSerial(), qui va ramener la date sous "son numéro"
dans VBA.
Concernant le moment opportun de la validation, je pense que ça dépend de la feuille et de son usage ! Les deux peuvent se défendre. L'important est de se mettre à la place de l'utilisateur : c'est toujours très très énervant de remplir des petites cases et de se voir houspillé 'Donnée non valide' !!!
Cependant, cdate() va laisser "passer" des choses du genre 1-15-2005 parce que c'est une "date américaine" valide. (15 janvier 2005).
La méthode la plus sure, pour garantir la validité d'une date, et des calculs subséquents, semble être une saisie en 3 parties distinctes, suivie de l'utilisation de DateSerial(), qui va ramener la date sous "son numéro" dans VBA.
Anacoluthe
Bonjour !
'ClémentMarcotte' nous a écrit ...
Cependant, cdate() va laisser "passer" des choses du genre 1-15-2005
Oui et IsDate() aussi évidemment :-(
D'où l'intérêt d'utiliser autre chose qu'une Textbox (des listes déroulantes, un contrôle calendrier etc.) pour saisir une date... ;-)
A+ A~
Bonjour !
'ClémentMarcotte' nous a écrit ...
Cependant, cdate() va laisser "passer" des choses du genre 1-15-2005
Oui et IsDate() aussi évidemment :-(
D'où l'intérêt d'utiliser autre chose qu'une Textbox (des listes
déroulantes, un contrôle calendrier etc.) pour saisir une date... ;-)