Discussion :

[Mrfreeze117]

Bonjour à tous,

Voilà j'ai un problème j'ai tout un tas de données avec dans une colonne des dates au format jj/mm/yyyy hh:mm:ss, mon problème est que lorsque je tronque ma date pour enlever hh:mm:ss cela m'inverse les jours avec les mois.
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub convertir_date()
 
Dim i As Integer, fin_tab As Integer, j As Integer, fin_col As Integer
Dim Date_deb As String
 
 
'trouve la colonne dans laquel est Date et heure de début
fin_col = ActiveSheet.UsedRange.Columns.Count
For j = 1 To fin_col
If Cells(1, j).Value = "Date et heure de début" Then
Exit For
End If
Next
 
 
fin_tab = ActiveSheet.UsedRange.Rows.Count
 
For i = 2 To fin_tab
Date_deb = Cells(i, j).Value
Date_deb = Left(Cells(i, j).Value, Len(Cells(i, j).Value) - 9)
Cells(i, j).Value = Date_deb
Next
 
 
End Sub

Pour illustrer voilà un exemple du problème, ma date de début est: 06/08/2012 05:17:00 que je voudrais convertir en 06/08/2012 et donc supprimer l'information de temps "heure". Lorsque que j'utilise mon code cela me donne 08/06/2012, au départ je me suis dit ce n'est pas grave c'est que ça c'est mis au format anglais mm/jj/yyyy mais en faite non c'est bien au format jj/mm/yyyy et du coup au lieu d'avoir le 6 aout 2012, j'ai le 8 juin 2012. Je n'ai aucune idée de pourquoi ça fait ça.

Auriez vous des idées?

Merci d'avance

[Mrfreeze117]

Je viens d'essayer une autre méthode et toujours le même problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub convertir_date()
 
Dim i As Integer, fin_tab As Integer, j As Integer, fin_col As Integer
Dim Date_deb As String
 
 
'trouve la colonne dans laquel est Date et heure de début
fin_col = ActiveSheet.UsedRange.Columns.Count
For j = 1 To fin_col
If Cells(1, j).Value = "Date et heure de début" Then
Exit For
End If
Next
 
 
fin_tab = ActiveSheet.UsedRange.Rows.Count
 
For i = 2 To fin_tab
Cells(i, j).Value = Format(Cells(i, j).Value, "dd/mm/yyyy")
Next
 
 
End Sub

[78chris]

Bonjour

Les dates étant des nombres, les heures les décimales (1/24 pour 1 heure) si tu veux tronquer tu peux utiliser la partie entière de la valeur.

SI le format de cellule est déjà en date, cela restera en date.

[Mrfreeze117]

78chris, avec ma deuxième solution cela ne devrais pas posé de problème et pourtant cela inverse toujours les jours et les mois.

[QuestVba]

Bonjour,

en modifiant le format n'estce pas suffisant (voir modif en rose). Chez moi, cela fonctionne apparemment.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub convertir_date()
 
Dim i As Integer, fin_tab As Integer, j As Integer, fin_col As Integer
Dim Date_deb As String
  
'trouve la colonne dans laquel est Date et heure de début
fin_col = ActiveSheet.UsedRange.Columns.Count
For j = 1 To fin_col
If Cells(1, j).Value = "Date et heure de début" Then
Exit For
End If
Next
  
fin_tab = ActiveSheet.UsedRange.Rows.Count

x = Application.International(xlCountryCode)

For i = 2 To fin_tab
Cells(i, j).Select
Selection.NumberFormat = "m/d/yyyy"
Next
  
End Sub

[Mrfreeze117]

Non en changent juste le format les données des heures restent toujours dans la cellule, elles ne sont juste pas affichées.

[Didier Gonard]

Bonjour,

... cela m'inverse les jours avec les mois... /... Je n'ai aucune idée de pourquoi ça fait ça. Auriez vous des idées?

oui, vois ce tuto :
Comprendre et gérer les dates sous Excel et en VBA

le VBA est en US, si possibilité d'interprétation (mois = ou inférieurs à 12), il prend la version US...

cordialement,

Didier

[gnusti]

Bonjour,

Essaie ça et voit si tu peux l'adapter à ton cas. En gérant des types Date, il y a normalement moins de rique...

Code :

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

1
2
3
4
5
Public Function TronqueDate(uneDate As Date) As Date
 
    TronqueDate = DateSerial(Year(uneDate), Month(uneDate), Day(uneDate))
 
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub ParcoursLesLignes()
 
    Dim i As Integer
    Dim fin_tab As Integer
    Dim j As Integer
 
    j = 1
    fin_tab = 28
 
 
    For i = 2 To fin_tab
        Feuil1.Cells(i, j).Value = TronqueDate(Feuil1.Cells(i, j).Value)
        Feuil1.Cells(i, j).NumberFormat = "m/d/yyyy"
    Next
 
 
 
End Sub

[Didier Gonard]

Bonjour,

je te donne une piste, claire une fois assimilé le système des dates :

les dates / heures = des numéros de séries
les heures = la partie après la virgule de ce nombre

tu sélectionnes une cellule ou tu as ta date-heure et tu valides ce code

Code :

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

  ActiveCell = Int(CDbl(ActiveCell.Value))

tu regardes l'aide VBA sur les mots clefs au besoin et tu adaptes, le reste n'étant qu'une mise au format des cellules, tes heures étant à 00:00:00

cordialement,


Didier

[78chris]

Bonjour

Bonjour,

je te donne une piste, claire une fois assimilé le système des dates :

les dates / heures = des numéros de séries
les heures = la partie après la virgule de ce nombre

tu sélectionnes une cellule ou tu as ta date-heure et tu valides ce code

Code :

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

  ActiveCell = Int(CDbl(ActiveCell.Value))

tu regardes l'aide VBA sur les mots clefs au besoin et tu adaptes, le reste n'étant qu'une mise au format des cellules, tes heures étant à 00:00:00

cordialement,
Didier

C'est que j'ai proposé à 10H mis apparemment, Mrfreeze117 préfère son code...

[Didier Gonard]

C'est que j'ai proposé à 10H mis apparemment, Mrfreeze117 préfère son code...

OK exact, pas vu

C’était pour appuyer le lien vers le tuto, car tant qu'il ne sait pas ce qui se passe on parlera chinois

cordialement,

Didier