modifier le format de données importées depuis un fichier texte

  • Initiateur de la discussion Initiateur de la discussion ivan27
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ivan27

XLDnaute Occasionnel
Bonsoir à tous,

Dans le fichier ci-joint, j'ai des données importées depuis un fichier texte.
Je souhaite transformer les données par macro.
Colonne "A", il s'agit de retirer l'heure et de conserver la date.
Avant : 11/04/2012 02:10
Après : 11/04/2012

Concernant la colonne Kilomètres "B", je souhaite convertir les nombres en valeur numérique à virgule.
Avant : 1395.74
Après : 1395,74

Merci d'avance pour votre aide.

Ivan
 

Pièces jointes

Re : modifier le format de données importées depuis un fichier texte

Bonsoir et merci Victor,

J'avais la solution par formule.
Comme spécifié dans ma demande initiale, je cherche à faire la même chose avec une macro en laissant les données dans leur colonne d'origine.

Ivan
 
Re : modifier le format de données importées depuis un fichier texte

Re,

Un essai à améliorer en pj (je débute avec les tableaux)
VB:
 Option Explicit

Sub Conversion()
    Dim Tableau()
    Dim B As Variant
    Dim NbLig As Long
    Dim NbCol As Integer
    Dim i As Long
    Dim j As Integer

    Application.ScreenUpdating = False
    With Sheets("Feuil1")
        .Activate
        .Range("A2").Select
    End With

    With Selection.CurrentRegion
        Intersect(.Cells, .Offset(1)).Select
    End With

    B = Selection.Value
    NbLig = UBound(B)
    NbCol = 2
    For i = 1 To NbLig
        For j = 1 To NbCol
            ReDim Preserve Tableau(1 To NbLig, 1 To NbCol)
            Tableau(i, 1) = Int(B(i, 1))
            Tableau(i, 2) = Replace(B(i, 2), ".", ",")
        Next j
    Next i
    Range("A2").Resize(UBound(Tableau, 1), UBound(Tableau, 2)) = Tableau

    Columns("A:A").NumberFormat = "dd/mm/yyyy"
    Columns("B:B").NumberFormat = "0,00"
    Range("A1").Select
End Sub
Les critiques et/ou corrections sont non seulement acceptées, mais même bienvenues 🙂
 

Pièces jointes

Re : modifier le format de données importées depuis un fichier texte

Bonsoir tout le monde,

J'ai réussi à faire deux petites macros séparées.
Même si le code n'est pas d'une très grande technicité, il a le mérite de fonctionner et d'être facilement configurable pour les débutants tels que moi.
Je vous livre à toute fin utile et encore merci à tous pour vos recherches.
Cdlt,

Ivan
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour