Microsoft 365 Conversion format date

[hbb]

Bonjour à tous,
Il se passe quelque-chose d'étrange quand j'essaie de transformer une cellule du type 02.11.2023 en date 02/11/2023.
Quand je fais cette transformation manuellement par Ctrl+H-conversion ==> C'est OK, j'arrive donc à croiser les tableaux 1 et 2
J'ai enregistré cette opération dans une macro ==> En auto (ou en pas à pas), la date 02.11 se transforme en 11/02
Et là, c'est beaucoup moins marrant...

Merci d'avance pour votre aide précieuse !!!
Hbb

 

[sylvanu]

Bonjour Hbb,
Le VBA ne parle qu' english ! alors qu' XL parle dans la langue système.
Une solution parmi d'autres :

Sub Macro13()
For C = 3 To 18
    D = Split(Cells(2, C), ".")
    Cells(2, C) = Format(DateSerial(D(2), D(1), D(0)), "mm/dd/yyyy")
Next C
End Sub

 

[Dranreb]

Bonjour.
Personnellement je ferais :

Sub Macro13()
   Dim T(), C As Integer
   With ActiveSheet.Range("C2:R2")
      T = .Value
      For C = 1 To UBound(T, 2)
         T(1, C) = DateValue(Replace(T(1, C), ".", "/"))
         Next C
      .Value = T
      End With
   End Sub

 

[Phil69970]

Bonjour à tous

Je te propose ce fichier

Merci de ton retour

 

[hbb]

Merci Sylvanu, Dranreb et Phil69970 pour votre aide à tous les 3 !!!
ça fonctionne si parfaitement et si simplement
bonne journée,

 

[Modeste geedee]

Bonjour à tous,
Il se passe quelque-chose d'étrange quand j'essaie de transformer une cellule du type 02.11.2023 en date 02/11/2023.
Quand je fais cette transformation manuellement par Ctrl+H-conversion ==> C'est OK
Hbb

Bonsour,
Si les dates sont en colonne,
Utiliser l'outil de conversion,
À l'étape 3 préciser le format lu : JMA
Renouveler l'opération si d'autres colonnes