Discussion :

[bboy-eazy]

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

[Thautheme]

Bonjour Bboy, bonjour le forum,


Si tu remplaces :

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

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
.Cells(DL, C.Column + 1).Value = CLng(DateSerial(Year(textbox1.Value), Month(textbox1.Value), Day(textbox1.Value)))
End Sub

La cellule prendra le format défini au préalable.

[patricktoulon]

re
bonjour

ben l'erreur elle est simple en fait
d'abord tu fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.Value = Format(Date, "dd mmm yyyy", 2, 2)

la c'est ok tu formate ta date dans le textbox

maintenant apres quand tu fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(DL, C.Column + 1).Value = Format(CDate(TextBox1.Value), "dd mmm yyyy", 2, 2)

ca ne peut fonctionner car cdate reconnais n'importe quoi car c'est un string etant donnée qu'il y a des lettres autres que le separator de date

maintenant exemple
si tu fait dans un userform vierge avec deux textbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Click()
 
TextBox1.Value = Format(Date, "dd mmm yyyy")
ladate = DateValue(TextBox1.Value)'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
TextBox2 = DateValue(TextBox1.Value)
MsgBox Month(ladate)
' sans formatage il y aura donc les separator en fonction de votre system( / ou - ou autre)
Cells(1, 1).Value = DateSerial(Year(ladate), Month(ladate), Day(ladate)) ' ici tu aura la date en format de ta region  paramétrée dans ton systeme
Cells(2, 1).NumberFormat = "mm dd yyyy" 'format US sans separator
Cells(2, 1).Value = DateSerial(Year(ladate), Month(ladate), Day(ladate))
Cells(3, 1).NumberFormat = "yyyy mm dd" 'format canadien sans separator
Cells(3, 1).Value = DateSerial(Year(ladate), Month(ladate), Day(ladate)) 
 
End Sub

si tu dois prendre une date avec les mois en lettre c'est datevalue!!!!! et non Cdate
je precise que malgré l'affichage différent dans les 3 cellules la date est la meme en terme de "VALUE"
je pars du principe d'injecter toujours une date par date serial ca n'inverse pas les (mois /jours)
quand au formatage c'est avec numberformat dans les cellule jamais format(une date,"le format")
sinon tu n'est pas sorti de l'auberge
datevalue... datevalue... datevalue !!!!!

edit
pour t'en convaincre tu peut faire le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "mois cellule1= " & Month(CDate(Cells(1, 1))) & vbCrLf & "mois cellule2= " & Month(CDate(Cells(2, 1))) & vbCrLf & "mois cellule3= " & Month(CDate(Cells(3, 1))) & vbCrLf

[bboy-eazy]

Bonjour,

Merci pour vos réponses et vos explications ainsi que demonstrations . c'est bien plus clair à présent.

Tout est parfait.

Très bonne journée