Convertir format Date Heure en format Date

[pierrof]

Bonjour tout le monde,

Je souhaiterais à l'aide d'une macro copier et modifier le format d'une cellule. Sur le fichier joint j'ai une colonne avec des Dates et heures et j'aimerai copier cette colonne en ne gardant uniquement la date.

Merci de votre aide et de vos conseil.

Cordialement

 

[pierrejean]

Bonjour pierrof
Un essai

 

[patricktoulon]

bonjour
pas besoins de vba pour ça va vire ton bouton et vba
met ceci en Z2
=SIERREUR(DATE(ANNEE($J2);MOIS($J2);JOUR($J2));"")

et entends la formule jusqu'en bas

 

[pierrof]

Bonjour pierrejean et bonjours patricktoulon

Merci de vos réponses. Pour pierrejean lorsque je sélectionne la cellule j'ai toujours l’information de l'heure il faudrait la supprimer.
Pour patricktoulon, effectivement c'est le bon résultat attendu mais il faut vraiment que je passe par du VBA.
Merci

Cordialement

 

[patricktoulon]

re

Sub testouille()
    With Range("z2:z" & Cells(Rows.Count, "J").End(xlUp).Row)
        .NumberFormat = "dd/mm/yyyy"
        .FormulaR1C1 = "=IFERROR(DATE(YEAR(RC[-16]),MONTH(RC[-16]),DAY(RC[-16])),"""")"
        '.Value = .Value 'débloque si tu ne veux garder que les dates et virer les formules
    End With
End Sub

 

[pierrof]

Merci patricktoulon.
ça fonctionne, je garde ce code précieusement.

Cordialement

 

[Dranreb]

Bonjour.
Un peu plus simple :

Private Sub CommandButton1_Click()
   With Range("Z2:Z" & Range("J65536").End(xlUp).Row)
      .Formula = "=INT($J2)": .Value = .Value
      .NumberFormat = "m/d/yyyy": End With
   End Sub

Il faut se souvenir en effect que toutes les dates, heures, instants et durées ont la même unité de temps: le jour, et que par conséqunt la date en est la partie entière.