Discussion :

[VBBBA]

Bonsoir à tous

Je reviens vers vous pour un petit pb de conversion d'une colonne

J'ai une colonne, sur une feuille excel, au format texte dans laquelle j'ai en fait des dates. La date est affichée au format jj/mm/aa hh:mm:ss:....

exemple: 26/10/07 10:54:01.493

Mon but est de ne garder que 26/10/2007 et en format date.

J'ai parcouru le site mais rien à faire.
Toute aide serala bin venue et remerciée par avance

[fred65200]

bonjour
le code suivant devrait te convenir

Code :

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

1
2
3
4
5
6
7
8
 
Sub ConversionEnDate()
Dim maChaine As String
Dim maDate As Date
maChaine = "26/10/07 10:54:01.493"
maDate = CDate(Left(maChaine, 8))
MsgBox maDate
End Sub

cordialement

[VBBBA]

j'essaye sur le champ!!!!!!!

Je vois....
Le pb sur cette methode est qu'elle peut être lente sur une colonne de 5000 lignes. Non?

[fred65200]

bonsoir

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub ConversionEnDate()
Dim maChaine As String
Dim maDate As Date
Dim i As Long
For i = 2 To 5001
Cells(i, 2) = CDate(Left(Cells(i, 1), 8))
Next '
End Sub

environ 1 seconde

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub ConversionEnDate()
Dim maChaine As String
Dim maDate As Date
Dim C As Range
For Each C In Range("A2:A5001")
C(1, 2) = CDate(Left(C.Value, 8))
Next '
End Sub

un poil plus rapide

cordialement

[VBBBA]

C'est que ça a l'air de marcher!!!!
C'etait aussi simple que ça???
Merci à toi l'ami

[VBBBA]

Moi je voulais que le changementse fasse sur la même cellule.
Et ça marche aussi comme ça.
Alor C'est tout bon!

Je peux pas une expression comme tu propose même si elle est efficace
Dans mon cas avant de faire ce traitement je supprime descolonnes dans mon fichier.
La colonne des dates passe ainsi de la colonne F à A. Donc je prefere faire le traitement via une macro vba

[fred65200]

re
un autre post car une autre approche

Code :

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

=DATEVAL(GAUCHE(A2;8))

avec un format de date dans la cellule.
À incrémenter (double clic dans le coin inférieur droit de la cellule quand il y a la petite croix)

@+