XL 2021 Problème à l'utilisation calendrier de Patricktoulon.

[jeff1494]

Bonjour à toutes et tous;
J'ai fait un petit fichier pour enregistrer des mesures de tension, il se compose de deux feuilles.
Une feuille avec la liste des valeurs (nommée "Saisies "), et une autre avec un graphique basé sur un TCD, nommée ("Graphes").

Concernant la date des mesures, je peux soit saisir directement dans le tableau de la feuille 1 par un double clic dans la saisie, soit passer par un petit formulaire.
Le problème que je rencontre est que l'affichage de la date dans la colonne du tableau des mesures s'affiche avec un format différent, suivant d’où on la saisi.
Le format de cellule contenant la date dans le tableau est le format "Date jj/mm/aa" exemple " *14/03/2025 "

J'explique mon problème :

1) Pour saisir la date depuis le tableau un double clic dans la cellule, apparition du calendrier de patricktoulon, sélection d'une date, et en résultat insertion de la date au format jj/mm/aa. c'est parfait. Pour l'appel au calendrier j'utilise le code suivant:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target = Xcalendar(Target, 2, 0, 1) 'en Francais
End Sub

2) Pour la sélection de la date depuis le formulaire, j'utilise le code suivant :

Private Sub Dat_mesure_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dat_mesure.Value = Xcalendar(Dat_mesure, 2, 0, 1)
End Sub

Où "Dat_mesure" est le nom de la TextBox contenant la date.
Après validation et mise à jour dans le tableau des mesures la date apparait alors au format US, soit mm/jj/aa.

Je ne vois pas d'où cette différence de comportement provient.
A toutes fins utiles je joins le fichier.

Je remercie d'avance toutes celles et ceux qui auront la gentillesse de regarder mon problème, et m'expliqueront mon erreur.
En attendant je vous souhaite une bonne journée.

 

[Cousinhub]

Bonjour,
Pour bien inscrire la date au format régional, rajoute CDate

...
...
 tableau.ListColumns("Dates").DataBodyRange.Rows(i).Value = CDate(Dat_mesure.Value)
 ...
 ...

PS, afin d'éviter la latence lors de la validation de la date dans la textbox, rajoute également cette ligne :

Private Sub Dat_mesure_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dat_mesure.Value = Xcalendar(Dat_mesure, 2, 0, 1)
    Cancel = True
End Sub

Bonne apm

 

[patricktoulon]

Bonjour

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Xcalendar(Target, 2, 0, 1) 'en Francais
End Sub

Private Sub Dat_mesure_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dat_mesure.Value = Xcalendar(Dat_mesure, 2, 0, 1)
Cancel = True
End Sub

mise a part le correctif de @Cousinhub
pourrais tu m'expliquer pourquoi passe tu par la fonction intermédiaire xCalendar
alors que tu a intégré le calendar en tant qu'userform et non générer un xlam?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = calendar.showx(Target, 2, 0, 1) 'en Francais
End Sub

Private Sub Dat_mesure_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dat_mesure.Value = calendar.showx(cdate(Dat_mesure.text), 2, 0, 1)
Cancel = True
End Sub

j'ai donc supprimé le module et remis les appels conformes
regardez les vidéos en entier svp ou au pire dites moi " j'ai pas compris la nuance entre le bouton intégrer et créer un complément " j'expliquerais

je répète donc

1° ca intègre l'userform calendar dans votre projet
donc pas de module intermediare
et l'appel c'est element.value=Calendar.ShowX(element,2,0,1)

2°ca crée un complément xlam(macro complémentaire)
.......a) il faut alors ensuite allez l'activer dans les options
.......b) ensuite activer la ref xlcalendar dans les reférences
.......c) l'appel se fait alors par element.value=Xcalendar(element,2,0,1)
plus je vous simplifie la vie moins vous y arrivez ,c'est à se taper la tête contre le bureau

Patrick

 

[jeff1494]

Bonjour @patricktoulon ;
Désolé mais tu as raison ,'aurais du dire "j'ai pas compris la nuance entre le bouton intégrer et créer un complément".
Je te remercie en tout cas pour ton retour, et te prie d'accepter mes excuses pour mon manque d'attention.
Sur ce bonne journée à toi.

 

[Cousinhub]

Re-,
Je ne sais donc pas si ma proposition a été lue...
J'aurais aussi du mettre des émojis, et écrire en couleur...

 

[jeff1494]

Désolé @Cousinhub pour ne pas t'avoir remercié pour ta réponse, que j'ai lu.
Bonne soirée.