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

[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

[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

[Florian53]

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

Code :

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

Plage.TextToColumns Destination:=Plage.Cells(1, 1), DataType:=xlDelimited, FieldInfo:=Array(1, 5)

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