Discussion :

[Florian53]

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

[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

[Florian53]

Merci pour l'astuce.

Actuellement j'utilise la formule

=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

[Marc-L]

Est ce possible

Oui via Convertir !

TextToColumns en VBA, une seule ligne de code, sans boucle …

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

[mercatog]

Code :

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

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

[Ashireon]

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

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