[Macro] Conversion nombre en date

Version imprimable

18/03/2015, 09h30
Florian53

1 pièce(s) jointe(s)

Bonjour,

Sur une base de données excel je dispose d'une centaine de ligne qui sont extraite via un logiciel mais celui ci ne me met pas en forme la date correctement:

Il me met une date sous la forme "20150102" alors que je souhaiterais l'avoir sous la forme " 01/02/2015".

Je suis a la recherche d'un code VBA afin de pouvoir avoir une facilité de lecture plus aisée.

Cordialement

Voici un exemple du fichier les colonnes que j'aimerais retranscrire correctement sont de G à K
18/03/2015, 10h38
Marc-L

Bonjour,

utiliser Convertir du menu Données …

Et si vraiment un code est nécessaire, en activant le Générateur de macros …

__________________________________________________________________________________________________
Tous unis, tous Charlie
18/03/2015, 10h59
Florian53

Merci pour l'astuce.

Actuellement j'utilise la formule

Citation:

=DATE(GAUCHE(J2;4);STXT(J2;5;2);DROITE(J2;2))

mais il faut que j’insère une colonne a coté ce qui est un peu contraignant.

Je souhaiterais qu'une macro soit attaché au fichier ce qui ferais que dés l'ouverture le changement se face automatiquement dans la même cellule et que l'utilisateur n'en voit rien . Est ce possible

bonjour,
Voici un code pour la colonne F ca t'aidera à
comprendre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub Conversion()
Dim LastLigne As Long, X As Long, Temp As String
LastLigne = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
 
    For X = 3 To LastLigne
        ' Conversion de la colonne F
        If IsNumeric(Sheets(1).Range("F" & X).Value) Then
            Temp = CStr(Sheets(1).Range("F" & X).Value)
 
            Sheets(1).Range("F" & X) = DateSerial(Mid(Temp, 1, 4), (Mid(Temp, 5, 2)), 1)
        End If
        Sheets(1).Range("F" & X).Value = Format(Sheets(1).Range("F" & X).Value, "mm/yyyy")
    Next X
 
End Sub

18/03/2015, 11h05
Marc-L

Citation:

Envoyé par Florian53

Est ce possible

Oui via Convertir !

TextToColumns en VBA, une seule ligne de code, sans boucle …
18/03/2015, 12h06
Florian53

Marc-L: je ne comprends pas TextToColumns ou dois je mettre ça

Ashireon: effectivement sa marche bien mais j'aimerais avoir un format comme ça "jj/mm/yyyy" je ne vois pas comment integrer les jours j'ai fais quelques essais mais non concluant.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CeQueMarcLTeDisait()
Dim i As Integer
 
For i = 0 To 3
    CONVERTIR Worksheets("Sheet1").Columns("H:H").Offset(, i)
Next i
End Sub
 
 
Private Sub CONVERTIR(ByVal Plage As Range)
 
Plage.TextToColumns Destination:=Plage.Cells(1, 1), DataType:=xlDelimited, FieldInfo:=Array(1, 5)
End Sub

18/03/2015, 13h25
Florian53

Nickel merci tout le monde sa marche impeccable par contre quelqu'un peut m'expliquer cette ligne là svp

Code:

Plage.TextToColumns Destination:=Plage.Cells(1, 1), DataType:=xlDelimited, FieldInfo:=Array(1, 5)
18/03/2015, 13h37
mercatog

En utilisant l'enregistreur de macro et en épurant plus tard ce que Marcel-G essaie de te faire comprendre (Onglet Données > Convertir et en choisissant les paramètres adéquats)