XL 2019 Format de dates dans un Userform

[CPaq]

Bonjour.

Grand-papa éprouve de la difficulté 😊

J’ai un Userform « Locataires » dans lequel je souhaite récupérer des dates faisant partie de ma feuille « Locataires » en cliquant sur le bouton « Locataire selon l’immeuble » (ou les autres boutons également). Les dates dans la feuille sont au format « AAAA-MM-JJ ». Lorsqu’elles reviennent dans le Userform, elles sont présentées au format « JJ-MM-AAAA ». De nombreuses heures de lectures/visionnement/essais infructueux plus tard, je suis au même point.

Aussi, comment m’assurer que les dates que j’inscrirais dans le Userform serait bien inscrites dans la feuille « Locataires ».

Immense merci à l’avance!

 

[Dranreb]

Bonsoir.
Vos cellules contiennent bien des dates. Elles sont affichées dans les cellules via un format "aaaa/mm/jj;@"
Pour les afficher sous la même forme dans des textes de TextBox utilisez la fonction Format(WS.Cells(irow, 12).Value,"yyyy/mm/dd")
Pour affecter ces textes de TextBox aux cellules dates utilisez DateSerial(Mid(Textbox12.Text(1, 4), Mid(Textbox12.Text(6, 2), Mid(Textbox12.Text(9, 2)).
Mais ce serait plus simple si c'était partout jj/mm/aaaa: vous pourriez simplement prendre CDate(TextBox12.Text)

 

[CPaq]

Premièrement, merci Dranreb de votre réponse rapide. J'ai opté pour votre suggestion d'avoir jj/mm/aaaa partout. J'ai donc éliminé mes Private Sub TextBox11_Change() et Private Sub TextBox12_Change() tout comme j'ai retiré mes AfterUpdate pour les deux Textbox. J'ai essayé d'inscrire dans la textbox 01/07/2025 et ça changeait pour 07/01/2025. Aussi, le très novice que je suis ne sais pas trop où indiquer CDate(TextBox12.Text). Merci de m'accorder encore du temps.

 

[TooFatBoy]

Bonjour,

Mid(Textbox12.Text(1, 4)

Est-ce qu'il n'y aurait pas une coquille qui se serait glissée dans la syntaxe du Mid ?
Je crois que ce n'est pas une parenthèse ouvrante mais une virgule.

---

J'ai essayé d'inscrire dans la textbox 01/07/2025 et ça changeait pour 07/01/2025.

Poste le code de ta macro.

 

[CPaq]

Bonjour,


Est-ce qu'il n'y aurait pas une coquille qui se serait glissée dans la syntaxe du Mid ?
Je crois que ce n'est pas une parenthèse ouvrante mais une virgule.

En fait, j'écrivais dans le Textbox 01/07/2025 et modifiait mon locataire; quand ça revenais, c'était 07/01/2025. Je n'ai pas utilisé le MID car jew croyais que c'était pour conserver le format AAA-MM-JJ. ne sais pas trop à quel endroit écrire avec le CDate.

 

[TooFatBoy]

Je n'ai pas utilisé le MID car jew croyais que c'était pour conserver le format AAA-MM-JJ.

Et tu as raison.

Le Mid ne te sert à rien puisque tu as changé le "format" de ta TextBox.

 

[CPaq]

Mon fichier a été envoyé et le VBA en fait partie

 

[cathodique]

Mon fichier a été envoyé et le VBA en fait partie

Bonjour l'équipe,

@CPaq : Peux-tu nous dire pourquoi les formats de dates sur la feuille "Locataires" des colonnes "Début" et "Fin"
sont différents?

je ne peux pas aller plus loin. voici ce qui ce produit sur ma machine ci-dessous:

A+

 

[Dranreb]

Il faut quand même garder Cellule.Value = CDate(TextBox.Text) pour éviter qu'Excel ne se charge lui même de la conversion en date en considérant que le texte en est une expression anglo-saxonne.
Désolé pour ma mauvaise syntaxe du Mid …

 

[Dranreb]

Remarque: la méthode ValeursVers de mes objets ComboBoxLiées et ControlsAssociés se chargerait tout seul des conversions des textes des contrôles dont on lui aurait confié la charge en les valeurs de cellules des types de données appropriés.

 

[CPaq]

cathodique : Bizarre ce problème d'ouverture. Ici, le format de mes deux colonnes d'indiquent un format date.
Dranreb : Merci encore.

Je vais continuer à travailler et essayer de comprendre ce que je dois faire, Je crois que mon niveau de connaissance est un peu trop bas actuellement. Je reviendrai plus tard au besoin. Merci encore pour votre support 🙂

 

[patricktoulon]

perso je ne pige pas votre soucis
la fonction native de vba "Cdate" prends aussi bien les dates CA que FR
donc a la limite faite tout sauter
mettez votre colonne dans la feuille au format fr (ou pas)
et en lecture
exemple
TextBox1 = CDate([a1].Value)

et en ecriture
exemple
[a1] = CDate(TextBox1.Value)
et pourquoi pas ensuite
[a1].entirecolumn.numberformat="dd/mm/yyyyy"
comme ca même si une date est entrée au format US2 ou CA-US donc mm/dd/yyyy elle se remettra au bon format toute seule

Patrick

 

[cathodique]

@cathodique : Bizarre ce problème d'ouverture. Ici, le format de mes deux colonnes d'indiquent un format date.

Ma réponse est ci-dessous en image.

Une colonne en dates Anglo-saxonnes et l'autre en Fr. Est-ce un choix judicieux ?

@patricktoulon 😉 que je salue t'as indiqué la solution.

 

[Dranreb]

comme ca même si une date est entrée au format US2 ou CA-US donc mm/dd/yyyy elle se remettra au bon format toute seule

Non.

 

[cathodique]

Non.

Salue @Dranreb : Pourquoi non?