A l'initialisation d'un userform, je voudrais que le textbox1 affiche la
date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize()
Calendar1.Value = Date
TextBox1.Value = Calendar1.Value - 1
ouTextbox1.Value= Date -1
ou Textbox1.Value= CDate(today)-1
ou Textbox1.value= Calendar1.Day -1
etc...
La réponse est sûrement simple, mais je ne la trouve pas...
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
michdenis
Bonjour Denys,
Ceci devrait être suffisant ...
Private Sub UserForm_Initialize() Textbox1.Value= Date -1 Calendar1.Value = Date End Sub
et tu utilises la fonction format(date-1, "mm/dd/yy") pour le format américain ...
Salutations!
"Denys" a écrit dans le message de news: Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize() Calendar1.Value = Date TextBox1.Value = Calendar1.Value - 1 ouTextbox1.Value= Date -1 ou Textbox1.Value= CDate(today)-1 ou Textbox1.value= Calendar1.Day -1 etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Pourriez-vous m'éclairer?
Merci
Denys
Bonjour Denys,
Ceci devrait être suffisant ...
Private Sub UserForm_Initialize()
Textbox1.Value= Date -1
Calendar1.Value = Date
End Sub
et tu utilises la fonction format(date-1, "mm/dd/yy")
pour le format américain ...
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: 00CC116B-46AA-40C0-9149-E5C03C933FD7@microsoft.com...
Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la
date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize()
Calendar1.Value = Date
TextBox1.Value = Calendar1.Value - 1
ouTextbox1.Value= Date -1
ou Textbox1.Value= CDate(today)-1
ou Textbox1.value= Calendar1.Day -1
etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Private Sub UserForm_Initialize() Textbox1.Value= Date -1 Calendar1.Value = Date End Sub
et tu utilises la fonction format(date-1, "mm/dd/yy") pour le format américain ...
Salutations!
"Denys" a écrit dans le message de news: Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize() Calendar1.Value = Date TextBox1.Value = Calendar1.Value - 1 ouTextbox1.Value= Date -1 ou Textbox1.Value= CDate(today)-1 ou Textbox1.value= Calendar1.Day -1 etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Pourriez-vous m'éclairer?
Merci
Denys
Philippe
Pour information, ce code marche :
Private Sub UserForm_Activate() Dim toto As Date toto = Date - 1 Me.TextBox1.Text = toto End Sub
Mais c'est quoi ce Calendar1.value : un activex Calendar ? est-il lié ? c'est peut-être ça le problème.
Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize() Calendar1.Value = Date TextBox1.Value = Calendar1.Value - 1 ouTextbox1.Value= Date -1 ou Textbox1.Value= CDate(today)-1 ou Textbox1.value= Calendar1.Day -1 etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Pourriez-vous m'éclairer?
Merci
Denys
Pour information, ce code marche :
Private Sub UserForm_Activate()
Dim toto As Date
toto = Date - 1
Me.TextBox1.Text = toto
End Sub
Mais c'est quoi ce Calendar1.value : un activex Calendar ? est-il lié ?
c'est peut-être ça le problème.
Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la
date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize()
Calendar1.Value = Date
TextBox1.Value = Calendar1.Value - 1
ouTextbox1.Value= Date -1
ou Textbox1.Value= CDate(today)-1
ou Textbox1.value= Calendar1.Day -1
etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Private Sub UserForm_Activate() Dim toto As Date toto = Date - 1 Me.TextBox1.Text = toto End Sub
Mais c'est quoi ce Calendar1.value : un activex Calendar ? est-il lié ? c'est peut-être ça le problème.
Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize() Calendar1.Value = Date TextBox1.Value = Calendar1.Value - 1 ouTextbox1.Value= Date -1 ou Textbox1.Value= CDate(today)-1 ou Textbox1.value= Calendar1.Day -1 etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Pourriez-vous m'éclairer?
Merci
Denys
Daniel
Bonjour. Textbox1.Value= Date -1 le fait (sans Calendar1.Value = Date) Cordialement. Daniel "Denys" a écrit dans le message de news:
Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize() Calendar1.Value = Date TextBox1.Value = Calendar1.Value - 1 ouTextbox1.Value= Date -1 ou Textbox1.Value= CDate(today)-1 ou Textbox1.value= Calendar1.Day -1 etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Pourriez-vous m'éclairer?
Merci
Denys
Bonjour.
Textbox1.Value= Date -1
le fait (sans Calendar1.Value = Date)
Cordialement.
Daniel
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news:
00CC116B-46AA-40C0-9149-E5C03C933FD7@microsoft.com...
Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la
date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize()
Calendar1.Value = Date
TextBox1.Value = Calendar1.Value - 1
ouTextbox1.Value= Date -1
ou Textbox1.Value= CDate(today)-1
ou Textbox1.value= Calendar1.Day -1
etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Bonjour. Textbox1.Value= Date -1 le fait (sans Calendar1.Value = Date) Cordialement. Daniel "Denys" a écrit dans le message de news:
Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize() Calendar1.Value = Date TextBox1.Value = Calendar1.Value - 1 ouTextbox1.Value= Date -1 ou Textbox1.Value= CDate(today)-1 ou Textbox1.value= Calendar1.Day -1 etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Pourriez-vous m'éclairer?
Merci
Denys
Denys
Bonjour Denis et Philippe,
Merci beaucoup.... Mon erreur est que plus loin dans l'initialisation du userform j'écrivais Checkbox1 = True et que dans les instructions du checkbox je disais que si le chexkbox = true alors le textbox1 avait la date d'aujourd'hui...
Vos réponses m'ont aidé à voir mon erreur
Comme ces instructions venaient ultérieurement, alors c'était le dernier résultat affiché!!!
Merci à vous deux de m'avoir aidé
Denys
Bonjour Denys,
Ceci devrait être suffisant ...
Private Sub UserForm_Initialize() Textbox1.Value= Date -1 Calendar1.Value = Date End Sub
et tu utilises la fonction format(date-1, "mm/dd/yy") pour le format américain ...
Salutations!
"Denys" a écrit dans le message de news: Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize() Calendar1.Value = Date TextBox1.Value = Calendar1.Value - 1 ouTextbox1.Value= Date -1 ou Textbox1.Value= CDate(today)-1 ou Textbox1.value= Calendar1.Day -1 etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Pourriez-vous m'éclairer?
Merci
Denys
Bonjour Denis et Philippe,
Merci beaucoup.... Mon erreur est que plus loin dans l'initialisation du
userform j'écrivais Checkbox1 = True et que dans les instructions du checkbox
je disais que si le chexkbox = true alors le textbox1 avait la date
d'aujourd'hui...
Vos réponses m'ont aidé à voir mon erreur
Comme ces instructions venaient ultérieurement, alors c'était le dernier
résultat affiché!!!
Merci à vous deux de m'avoir aidé
Denys
Bonjour Denys,
Ceci devrait être suffisant ...
Private Sub UserForm_Initialize()
Textbox1.Value= Date -1
Calendar1.Value = Date
End Sub
et tu utilises la fonction format(date-1, "mm/dd/yy")
pour le format américain ...
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: 00CC116B-46AA-40C0-9149-E5C03C933FD7@microsoft.com...
Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la
date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize()
Calendar1.Value = Date
TextBox1.Value = Calendar1.Value - 1
ouTextbox1.Value= Date -1
ou Textbox1.Value= CDate(today)-1
ou Textbox1.value= Calendar1.Day -1
etc...
La réponse est sûrement simple, mais je ne la trouve pas...
Merci beaucoup.... Mon erreur est que plus loin dans l'initialisation du userform j'écrivais Checkbox1 = True et que dans les instructions du checkbox je disais que si le chexkbox = true alors le textbox1 avait la date d'aujourd'hui...
Vos réponses m'ont aidé à voir mon erreur
Comme ces instructions venaient ultérieurement, alors c'était le dernier résultat affiché!!!
Merci à vous deux de m'avoir aidé
Denys
Bonjour Denys,
Ceci devrait être suffisant ...
Private Sub UserForm_Initialize() Textbox1.Value= Date -1 Calendar1.Value = Date End Sub
et tu utilises la fonction format(date-1, "mm/dd/yy") pour le format américain ...
Salutations!
"Denys" a écrit dans le message de news: Bonjour à tous,
A l'initialisation d'un userform, je voudrais que le textbox1 affiche la date d'hier. J'ai essayé ce qui suit sans succès:
Private Sub UserForm_Initialize() Calendar1.Value = Date TextBox1.Value = Calendar1.Value - 1 ouTextbox1.Value= Date -1 ou Textbox1.Value= CDate(today)-1 ou Textbox1.value= Calendar1.Day -1 etc...
La réponse est sûrement simple, mais je ne la trouve pas...
