Discussion :

[imaril]

Bonjour,

j'ai un petit problème suite à l'import d'un fichier CSV.
une de mes colonne importée contient des dates, et dans le fichier excel, les dates sont aléatoirement conciderer comme date ou string ce qui empeche de faire des filtres automatiques.
Le parcours de chacune des ligne avec

Code :

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

 range("h" & ligne)=cdate(range("h" & ligne))

est impossible car le fichier contient plus de 15 000 ligne...
Avez vous une solution ?

[Fvandermeulen]

Bonjour,
...
Le parcours de chacune des ligne avec

Code :

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

 range("h" & ligne)=cdate(range("h" & ligne))

est impossible car le fichier contient plus de 15 000 ligne...
Avez vous une solution ?

Pourquoi n'est-ce pas possible ?

Sinon, en fonction de ta méthode d'import du CSV, tu peux peut-être directement travailler sur les lignes CSV.

A+

[imaril]

je dit que ce n'est pas possible car cette manip prend a peu près 10minutes...
pour les condition dans l'import, en fait quand je fais le workbooks.open et que je met mon fichier CSV, il l'ouvre directement en format excel ( pas toutes les colonnes dans la même cellule) donc je peux pas faire tu convertir...

[Fvandermeulen]

je dit que ce n'est pas possible car cette manip prend a peu près 10minutes...

As tu essayé en mettant le sreenupdating à False et/ou en désactivant les calculs automatiques?
Ca me parrait énorme pour "seulement" 15000 lignes?

[imaril]

oui oui je le fais toujours le screen update
mais vu qu'il y a pas de formule, j'avais pas mis le calculate, je test apres manger avec le calculate et je te tiens au courant

[Didier Gonard]

Bonjour,

par vba ou autre...
tu ajoutes une colonne en vba à côté de la tienne (la C ajoutée par exemple à gauche de la D qui contient tes données) et tu appliques :

Code :

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

1
2
3
4
5
6
Sub Trans()
With Columns("C:C")
    .FormulaR1C1 = "=RC[1]*24/24"
   .NumberFormat = "m/d/yyyy" 'ou format voulu...
End With
End Sub

Sans vba..
tu ajoutes la colonne, tu la sélectionnes, tu tapes =, clic sur la cellule de la m^me ligne de la colonne voulue, *24/24 et tu valides par CTRL+Entrée

tu supprimes l'ancienne ensuite...

cordialement,

Didier

[imaril]

Je souhaite que se soit fait par macro (car ensuite il y a un autre traitement)
mais a quoi sert le *24/24 ??

[Didier Gonard]

Bonjour,
en premier lieu, le soucis est de savoir si ça marche chez toi ?

Sinon, c'est trop long à expliquer en 2 lignes, ça tient de l'interprétation des dates sous Excel (différente en vba), de la notion de numéro de série et de la représentation décimale d'une durée...

Ainsi, pour Excel, la base de temps unitaire retenue est la journée, ce qui fait que pour une durée donnée le numéro de série sera identique en valeur à sa représentation décimale C'est fondamental aussi pour comprendre l'interprétation des nombres convertis en date-heure et pour les ambiguïtés des calculs horaires basiques. Le chiffre qui intervient est toujours exprimé en jour

la multiplication par 24 fait qu'Excel interprète tout ce qu'il peut en date, en divisant pas 24, on rétablit notre valeur d'origine qui nous retourne le numéro de série qui sera correctement formaté suivant le format qu'on applique à la colonne...

cordialement,

Didier

[imaril]

bon ca a l'air de marcher
je te remercie beaucoup et le traitement est rapide (même pour les 15Kligne)

edit : juste un petit problème dans toute les case vide de la colonne il me met 00/01/1900
ce n'est pas un problème très grave mais bon si il y a un moyen simple de l'éviter

[Didier Gonard]

Bonjour,

c'est logique, vois comme ceci :

Code :

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

1
2
3
4
5
6
Sub Trans()
With Columns("C:C")
   .FormulaR1C1 = "=IF(RC[1]<>"""",RC[1]*24/24,"""")"
   .NumberFormat = "m/d/yyyy"
End With
End Sub

sinon pour mieux comprendre tu peux répliquer le tableau ci-dessous dans une feuille



ps : les formules sont à relativiser par lignes...

cordialement,

Didier

[imaril]

Merci beaucoup et merci ² pour ta petite explication tres claire

a plus sur le forum

[Didier Gonard]

Bonjour,

voici plus propre, ça te rajoute une colonne transitoire, te fait le traitement voulu, recopie les valeurs de la colonne obtenue sur elle-même et supprime la colonne originelle... (car si tu supprimes la colonne tout court, les formules à côté ne vont pas aimer...)

attention => suppression colonne !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Trans2()
With Columns("D:D")
   .Insert Shift:=xlToRight
   '.select '' ne pas mettre dans le code surtout, à activer pour compréhension de la suite si besoin...
   ''le with column("D:D") pointe vers la colonne E apparente suite à l'insertion, mais qui représente toujours l'objet d'origine
   '' à savoir la colonne pointée via l'instruction With...
   .Offset(0, -1).FormulaR1C1 = "=IF(RC[1]<>"""",RC[1]*24/24,"""")"
   .Offset(0, -1).NumberFormat = "m/d/yyyy"
   .Offset(0, -1).Copy
   .Offset(0, -1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   .Delete
End With
End Sub

cordialement,

Didier

[imaril]

je t'ai devancé sur ce point je pense voici le code que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub convert_date(num_col As Integer) 
 
Columns(num_col).Insert Shift:=xlToRight 
With Columns(num_col) 
    .FormulaR1C1 = "=if(RC[1]<>"""",RC[1]*24/24,"""")" 
    .NumberFormat = "dd/mm/yyyy hh:mm" 
    .Copy 
    .PasteSpecial Paste:=xlPasteValues 
End With 
Cells(1, num_col) = Cells(1, num_col + 1) 
Columns(num_col + 1).EntireColumn.Delete 
End Sub

cela reviens au même je pense
par rapport au formule, je n'en ai pas besoin, vu que par la suite je vais copier tt les valeur de mon CSV dans un nouveau fichier et il n'y a pas de formule dans un CSV ^^