Microsoft 365 Conversion format date

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Novembre 2023

• #2

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

VB:

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

 

Pièces jointes

• Conversion date.xlsm

  17.8 KB · Affichages: 1

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Novembre 2023

• #3

Bonjour.
Personnellement je ferais :

VB:

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 1 Novembre 2023

• #4

Bonjour à tous

Je te propose ce fichier

Merci de ton retour

 

Pièces jointes

• Conversion date V1.xlsm

  16.9 KB · Affichages: 6

Vote positif 0 Vote négatif

H

hbb

XLDnaute Occasionnel

• 1 Novembre 2023

• #5

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 1 Novembre 2023

• #6

hbb à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif