Macro date

bonjour,

J'ai essayé également mais sans succès.. je pense que ça vient du fait que dans une même colonne j'ai 2 format (19/02/2018-20/02/2018 ou fevrier 2018) du coup je convertit mes dates pour avoir des colonnes différente dans ma macro je souhaite séparer les jours/mois/année pour ensuite les utiliser en TCD (j'utilise la convertion il existe peur-être un autre moyen?)
je ne peux pas mettre le classeur sur un site partagé ce qu'il contient est confidentiel... Ci-dessous la dernière macro qui fonctionnait plus ou moins mais lorsque je veux la mettre sur un autre fichier elle inverse

Columns("T:Y").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("S:S").Select
Selection.TextToColumns Destination:=Range("T1"), DataType:=xlFixedWidth, _
OtherChar:="/", FieldInfo:=Array(Array(0, 1), Array(10, 1), Array(12, 1)), _
TrailingMinusNumbers:=True
Columns("V:V").Select
Selection.TextToColumns Destination:=Range("V1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, OtherChar _
:="/", FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
Selection.TextToColumns Destination:=Range("V1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
Selection.NumberFormat = "0"
ActiveSheet.Range("$A$1:$BP$34464").AutoFilter Field:=21, Criteria1:="="
Columns("T:T").Select
Selection.TextToColumns Destination:=Range("T1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, OtherChar _
:="/", FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
Selection.TextToColumns Destination:=Range("V1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
Columns("W:X").Select
Selection.NumberFormat = "0"
Range("V3:V34464").Select
Selection.ClearContents
Range("V3").Select
ActiveSheet.Range("$A$1:$BP$34464").AutoFilter Field:=21
Columns("T:T").Select
Selection.Delete Shift:=xlToLeft
Columns("U:W").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("V7").Select
End Sub

C'est missiion impossible sans le classeur.

je vais voir ce que je peux faire pour enlever certaines infos et le partager

bonjour, pour qui pourquoi je n'arrive pas à le partager... je ne pense pas que tu puisse m'aider mais en gros j'ai ça : des périodes à transformer en 1 colonne jour, 1 mois et 1 année

Période de programation Période de

7 - 2018 7 2018
19/01/2018 - 19/01/2018 19 1 2018
19/01/2018 - 19/01/2018 19 1 2018
02/03/2018 - 02/03/2018 2 3 2018
19/01/2018 - 19/01/2018 19 1 2018
7 - 2018 7 2018
19/04/2018 - 19/04/2018 19 4 2018
19/04/2018 - 19/04/2018 19 4 2018
12 - 2018 12 2018

c'est bon j'ai résolu mon problème en utilisant une formule différente