Discussion :

[Aurelien55]

Bonjour à tous,

je suis en train de réaliser une macro ayant comme but premier d'importer un fichier TXT (séparation ";"). Tout se déroule correctement. La suite étant de remplacer les "." par "," dans 2 colonnes permettant ainsi de transformer des valeurs texte en valeur numérique (exemple 1.8 devient 1,8). Les formules mathématiques qui s'en suivront seront alors possibles....

Mon problème étant que la macro permettant de remplacer ces "." par "," me fait tourner en bourrique, car à la suite de la macro il n'a pas simplement fait ce remplacement de caractère mais il a aussi multiplier par 1000 certaines cellules.... POURQUOI ???

voici mon code :

Code :

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

1
2
3
4
5
   Range("A:B").Select
    Range("A2").Activate
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Pourriez-vous m'aider svp ??

[Invité]

bonjour,

Code :

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

1
2
3
4
With ActiveSheet.UsedRange
   .NumberFormat = "General"
    .Value = .Value
End With

[Aurelien55]

MERCI bcp ca fonctionne bien, dernière question : est-il possible de spécifier les colonnes qui doivent subir cette "numérisation" avec votre code ?

[Invité]

Oui bien sur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim C, I As Integer
C = Array("A", "C", "E", "G")
With ActiveSheet
    For I = 0 To UBound(C)
        With .Range(C(I) & ":" & C(I))
            .NumberFormat = "General"
            .Value = .Value
        End With
    Next
End With

[Marc-L]

Bonjour, bonjour !

je suis en train de réaliser une macro ayant comme but premier d'importer un fichier TXT (séparation ";"). Tout se déroule correctement. La suite étant de remplacer les "." par "," dans 2 colonnes […]

Donc tout ne se déroule pas correctement car l'importation ne tient pas compte du séparateur décimal ‼

Il n'y a aucun souci pour importer directement des données quel que soit le séparateur décimal du fichier texte
sans recourir à un code post importation, différentes méthodes dans les discussions de ce forum.

L'importation est donc à revoir mais sans connaissance du code de cette "importation" ni d'un fichier texte type …

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Aurelien55]

Bonjour Marc,
Tu as surement raison en disant "que tout ne se déroule pas correctement...." Aussi voici le lien du fichier txt que je souhaite importer dans mon classeur excel. Les 2 colonnes que je souhaite basculer en "numérique" sont la 20ème et la 21ème colonne de ce fichier txt.

Lien fichier joint : http://www.cjoint.com/c/FHclSgCATGT

Voici le code d'import que j’utilise pour importer ce fichier :

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
Sub Import_txt()
 
 With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Temp\", Destination:=Range("$Z$1"))
        .Name = "transformation "
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = True
        .TextFilePlatform = 1254
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierNone
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

[Marc-L]

L'objet Querytable importe directement des données dans une feuille de calculs.
Vu certains de ses paramètres inutiles dans le code, ce dernier a été généré par l'Enregistreur de macros
mais lors de la manipulation le paramétrage du séparateur décimal a été oublié !

Tout comme le paramétrage du format des colonnes (ligne de code n°26) …

Comme indiqué dans l'aide VBA de l'objet Querytable, il suffit de configurer sa propriété TextFileDecimalSeparator …

[Aurelien55]

Nikel,

je te remercie pour les explications, j'ai rajouté cette partie là dans le code :

Code :

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

.TextFileDecimalSeparator = "."

et maintenant ca fonctionne sans traitement post-importation.

Bonne journée à tous les deux qui m'avez aidé.