calendrier office

[Emmanuel]

Bonjour le forum

j'ai un petit soucis avec mon calendrier, il ne se met pas à la date du jour
malgrès le code, le voici

Private Sub UserForm3_Initialize()
Calendar1.Value = Now
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Format(Calendar1, "dddd dd mmmm yyyy")
Unload Me
End Sub

la date sur le calendrier reste figé à la date" Value " dans les propriétés.

voici les codes de la feuille qui reçoit la date

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C22")) Is Nothing Then
Cancel = True
UserForm3.Show
End If
End Sub

Merçi d'avance

Bonne journée
@+Emmanuel

 

[petchy]

salut le forum

@+Emmanuel,tu rajoute le code Calendar1.Today dans Private Sub UserForm3_Initialize()


Private Sub UserForm3_Initialize()
Calendar1.Today
ActiveCell.Value = Format(Calendar1, "dddd dd mmmm yyyy")
Unload Me
End Sub

@ plus
petchy

 

[Emmanuel]

bonjour Petchy

désolé cela n'a pas fonctionné ( j'avais déjà essayé)

J'envoye le fichier, je ne comprend plus
-
@+emmanuel

 

[petchy]

Re @+emmanuel

j'ai essayer cela fonctionne,regarde de ton coté.

@ plus
petchy

 

[Myta]

Salut le Forum

Emmanuel modifie ceci sur le code de la feuille1

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C22")) Is Nothing Then
Cancel = True

UserForm3.Calendar1 = Now

UserForm3.Show
End If
End Sub

Mytå

 

[Emmanuel]

Bonjour le forum et à vous Mytå et petchy

je vous remercie beaucoup pour vos aide
cela fonctionne maintenant avec la ligne supplémentaire dans le code de la
feuille1.
mille merci cela fesait deux jours que j"essyai de trouver la solution.
Dans ces cas là dernier recours EXCEL DOWLOADS.( j'espère que ce site aura une longue vie)

bon week end à tous avec un temps magnifique et les cigales qui chantent


@+emmanuel