IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Pbm avec TexToColumns


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juin 2005
    Messages
    179
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2005
    Messages : 179
    Par défaut Pbm avec TexToColumns
    Bonjour,

    petit problème VBA avec la fonction TextToColumns :
    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
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
     
     
    Sub Transfo()
    '
    ' Touche de raccourci du clavier: Ctrl+Maj+I
     
    Dim i As Integer
    Dim derniereColonne As Integer
     
    On Error GoTo ErrHandler
     
    derniereColonne = ActiveSheet.Range("IV1").End(xlToLeft).Column
     
    For i = 1 To derniereColonne Step 1 'de la 1ère colonne à la dernière colonne remplie
     
        Columns(i).Select 'on sélectionne la colonne i
     
        'on applique la fonction de conversion des données définie par l'enregistrement de la macro
        Selection.TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True
     
    Next i
     
    MsgBox ("La conversion des données s'est correctement effectuée")
    ActiveSheet.Range("A1").Select
     
    ErrHandler: 'gestion des erreurs
     
    If Err.Number <> 0 Then
        msg = "L'erreur #" & Str(Err.Number) & " a été générée par " & Err.Source & ". " & Chr(13) & Err.Description
        MsgBox msg
    End If
     
    End Sub
    J'ai plusieurs problèmes à savoir :
    1) mes dates sont transformées en format américain
    2) les décimales nulles (soit 00) disparaissent
    3) mes valeurs numériques avec virgule se transforment avec des points

    Quelqu'un a t'il des idées ? L'aide n'est pas très claire et j'ai un peu de mal à tout comprendre dedans.

    Par avance merci

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 682
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 682
    Par défaut
    salut,
    voir du coté de cells.format
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Migrer les applications VBA Access et VBA Excel vers la Power Platform
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

Discussions similaires

  1. pbm avec pages ASP
    Par nawal59 dans le forum ASP
    Réponses: 4
    Dernier message: 30/07/2006, 22h04
  2. Pbm avec l'exécutable
    Par jarod_ab dans le forum JBuilder
    Réponses: 2
    Dernier message: 03/05/2006, 17h30
  3. pbm avec setMinimumSize()
    Par toxyshow dans le forum Agents de placement/Fenêtres
    Réponses: 2
    Dernier message: 26/11/2005, 18h30
  4. pbm avec les foreigns keys.....
    Par j_bonc dans le forum PostgreSQL
    Réponses: 4
    Dernier message: 11/06/2004, 10h23
  5. Pbm avec les '&'...
    Par AmaX dans le forum Composants VCL
    Réponses: 2
    Dernier message: 19/08/2002, 11h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo