Date=amj

Version imprimable

23/12/2015, 23h55
goul2015

Macro inversion de date colone Donnés=>convertir=>largeur fixe=>Date=amj

Bonjour,

Je cherche désespérément à faire une macro VBA pour remettre dans le bonne ordre et avec des slash des date d'une colone dans un tableau excel .

En gros , j'ai pleins de date dans une colone sous ce format : 20160101 et j'aimerai que ça soit affiché 01/01/2016

j'ai trouvé la fonction manuelle : Donnés=>convertir=>largeur fixe=>Date=amj mais j'aimerai l'automatisé avec d 'autre fonction de mise en page .

J'ai essayé aussi le changement de format de la cellule en vba mais il prend 20160101 pour un chiffre standard donc ca ne fonctionne pas .

Mile merci par avance pour votre aide ... j'ai passé des heures à chercher :(:(:(:(

Bonjour,

Une solution possible avec une fonction basée sur DateSerial. La fonction est à mettre dans un module standard.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function ReformaterDateV1(ByVal DateAMJ As Variant) As Date
 
         Application.Volatile
         If Len(DateAMJ) = 8 Then
            ReformaterDateV1 = DateSerial(Mid(DateAMJ, 1, 4), Mid(DateAMJ, 5, 2), Mid(DateAMJ, 7, 2))
         End If
 
End Function
 
Function ReformaterDateV2(ByVal DateAMJ As Variant) As Variant
 
         Application.Volatile
         If Len(DateAMJ) = 8 Then
            ReformaterDateV2 = DateSerial(Mid(DateAMJ, 1, 4), Mid(DateAMJ, 5, 2), Mid(DateAMJ, 7, 2))
         Else
            ReformaterDateV2 = ""
         End If
 
End Function

Pièce jointe 196277

Cordialement.

Bonjour,

Une autre fonction plus simple

Code:

1
2
3
Function Text2Date(value As String) As Date
  Text2Date = CDate(Format(value, "0000/00/00"))
End Function

01/01/2016, 19h24
Marc-L

Bonjour, bonjour !

Citation:

Envoyé par goul2015

j'ai trouvé la fonction manuelle : Donnés=>convertir=>largeur fixe=>Date=amj mais j'aimerai l'automatisé avec d 'autre fonction de mise en page .

Elle existe aussi en VBA, suffit d'activer l'Enregistreur de macros : une base de code est livrée sur un plateau ‼
(TextToColumns …)

______________________________________________________________________________________________________
Je suis Paris, …
01/01/2016, 19h56
Invité

Bonjour et bonne année!

Code:

Text2Date = Format("20160101" , "0000-00-00")