Erreur Code

Bonjour,

Je n'ai pas ce probleme avec une cellule format standard ou personnalise !!

Bonjour,
Salut f...

Effectivement, le souci vient bien du format des cellules. Comme le format dépend des paramètres régionaux de Windows, il se peut que l'affichage soit mauvais.

Je reviens demain sur le sujet avec des propositions, notamment une nouvelle version du code.

Bonne soirée à tous les deux

--

Bonjour,

Comme promis, je reviens sur le sujet.

Le calendrier renvoie une date, sous la forme d'une valeur de type Date.
Donc Excel la reconnait comme telle.

Le souci ne peut donc venir que de la mise en forme de la cellule.
J'ai essayé le classeur test en changeant les paramètres régionaux de Windows, aucun souci de mon côté.

Tu trouveras la dernière version de ce calendrier chez nos amis et voisins de CodeS SourceS, à cet emplacement (source modifiée ce matin).
Je n'ai pas encore pris le temps de modifier la fiche pratique qui t'amène ici, je vais le faire dans la journée.

J'ai légèrement modifié le code de la Classe pour qu'il soit plus accessible.
Le format de date peut être déterminé dans la fonction Value de la Classe :

Public Function Value(Affich_Barre_Titre As Boolean, Optional Inhib As Boolean, Optional L#, Optional T#) As Date
Dim Liste, Sep$, maDate As Date
   'récupère, via la Function Liste_Parametres, les Private Const paramétres du calendrier
   Liste = Liste_Parametres
   'création de l'userform (Caption, Width, Height et Optional Left et Top)
   Call NewUsf(Format(Date, "mmmm yyyy"), 7 * (CInt(Liste(1, 3)) + CInt(Liste(4, 3))) + CInt(Liste(4, 3)) + 5, CInt(Liste(5, 3)) * 2 + CInt(Liste(0, 3)), L, T)
   'Procédure de création des contrôles du Calendrier
   Call Creer_Calendrier(Date, "", Liste, Affich_Barre_Titre)
   'Procédure inhibant la croix de fermeture
   If Affich_Barre_Titre = False Then Call AfficheTitleBarre(Usf.Caption, Affich_Barre_Titre)
   If Inhib = False Then Call Usf_Initialize
   'Attribution du Focus au bouton correspondant à la date du jour
   Usf.Controls("Btn_Jours" & Day(Date)).SetFocus
   'Affichage de l'userform
   Usf.Show
   'le séparateur de date (selon le choix systeme)
   Sep = Application.International(xlDateSeparator)
   'Gestionnaire d'erreur => Si Usf.Tag ne contient rien
   On Error GoTo Fin
   
   '===============================================================================================================
   'Attribution à Value de : Usf.Tag (jour) et Usf.Caption (Mois et Année)
   maDate = IIf(Usf.Tag = "X", Date, CDate(Usf.Tag & Sep & Month(Usf.Caption) & Sep & Right(Usf.Caption, 4)))
    'exemple de modification possible :
   'maDate = Format(maDate, "mm/dd/yyyy")
   Value = maDate
   '===============================================================================================================
   
   'UnLoad l'userform entraine la procédure Class_Terminate
   Unload Usf
   Exit Function
Fin:
   'En cas d'erreur, la valeur de notre calendrier
   Value = CDate(Date)
End Function