Discussion :

[goul2015]

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

[Invité]

Bonjour,

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

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

[AlainTech]

Bonjour,

Une autre fonction plus simple

Code :

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

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

[Marc-L]

Bonjour, bonjour !

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, …

[Invité]

Bonjour et bonne année!

Code :

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

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