Text to Columns conversion des heures.

Version imprimable

Bonjour à tous,

Je peux vous promette d'avoir parcouru et cherché sur le forum une réponse à mon problème, donc si je fais doublon:

1. Désolé. J'aurais une discussion sérieuse avec mes doigts qui ont agi contre ma volonté.
2. Merci de m'indiquer le chemin le plus court pour y accéder ;)

Voici mon problème:

Je veux intégrer un fichier csv sous Excel. J'ai une macro qui doit formater plusieurs données et notamment celle qui me pose problème.
Les données sont dans une colonnes "date" et les valeurs sont du type:

22/07/2015 13:30
22/07/2015 10:20
22/07/2015 09:48

Si je fais manuellement la conversion en passant par le Menu Excel (Données / Convertir), la scission se se fait correctement et j'ai le résultat suivant (celui qui est espéré):
Colonne |      A       |    B     |
Valeur  |  22/07/2015  |  13:30   |
A l'aide de l'enregistreur de Macro, j'ai refait exactement la même chose et le code donné est:
Code:

1 2 3 4 5 Columns("D:D").Select Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 4)), TrailingMinusNumbers:=True
Comme je suis un garçon assez basique, j'ai recopié le tout dans un autre bout de code que j'avais fait au préalable.

Le problème, c'est que lorsque je lance la macro, les date sont bien scindées, mais les heures sont traitées de la manière suivante:
Colonne | A | B | C |
Valeur | 22/07/2015 | 01:30 | PM |

Je ne comprend pas pourquoi il agit comme ça.

Auriez vous une idée ?

Merci d'avance pour votre aide.

Bonne journée

Bonjour,

regardez ceci:

'mettre en A1 une date au du type 01/12/2015 12:30

Code:

1
2
3
4
5
6
Sub test()
With ThisWorkbook.Worksheets("Feuil1")
.Cells(1, 2).Value = DateValue(.Cells(1, 1))
.Cells(1, 3).Value = FormatDateTime(TimeValue(.Cells(1, 1).Value), vbShortTime)
End With
End Sub

25/08/2015, 13h14
Marc-L

Bonjour,

ou plus simplement un rappel d'une donnée "Date - Heure" dans Excel :
c'est juste un nombre dont la partie entière représente la date et la partie décimale l'heure !
En consultant le tutoriel dédié aux dates …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Bonjour,

Dans ton fichier csv, les dates sont en string elles n'ont alors aucune valeurs numériques donc, tu pourrais faire un truc dans le genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Test() Dim Texte As String Texte = "22/07/2015 13:30" Cells(1, 1) = DateValue(Split(Texte, " ")(0)) Cells(1, 2) = Format(TimeValue(Split(Texte, " ")(1)), "hh:mm") End Sub
Hervé.

Bonjour Hervé,

Citation:

Envoyé par Theze

Bonjour,

Dans ton fichier csv, les dates sont en string elles n'ont alors aucune valeurs numériques donc, tu pourrais faire un truc dans le genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
 
    Dim Texte As String
 
    Texte = "22/07/2015 13:30"
 
    Cells(1, 1) = DateValue(Split(Texte, " ")(0))
    Cells(1, 2) = Format(TimeValue(Split(Texte, " ")(1)), "hh:mm")
 
End Sub

Hervé.

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
 
    Dim Texte As String
 
    Texte = "22/07/2015 13:30"
 
    Cells(1, 1) = Format(Texte, "yyyy-mm-dd") ' DateValue(Split(Texte, " ")(0))
    Cells(1, 2) = Format(Texte, "hh:mm") 'Format(TimeValue(Split(Texte, " ")(1)), "hh:mm")
 
End Sub

Citation:

Envoyé par Zejaylille

Code:

1
2
3
4
5
Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 4)), TrailingMinusNumbers:=True

Range(Cells(1, 1), Cells(1, 2)) = Array(Format(Texte, "yyyy-mm-dd"), Format(Texte, "hh:mm"))

13/06/2017, 14h47
physce

Bonjour,

Je déterre ce topic puisque je suis confronté exactement au même problème (13h devient 01h PM).
Les solutions proposées fonctionnent mais sont assez lente sur de grandes plages horaires contrairement à la méthode Données/Convertir qui est instantanée.

Comment se fait il que le résultat de "Données/Convertir" soit différent en vba qu'en manuel ?
N'y a-t-il pas une astuce a réaliser pour que ce soit pareil ?

Merci d'avance.
13/06/2017, 14h56
Invité

Bonjour,
Excel utilise les paramétrés régionaux (jj/mm/aaaa) par exemple et vba utilise le format américain (mm/dd/yyyy)!

pour éviter le problème de conversion implicite,je préconise le format internationale (yyyy-mm-dd)!

bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
Set plage = Sheets(1).Range("A1", Cells(Rows.Count, 1).End(xlUp))
textToColonneDateHeure plage
End Sub
 
Function textToColonneDateHeure(plage)
tablobase = plage.Value
ReDim tablo(UBound(tablobase), 2)
For i = 1 To UBound(tablobase)
tablo(i - 1, 0) = Split(tablobase(i, 1), " ")(0)
tablo(i - 1, 1) = Split(tablobase(i, 1), " ")(1)
Next
plage.Cells(1).Resize(UBound(tablo), 2) = tablo
plage.Columns(1).NumberFormat = "dd/mm/yyyy"
End Function

13/06/2017, 16h11
physce

Super, cette dernière solution marche et rapidement qui plus est.
C'est ce qui s'appelle être efficace.

Il ne me reste plus qu'à comprendre tout ça pour progresser un peu.

Merci.