![](/media/prod/img/shop/tcfefe32-132168-1.jpg?v=1699633425)
✅ EXCEL VBA GRATUIT : Résoudre définitivement les inversions entre les jours et les mois !
Gratuit
Bonjour,
Résoudre définitivement les inversions entre les jours et les mois !
💼 Format Date dans les Formulaires
🔑 Quand on utilise une TextBox avec un format date, on a la mauvaise surprise, lors du chargement de la date dans un tableau, de voir les jours et le mois s’inverser.
⌨ Par Exemple : On saisit 02/11/2023 et le résultat après chargement est 11/02/2023
⌨ Ceci se passe pour les jours inférieurs ou égales à 12. Le deuxième point est le format date qui n’est pas respecté. Nous voyons une date mais au format Texte.
⌨ La Première ligne définit le format de la cellule dans la colonne G à la ligne spécifiée (`Derligne`) pour s'assurer qu'elle sera affichée au format "dd/mm/yyyy". Feuil1.Range("G" & Derligne).NumberFormat = "dd/mm/yyyy"
⌨ Cette ligne utilise la fonction `DateSerial` pour créer explicitement une date en utilisant l'année, le mois et le jour extraits de la valeur de la TextBox `txtDate`. Cela garantit que la date est correctement interprétée, évitant ainsi toute inversion entre les jours et les mois. Feuil1.Range("G" & Derligne).Value = DateSerial(Year(txtDate.Value), Month(txtDate.Value), Day(txtDate.Value))
💻 Lien de Mon Site https://excelpourtous.net
🎞️ Lien de la vidéo : https://youtu.be/l_1MqBsUPqE
Amicalement
Serge
Résoudre définitivement les inversions entre les jours et les mois !
💼 Format Date dans les Formulaires
🔑 Quand on utilise une TextBox avec un format date, on a la mauvaise surprise, lors du chargement de la date dans un tableau, de voir les jours et le mois s’inverser.
⌨ Par Exemple : On saisit 02/11/2023 et le résultat après chargement est 11/02/2023
⌨ Ceci se passe pour les jours inférieurs ou égales à 12. Le deuxième point est le format date qui n’est pas respecté. Nous voyons une date mais au format Texte.
⌨ La Première ligne définit le format de la cellule dans la colonne G à la ligne spécifiée (`Derligne`) pour s'assurer qu'elle sera affichée au format "dd/mm/yyyy". Feuil1.Range("G" & Derligne).NumberFormat = "dd/mm/yyyy"
⌨ Cette ligne utilise la fonction `DateSerial` pour créer explicitement une date en utilisant l'année, le mois et le jour extraits de la valeur de la TextBox `txtDate`. Cela garantit que la date est correctement interprétée, évitant ainsi toute inversion entre les jours et les mois. Feuil1.Range("G" & Derligne).Value = DateSerial(Year(txtDate.Value), Month(txtDate.Value), Day(txtDate.Value))
💻 Lien de Mon Site https://excelpourtous.net
🎞️ Lien de la vidéo : https://youtu.be/l_1MqBsUPqE
Amicalement
Serge