mauvais format date

**HABILER** · 14/04/2024, 19h07

Bonjour le Communauté,

Depuis que j'ai changé de Pc les dates me posent problème. Lorsque je transfère un changement de date de mon userform dans feuille le format date de ma feuille se met automatiquement sous le format "MM/dd/yyyy" alors que la date avant transfert est de type "dd/MM/yyyy" .1/2/2024 dans mon userform devient 2/1/2024 dans ma feuille sauf si ""dd" est supérieur à 12.

Pour info le format de la machine est le suivant : Nom : date seiitngs.png
Affichages : 153
Taille : 37,1 Ko

Nom : date seiitngs.png
Affichages : 153
Taille : 37,1 Ko

Merci d'avance

Habiler

**EricDgn** · 15/04/2024, 18h31

Bonjour,

Dans la fenêtre paramètres, cliquer en haut à droite sur "Date, heure et paramètres régionaux supplémentaires". Cliquer ensuite sur "Modifier les formats de date, d'heure ou de nombre". Sélectionner le format qui convient.

Cordialement.

**HABILER** · 15/04/2024, 21h11

Merci pour la rapidité de réponse, mais ces paramètres sont corrects

Cordaliementt

**EricDgn** · 15/04/2024, 23h43

Autre élément à tester: dans la boîte de dialogue Format des cellules, sous l'onglet Nombre, cliquer sur Date dans la liste Catégorie, et vérifier dans la liste déroulante "Locale (emplacement)" que le format de date "local" est bien celui qui convient.
Cordialement.

**Nain porte koi** · 16/04/2024, 00h20

Hello

Envoyé par HABILER

[SIZE=4]...Lorsque je transfère un changement de date de mon userform dans feuille le format date de ma feuille...

"transféré" avec quelles instructions ?

**HABILER** · 16/04/2024, 17h03

Envoyé par Nain porte koi

Hello

"transféré" avec quelles instructions ?

Voici le code dont je me sers

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub cmBtn_Modify_Click()
 
    Dim ws As Worksheet
    Dim foundRow As Range
    Dim originalValues As Variant
    Dim selectedValue As String
 
    ' Récupérer la valeur sélectionnée
 
    selectedValue = Me.ComboBox1.value
    ' Set the worksheet where you want to make modifications
    Set ws = ThisWorkbook.Sheets("2024")
 
    ' Assuming you have a way to find the row, for example:
    Set foundRow = ws.Columns("B:B").Find(What:=selectedValue, LookIn:=xlValues, LookAt:=xlWhole) ' You should replace this with your actual code to find the row
 
    foundRow.Offset(0, 7).NumberFormat = "dd/MM/yyyy"
    foundRow.Offset(0, 8).NumberFormat = "dd/MM/yyyy"
    foundRow.Offset(0, 9).NumberFormat = "dd/MM/yyyy"
    foundRow.Offset(0, 10).NumberFormat = "dd/MM/yyyy"
    foundRow.Offset(0, 12).NumberFormat = "dd/MM/yyyy"
    ' Store original values before modification
    originalValues = Array(Me.EchelGrade.value, Me.Departement.value, Me.ChiefofDept.value, Format(Me.EnvoiSign.value, "dd/MM/yyyy"), _
                           Format(Me.RetourSign.value, "dd/MM/yyyy"), Me.NumAvis.value, Format(Me.DateAvis.value, "dd/MM/yyyy"), _
                           Format(Me.DateCandidat.value, "dd/MM/yyyy"), Format(Me.DateRepCandidat.value, "dd/MM/yyyy"), Me.StatusDossier.value)
 
    ' Update the values
    foundRow.Offset(0, 6).value = Me.EchelGrade.value
    foundRow.Offset(0, 4).value = Me.Departement.value
    foundRow.Offset(0, 5).value = Me.ChiefofDept.value
    foundRow.Offset(0, 9).value = Format(Me.EnvoiSign.value, "dd/MM/yyyy")
    foundRow.Offset(0, 10).value = Format(Me.RetourSign.value, "dd/MM/yyyy")
    foundRow.Offset(0, 11).value = Me.NumAvis.value
    foundRow.Offset(0, 12).value = Format(Me.DateAvis.value, "dd/MM/yyyy")
    foundRow.Offset(0, 7).value = Format(Me.DateCandidat.value, "dd/MM/yyyy")
    foundRow.Offset(0, 8).value = Format(Me.DateRepCandidat.value, "dd/MM/yyyy")
    foundRow.Offset(0, 13).value = Me.StatusDossier.value
 
    ' Check for modifications and modify only changed cells
    If Not ArraysEqual(originalValues, Array(Me.EchelGrade.value, Me.Departement.value, Me.ChiefofDept.value, Format(Me.EnvoiSign.value, "dd/MM/yyyy"), _
                           Format(Me.RetourSign.value, "dd/MM/yyyy"), Me.NumAvis.value, Format(Me.DateAvis.value, "dd/MM/yyyy"), _
                           Format(Me.DateCandidat.value, "dd/MM/yyyy"), Format(Me.DateRepCandidat.value, "dd/MM/yyyy"), Me.StatusDossier.value)) Then
        ' Perform your actions to modify the changed cells here
        ' For example:
    ws.Cells(foundRow.Row, "D").value = Me.EchelGrade.value
    ws.Cells(foundRow.Row, "F").value = Me.Departement.value
    ws.Cells(foundRow.Row, "G").value = Me.ChiefofDept.value
    ws.Cells(foundRow.Row, "K").value = Format(Me.EnvoiSign.value, "dd\/mm\/yyyy")
    ws.Cells(foundRow.Row, "L").value = Format(Me.RetourSign.value, "dd/MM/yyyy")
    ws.Cells(foundRow.Row, "M").value = Me.NumAvis.value
    ws.Cells(foundRow.Row, "N").value = Format(Me.DateAvis.value, "dd/MM/yyyy")
    ws.Cells(foundRow.Row, "I").value = Format(Me.DateCandidat.value, "dd/MM/yyyy")
    ws.Cells(foundRow.Row, "J").value = Format(Me.DateRepCandidat.value, "dd/MM/yyyy")
 
         'ws.Cells(foundRow.Row, "D").value = Me.EchelGrade.value
         'ws.Cells(foundRow.Row, "G").value = Me.Departement.value
        ' ...
    End If
End Sub

**Nain porte koi** · 16/04/2024, 19h24

Hello,

je reproduis bien votre problème, et je ne comprend pas pourquoi, mais je me doute que ça a à voir avec le format du fichier par défaut car j'étais tombé sur un truc de ce genre avec les formats comptabilité. J'avais contourné le pb en mettant un format monétaire

J'ai testé le format mm/dd/yyyy et là ça met la date dans le bon sens, de là à dire que c'est la bonne solution, je ne crois pas, c'est plutôt un contournement la aussi.

**HABILER** · 17/04/2024, 09h20

De plus en adoptant cette solution c'est une sorte de ping pong PAR ex 10/11/2024 affiche 11/10/2024 et en cliquant sur le bouton Modifie l'effet inverse se produit

Bien à vous

Habiler

**EricDgn** · 17/04/2024, 11h41

Bonjour,

J'ai l'impression que les problèmes vient de tous ces formatages de date. Que se passerait-il si on oubliait tout cela et rédurait le code à ceci (en considérant que l'on ait changé ou non une valeur n'a finalement aucune importance: on recopie les données du formulaire dans la feuille)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub cmBtn_Modify_Click()
    Dim ws As Worksheet, foundRow As Range, selectedValue As String
    selectedValue = Me.ComboBox1
    Set ws = ThisWorkbook.Sheets("2024")
    Set foundRow = ws.Columns("B:B").Find(What:=selectedValue, LookIn:=xlValues, LookAt:=xlWhole)
    If foundRow Is Nothing Then
        MsgBox "Valeur " & selectedValue & " non trouvée !?", vbExclamation, "Annulé"
    Else
        ws.Cells(foundRow.Row, "D") = Me.EchelGrade
        ws.Cells(foundRow.Row, "F") = Me.Departement
        ws.Cells(foundRow.Row, "G") = Me.ChiefofDept
        ws.Cells(foundRow.Row, "K") = Me.EnvoiSign
        ws.Cells(foundRow.Row, "L") = Me.RetourSign
        ws.Cells(foundRow.Row, "M") = Me.NumAvis
        ws.Cells(foundRow.Row, "N") = CDate(Me.DateAvis)
        ws.Cells(foundRow.Row, "I") = CDate(Me.DateCandidat)
        ws.Cells(foundRow.Row, "J") = CDate(Me.DateRepCandidat)
    End If
End Sub

Un petit exemple pour test en attaché.

Bien cordialement.

**HABILER** · 19/04/2024, 09h41

Rien n'y fait lorsque je remplis ton Userform la date se met automatiquement sous forme "MM/dd/yyyy" dans le Userform. Par contre dans la feuille lorsque j'introduit une date "en direct" elle reste au format "dd/MM/yyyy"

**EricDgn** · 19/04/2024, 11h12

Une autre approche, passant par le format de date ISO yyyy-mm-dd.
Cordialement.

**SR.SFC** · 19/04/2024, 11h58

Bonjour,

Dans le format d'affichage, il est possible de faire précéder par un code indiquant le pays.
Qu'indique les 2 premiers formats de date ? Sont-ils précédé par * ?

**HABILER** · 19/04/2024, 12h09

Résultat identoque.

**HABILER** · 19/04/2024, 21h41

Voici le forlat date :
Nom : Annotation 2024-04-19 213757.png
Affichages : 69
Taille : 28,5 Ko

**patmicro** · 20/04/2024, 09h17

Bonjour il y a quelque chose qui m'intrigue : Je suppose que vous habitez en France et votre ordinateur est en Anglais et la région est la Belgique. Vous pouvez préciser ?