Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Calendrier de Michel Pierron

Calendrier de Michel Pierron

12 réponses
Avatar
Florian
Bonjour
je viens d'essayer le calendrier proposé par : sur Excelabo.net
Michel Pierron,
Ajouté ou modifié le 02/04/2005 (N°1600)
Il est vraiment remarquable !
Comment faire afin que la date aille dans le textbox après avoir cliqué sur
celle-ci ?
Merci beaucoup pour votre aide
Bonne journée
Flo riant
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Jacques93
Bonjour Florian,

Dans les deux cas, le contrôle calendrier est crée de manière dynamique :

Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)

ou

dtHwnd = CreateWindowEx(0, "SysMonthCal32", vbNullString, _
&H50000000, 4, -h, 200, 200, meHwnd, 0&, 0&, ByVal 0&)

et les événements ne sont donc pas exposés dans le code de la feuille

Le plus simple, je crois, est d'ajouter le composant MsCal.ocx :
dans VBA, Outils => Contrôles supplémentaires, tu coches Contrôle
Calendrier. Sur ton UserForm tu ajoutes un contrôle calendrier et un
textbox, et tu colle le code :

Private Sub Calendar1_Click()
Me.TextBox1 = Me.Calendar1.Value
End Sub

Bonjour
je viens d'essayer le calendrier proposé par : sur Excelabo.net
Michel Pierron,
Ajouté ou modifié le 02/04/2005 (N°1600)
Il est vraiment remarquable !
Comment faire afin que la date aille dans le textbox après avoir cliqué sur
celle-ci ?
Merci beaucoup pour votre aide
Bonne journée
Flo riant





--
Cordialement,

Jacques.

Avatar
Florian
Bonsoir Jacques93 et merci beaucoup pour ta réponse
Je travaille avec Excel2000 au travail nous avons Excel 97
Cette fonctionnalité existe-t-elle avec Excel 97 ?
Merci
Flo riant

"Jacques93" a écrit dans le message de
news:
Bonjour Florian,

Dans les deux cas, le contrôle calendrier est crée de manière dynamique
:

Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)

ou

dtHwnd = CreateWindowEx(0, "SysMonthCal32", vbNullString, _
&H50000000, 4, -h, 200, 200, meHwnd, 0&, 0&, ByVal 0&)

et les événements ne sont donc pas exposés dans le code de la feuille

Le plus simple, je crois, est d'ajouter le composant MsCal.ocx :
dans VBA, Outils => Contrôles supplémentaires, tu coches Contrôle
Calendrier. Sur ton UserForm tu ajoutes un contrôle calendrier et un
textbox, et tu colle le code :

Private Sub Calendar1_Click()
Me.TextBox1 = Me.Calendar1.Value
End Sub

Bonjour
je viens d'essayer le calendrier proposé par : sur Excelabo.net
Michel Pierron,
Ajouté ou modifié le 02/04/2005 (N°1600)
Il est vraiment remarquable !
Comment faire afin que la date aille dans le textbox après avoir cliqué
sur celle-ci ?
Merci beaucoup pour votre aide
Bonne journée
Flo riant



--
Cordialement,

Jacques.



Avatar
Florian
RE,
Comment avoir la date du jour à l'initialisation du calendrier ?
Merci
Flo riant

"Jacques93" a écrit dans le message de
news:
Bonjour Florian,

Dans les deux cas, le contrôle calendrier est crée de manière dynamique
:

Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)

ou

dtHwnd = CreateWindowEx(0, "SysMonthCal32", vbNullString, _
&H50000000, 4, -h, 200, 200, meHwnd, 0&, 0&, ByVal 0&)

et les événements ne sont donc pas exposés dans le code de la feuille

Le plus simple, je crois, est d'ajouter le composant MsCal.ocx :
dans VBA, Outils => Contrôles supplémentaires, tu coches Contrôle
Calendrier. Sur ton UserForm tu ajoutes un contrôle calendrier et un
textbox, et tu colle le code :

Private Sub Calendar1_Click()
Me.TextBox1 = Me.Calendar1.Value
End Sub

Bonjour
je viens d'essayer le calendrier proposé par : sur Excelabo.net
Michel Pierron,
Ajouté ou modifié le 02/04/2005 (N°1600)
Il est vraiment remarquable !
Comment faire afin que la date aille dans le textbox après avoir cliqué
sur celle-ci ?
Merci beaucoup pour votre aide
Bonne journée
Flo riant



--
Cordialement,

Jacques.



Avatar
Jacques93
Je ne sais pas.

Bonsoir Jacques93 et merci beaucoup pour ta réponse
Je travaille avec Excel2000 au travail nous avons Excel 97
Cette fonctionnalité existe-t-elle avec Excel 97 ?
Merci
Flo riant


--
Cordialement,

Jacques.

Avatar
Jacques93
Bonsoir Florian,

Par défaut, le calendrier se positionne à la date du jour, non ?

RE,
Comment avoir la date du jour à l'initialisation du calendrier ?
Merci
Flo riant



--
Cordialement,

Jacques.

Avatar
Florian
Justement non !
En fait j'ai fait des tests en changeant la date système et cela ne bouge
pas !
J'ai dû changer des propriétés, mais en remettant un calendar vierge, cela
fait la même chose
??????
Je te remercie pour ta gentillesse et tes compétences.
Flo riant

"Jacques93" a écrit dans le message de
news:
Bonsoir Florian,

Par défaut, le calendrier se positionne à la date du jour, non ?

RE,
Comment avoir la date du jour à l'initialisation du calendrier ?
Merci
Flo riant



--
Cordialement,

Jacques.



Avatar
Florian
Ok je vais tester ce lundi
Merci
Flo riant

"Jacques93" a écrit dans le message de
news:
Je ne sais pas.

Bonsoir Jacques93 et merci beaucoup pour ta réponse
Je travaille avec Excel2000 au travail nous avons Excel 97
Cette fonctionnalité existe-t-elle avec Excel 97 ?
Merci
Flo riant


--
Cordialement,

Jacques.



Avatar
Papyty
Salut Florian

Essai ceci non testé puisque la bonne date s'affiche par défaut chez moi.

Private Sub Calendar1_Enter()
Me.Calendar1.Value = Date
End Sub

@+ Thierry

Justement non !
En fait j'ai fait des tests en changeant la date système et cela ne bouge
pas !
J'ai dû changer des propriétés, mais en remettant un calendar vierge, cela
fait la même chose
??????
Je te remercie pour ta gentillesse et tes compétences.
Flo riant

"Jacques93" a écrit dans le message de
news:

Bonsoir Florian,

Par défaut, le calendrier se positionne à la date du jour, non ?


RE,
Comment avoir la date du jour à l'initialisation du calendrier ?
Merci
Flo riant



--
Cordialement,

Jacques.








Avatar
Florian
Bonjour Thierry
Lorsque tu changes de date système, et que tu relances, est-ce que cela met
à jour le calendrier chez toi ?
merci beaucoup
Flo riant

"Papyty" a écrit dans le message de news:

Salut Florian

Essai ceci non testé puisque la bonne date s'affiche par défaut chez moi.

Private Sub Calendar1_Enter()
Me.Calendar1.Value = Date
End Sub

@+ Thierry

Justement non !
En fait j'ai fait des tests en changeant la date système et cela ne bouge
pas !
J'ai dû changer des propriétés, mais en remettant un calendar vierge,
cela fait la même chose
??????
Je te remercie pour ta gentillesse et tes compétences.
Flo riant

"Jacques93" a écrit dans le message de
news:

Bonsoir Florian,

Par défaut, le calendrier se positionne à la date du jour, non ?


RE,
Comment avoir la date du jour à l'initialisation du calendrier ?
Merci
Flo riant



--
Cordialement,

Jacques.









Avatar
Florian
Ok Thierry, cela fonctionne très bien merci beaucoup et bonne soirée
Flo riant

"Papyty" a écrit dans le message de news:

Salut Florian

Essai ceci non testé puisque la bonne date s'affiche par défaut chez moi.

Private Sub Calendar1_Enter()
Me.Calendar1.Value = Date
End Sub

@+ Thierry

Justement non !
En fait j'ai fait des tests en changeant la date système et cela ne bouge
pas !
J'ai dû changer des propriétés, mais en remettant un calendar vierge,
cela fait la même chose
??????
Je te remercie pour ta gentillesse et tes compétences.
Flo riant

"Jacques93" a écrit dans le message de
news:

Bonsoir Florian,

Par défaut, le calendrier se positionne à la date du jour, non ?


RE,
Comment avoir la date du jour à l'initialisation du calendrier ?
Merci
Flo riant



--
Cordialement,

Jacques.









1 2