date dans calendarRésolu

Question

sous excel
je dispose d' un userform avec un calendar
a l' initialisation du userform le calendar prend la valeur du jour aujourd' hui
(calendar1.today)

le probeme est :
lorsque l' on change de mois il n' y a plus de jour de cocher

la question :
comment activer le 1er jour du nouveau mois

cs_Frederic45 · Accepted Answer

Re

Essaie ceci :

Dim var1 As Integer

Private Sub UserForm_Initialize()
Calendar1.Value = Date  
var1 = 1
End Sub

Private Sub Calendar1_NewMonth()If var1 0 Then: var1 1: Exit Sub
Calendar1.Day = 1
Calendar1.Value = 1
End Sub

Frédéric

nanardino64 · Answer

Salut,
je veux bien essayer de t'aider mais je sais pas comment insérer un calendar dans un userform, je trouve pas le contrôle donc pour l'instant je peux rien faire

Nanardino64
Développons-nous, développeurs.

cs_MPi · Answer

Tu n'as pas répondu à mes questions sur ton autre post...

Quel est le contrôle que tu utilises exactement ?
msCal.ocx ? qui vient avec VB6
Date and Time Picker ?
MonthView ?
Autre ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

tommarianne · Answer

les cases suivantes sont cochées
vb6 - outil - references - microsoft controle calendar 11.0 
vb6 - outil - controles supplementaires - controle calendrier 11.0
les deux visant : mscal.ocx

je suis sous office 2003

Date and Time Picker - je n' ai rien qui se rapproche de cela dans les references
pourtant j' ai bien : mscomctl.ocx

merci A+

nanardino64 · Answer

vb6 ou VBA ?
enfin en tout cas sous Excel je trouve pas, je n'ai pas la référence microsoft controle calendar 11.0 donc désolé.
@+

Nanardino64
Développons-nous, développeurs.

cs_Frederic45 · Answer

Bonjour à tous

As tu essayé ceci :

Private Sub UserForm_Initialize()
Calendar1.Value = Date     
End Sub

pour tester j'ai essayé  : #3/18/2008# et cela fonctionne

Frédéric

tommarianne · Answer

Private Sub UserForm_Initialize()
Calendar1.today
End Sub

ceci marche tres bien mais lorsque l' on change le mois du calendar
il n' y a plus de date selectionnée

j' ai trouver ceci à ajouter
Private Sub Calendar1_NewMonth()
If Calendar1.Month Then Calendar1.Today Else Calendar1.Day = 1
End Sub

- donc a l' initalisation du userform date d' aujourd' hui selectionnée
- changement de mois dans le calendar = 1er jour du nouveau mois selectionné
mais cela ne marche que pour le 1er changement de mois

tommarianne · Answer

MERCI Frédéric

Cela fonctionne

A+

Date dans calendar

8 réponses

Votre réponse

Discussions similaires