Discussion :

[thomhcv59]

Bonjour tous le monde ,

Peut-on couper une date 30/07/2013 16:01 pour l'avoir comme ceci 30/07/2013

en VBA?

Merci d'avance

[Invité]

Code :

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

format(date,"dd/mm/yyyy")

[thomhcv59]

Merci beaucoup

[thomhcv59]

en faite je me suis mal exprimé,

j'ai une colonne D dont le format de la date est 30/07/2013 11:17 , la plage des dates commence à D2.

Mon but est de faire une macro qui remplace toutes les dates (30/07/2013 11:17 ) par 30/07/2013

Est ce possible ?

Désolé pour la mauvaise formulation sur mon post précédent

Merci d'avance

[Docmarti]

Bonjour thomhcv59


Tu peux extraire la partie date avec

Code :

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

1
2
3
 
valeur = Cells(i, "A").Value
Cells(i, "A").Value = DateValue(CDate(valeur )))

Si tu voulais la partie heure, ce serait :

Code :

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

Cells(i, "A").Value = TimeValue(CDate(valeur )))

[EngueEngue]

robert a répondu à ta question... il te suffit de changer ton format soit tu boucles et tu fais une macro et tu te galères soit tu cliques sur la colonne et tu changes le format.

[thomhcv59]

Bonjour Docmarti,

Quand je lance ton code il me met une erreur

" erreur définie par l'application ou par l'objet "