Macro convertir

Bonjour,

J'ai enregistre une macro dans le but de convertir mes dates (données, convertir, suivant, suivant et terminer)

Après enregistrement quand j'essaye d'appliquer ma macro cela ne fait rien

    Range("A2:A6").Select
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

Merci de votre aide

Bonjour,

ça ne fais rien parce que tu lui demande de ne rien faire ! C'est quoi comme résultat que tu attends ? Ta date est sous quel format ?

Avec le fichier ça sera mieux

avant : 21/02

après : 21-févr

Re,

Le problème, c'est que tes valeurs en colonne A ne sont pas des dates comme le conçois Excel, 21/02 pour Excel c'est du texte au même titre que "Bigben2013". Pour qu'Excel considère tes valeurs comme des dates, il faut ajouter l'année 21/02/2017, si tu entres cette valeur, tu verras qu'elle s'aligne droite à et plus à gauche (par défaut bien sûr, pas si c'est formaté de la sorte). Si tes valeurs doivent rester comme ça, je te propose un artifice :

Sub Test()

    Dim I As Integer
    Dim Tbl

    For I = 2 To 6

        Tbl = Split(Range("A" & I).Value, "/")

        Range("B" & I).Value = Tbl(1) & "-" & Choose(CInt(Tbl(1)), "janv", "févr", "mars", "avr", "mai", "juin", _
                                                                   "juil", "août", "sept", "oct", "nov", "déc")

    Next I

End Sub

merci c'est top