Tronquer une date

Version imprimable

Tronquer une date

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:

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

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

Code:

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

27/09/2012, 10h02
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.
27/09/2012, 10h09
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.

Bonjour,

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

Code:

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

27/09/2012, 11h28
Mrfreeze117

Non en changent juste le format les données des heures restent toujours dans la cellule, elles ne sont juste pas affichées.
27/09/2012, 11h41
Didier Gonard

Bonjour,

Citation:

Envoyé par Mrfreeze117

... 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

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:

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

Code:

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

27/09/2012, 12h03
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:

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
27/09/2012, 13h01
78chris

Bonjour

Citation:

Envoyé par Ormonth

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:

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...
27/09/2012, 13h27
Didier Gonard

Citation:

Envoyé par 78chris

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 :D

cordialement,

Didier