[VBA] - Problème convertion données Fermé

Question

Bonjour, 

Je souhaite convertir les données d'une colonne pour avoir des nombres (car au départ certains ont des "." séparateurs de milliers, des espaces avant le début du nombre etc bref).

En réalisant l'action : sélectionner la colonne / données / convertir les données / suivant / suivant / avancé (pour mettre "," comme séparateur de décimale et "." comme séparateur de milliers (bien que ça ne soit pas tjs le cas !) et en décochant la case sur "signe moins à la fin des nombres négatifs"), cela fonctionne ! 

En revanche, le code suivant, obtenu par enregistrement de cette macro exactement ne fonctionne plus en éxécutant la macro :

Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=",", ThousandsSeparator:=".", TrailingMinusNumbers:=False


J'ai regardé les paramètres que je pouvais ajouter dans le code mais je ne vois pas ... 

Comme j'ai besoin de l'utiliser via Access, j'ai absolument besoin de pouvoir faire ça en VBA !! 

Merci de m'aider !!



     EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI 

Merci d'y penser dans tes prochains messages.

f894009 · Answer

Bonjour,

Comme j'ai besoin de l'utiliser via Access
Boh oui!! Mais comment accedez-vous a ce fichier excel ??

Mosca · Answer

Bonjour,

Faire d'abord le ménage, c'est-à-dire supprimer les espaces et les points
Ensuite mettre en forme

'supprimer les espaces    Columns("C:C").Select    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _        ReplaceFormat:=False'supprimer les points    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _        ReplaceFormat:=False'mise en forme            Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _        :=Array(1, 1), DecimalSeparator:=",", TrailingMinusNumbers:=False
Cordialement

[VBA] - Problème convertion données

2 réponses

Discussions similaires