Récupérer que la date et supprimer l'heure d'une cellule

[christ-94]

Bonjour

J'ai un petit probleme sur une cellule
qui contient une date de la forme

23/06/2010 22:00:00

j'aimerai suprimé l'heure
j'ai donc utilise en VBA
Columns("A:A").NumberFormat = "d-mmm-yy"

cela fonctionne en apparence
mais si je fais une concatener l'heure revient

Il doit bien y avoir un moyen

Merci d'avance de vos reponses

 

[Tibo]

Re : Récupérer que la date et supprimer l'heure d'une cellule

Bonjour,

Un format ne permet pas de modifier le contenu de cellules.

Le principe est de prendre la partie entière de la date - heure.

Par formule, on pourrait appliquer une formule de ce type :

=ENT(A1)

Je suppose qu'on doit pouvoir faire la même chose en VBA

Je te laisse essayer

@+

 

[Efgé]

Re : Récupérer que la date et supprimer l'heure d'une cellule

Bonjour christ-94,
Peut être avec :

 Sub Test()
For Each c In Sheets("Feuil1").Range("A1:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
    c.Value = Left(c, 10)
    c.NumberFormat = "m/d/yyyy"
Next c
End Sub

Cordialement

 

[christ-94]

Re : Récupérer que la date et supprimer l'heure d'une cellule

Bonjour a vous

Un grand merci pour les reponses "cela fonctionne"

A+

 

[Efgé]

Re : Récupérer que la date et supprimer l'heure d'une cellule

Tibo, je pensai pouvoir te saluer lors d'un autre post sur ce fil, mais comme christ-94 à trouvé chaussure à son pied... ... je te salut quand même
Cordialement

 

[Paritec]

Re : Récupérer que la date et supprimer l'heure d'une cellule

Bonsoir Tibo Efgé Chris94,
pour Tibo, oui bien sur qu'on peut le faire en vba sans problèmes
mais c'était surtout pour saluer Tibo et Efgé
bonne soirée
papou