Discussion :

[Mattrois]

bonjour,

Je tente désespérément de créer une macro pour avoir un "format date" dans une colonne (oui je sais c'est ridicule de ne pas y parvenir...)
Le fichier source est un fichier txt. Et la première colonne correspond à des dates. Cependant dans le fichier txt, les dates qui commencent par un zéro (tous les 9 premiers jours des mois) sont en format 10113.
Afin de résoudre ce problème j'ai réalisé une macro pour ajouter le zéro (mais c'est possible qu'en format TEXTE)
et là quand je tente de passer une macro pour avoir un format ##/##/####
il ne "récupère" pas le zéro
voici les codes que j'ai mis en place :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Pilotage_DateenCetD()
' rajout zéro pour création "date"
Sheets("Feuil2").Select
Dim Nc, Cel As Range
Columns(1).Select
For Each Cel In Selection
Nc = Len(Cel)
If Nc = 5 Then Cel = "0" & Cel
Next Cel
End Sub

Donc après ça j'ai un format en 010113, sur lequel je veux rajouter les "/" et le siècle.

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
 
Sub FormatDATE()
 
Sheets("Feuil2").Select
 
 
ActiveSheet.Columns(1).NumberFormat = "##""/""##""/20""##" 'je modifie le format
Dim Nc, Cel As Range
 
For Each Cel In Range("a2:a65000") 'j'ai rajouté ceci en espérant que ça allait rajouter le 0 devant
Nc = Len(Cel)
If Nc = 9 Then Cel = "0" & Cel
Next Cel
 
End Sub

Mais hélas ça passe en 1/01/2013

J'ai aussi tenté avec une concaténation.

Désolé si je ne suis pas explicite (c'est mon premier post, et je suis débutant)

Merci d'avance pour vos conseils, remarques ou autres

Mat

[Invité]

Bonjour,

Une solution possible

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
26
27
28
29
Sub Pilotage_DateEnCetD()
 
Dim DerniereLigne As Long
Dim Cellule As Range
Dim AireDate As Range
Dim ValeurDate As Date
 
 
   Sheets("Feuil2").Activate
   DerniereLigne = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
 
   Set AireDate = Sheets("Feuil2").Range(Cells(1, 1), Cells(DerniereLigne, 1))
 
   For Each Cellule In AireDate
 
         Select Case Len(Cellule)
            Case 5
               ValeurDate = DateSerial(Mid(Cellule, 4, 2), Mid(Cellule, 2, 2), Mid(Cellule, 1, 1))
            Case 6
                ValeurDate = DateSerial(Mid(Cellule, 5, 2), Mid(Cellule, 3, 2), Mid(Cellule, 1, 2))
         End Select
 
         Cellule = ValeurDate
 
   Next Cellule
 
   Set AireDate = Nothing
 
End Sub

Cordialement.

[Mattrois]

Merci Erik pour cette proposition
Cependant ça me pose 2 problèmes :
- Le mois est inversé : c'est à dire que 10213 devient 2/1/2013
je pense que c'est au niveau du position dans le Mid()

- ça me "supprime" toujours mes zéros
mon exemple du 10213 (premier février 2013) je souhaiterais que ça devienne
01/02/2013

je suppose que le problème vient du format original : format TEXTE

[Ashireon]

essaie ceci dans ton code

A la place de

Code :

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

Cellule = ValeurDate

ceci

Code :

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

Cellule = Format(ValeurDate,"dd/mm/yyyy")

[Mattrois]

Eric !!!


ne cherches plus, tu es un Boss !
en fait mon format original était du standard, donc ta proposition est LA solution a mon problème
Car quand je fais tourner ça, sur mon document source (et non sur mon document dans lequel j'ai déjà modifié le format, ajouté des zéros etc... ) ça fonctionne PARFAITEMENT !

Je te remercie beaucoup

Matt