Bonjour,

J'ai un petit soucis avec les dates sous excel.

J'ai developer un petit userform qui est utiliser par plusieurs personnes. Je precise que les excel sont en anglais pour la plupart:

voice le formatage des cellules au demarrage:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub Mise_En_Forme()
.Range("E:E,F:F,CH:CH").NumberFormat = "[$-809]dd mmm yyyy;@"
End Sub
voice le code de mon userform:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub UserForm_Initialize()
Dim i&
Application.ScreenUpdating = False
TextBox1.Value = Format(Date, "dd mmm yyyy", 2, 2)
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub CommandButton1_Click()
.Cells(DL, C.Column + 1).Value = Format(CDate(TextBox1.Value), "dd mmm yyyy", 2, 2)
End Sub
alors cela fonctionne correctement pour la plupart mais il y a 2-3 personnes où la date ne s'affiche pas comme telle:

imaginons que nous sommes le 05 février 2019, l'affichage demandé est 05 Feb 2019 (dd mmm yyyy en anglais du coup) or pour ces quelques personnes cela affiche 05 Févr 2019. et biensur de ce fait cette date n'est pas reconnue comme telle dans les cellules mais comme texte. Du coup mes autres macros pour calcul par rapport à la date plantent car date non reconnue...
Avant que je me lance dans un traitement archaique de ces dates au mauvais format, auriez vous une solution pour éviter ce type de probleme ?? A savoir aussi que pour ces meme personnes, des fois le formatage fonctionne correctement et des fois non...

Merci d'avance de votre aide
Bonne journée