Modfi sur macro calendrier cellule...

[Christian0258]

Bo,nsoir à tout le forum,

J'ai trouvé, sur ce forum, un calendrier dans cellule (je ne connais pas l'auteur, merci à lui pour ce beau travail), je souhaiterais une petite modif sur le format d'appel....

voir fichier

Je vous remercie pour votre aide.

Bien amicalement,
Christian

 

[Compte Supprimé 979]

Re : Modfi sur macro calendrier cellule...

Bonjour Christian0258 😉

Il suffit de modifier le code dans Feuil1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If IsDate(Target) Then
    X = ActiveCell.Value
    UserForm1.Label50.Caption = IIf(X <> "", Format(X, "mmmm yyyy"), Format(Date, "mmmm yyyy"))
    fait
  End If
End Sub

A+

 

[Christian0258]

Re : Modfi sur macro calendrier cellule...

Re, le forum, BrunoM45,

Merci, Bruno, pour ton aide si précieuse.
Après essai ça fonctionne si il y a une date dans la cellule, mais si j'efface les dates le
calendrier n'est pas appelé ?

à te lire,
Bien à vous.
Christian

 

[Compte Supprimé 979]

Re : Modfi sur macro calendrier cellule...

Re,

Oups j'ai modifié le test de NumberFormat en IsDate()

Effectivement, ça ne fait plus du tout la même chose

Il faut inclure ton format de cellule dans ton code
Le code sera plutôt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.NumberFormat = "m/d/yyyy" Or _
     Target.NumberFormat = "mm/dd/yyyy" Or _
     Target.NumberFormat = "dddd dd mmmm yyyy" Then
    'If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
    X = ActiveCell.Value
    UserForm1.Label50.Caption = IIf(X <> "", Format(X, "mmmm yyyy"), Format(Date, "mmmm yyyy"))
    fait
  End If
End Sub

A+

 

[Christian0258]

Re : Modfi sur macro calendrier cellule...

Re, le forum, BrunoM45,

Je te remercie infiniment pour ton aide.
Ton code fonctionne impec.
Encore merci.

Bien à toi,
Christian