Discussion :

[chheyenne]

Bonjour à tous,
j'ai un petit probleme avec des fichiers que j'exporte entre l'anglais et le Fr.
Du coup j'ai des donnees avec des . au lieu des , et du coup pour traiter mes donnees c'est pas facile.
Quand j'ai quelques colonnes je les converti mais la j'ai presque 100 colonnes a faire, j'ai donc voulu creer une macro. Le probleme ce que je n'arrive pas a creer une boucle.

Voila ce que j'ai :

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
Columns("N:N").Select
    Selection.TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
    Columns("O:O").Select
    Selection.TextToColumns Destination:=Range("O1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
    Columns("P:P").Select
    Selection.TextToColumns Destination:=Range("P1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
...

Et comme j'ai 100 colonnes j'aimerais automatiser un peu la chose.
Merci d'avance pour votre aide.

[Marc-L]

Bonjour, bonjour,

‼ (cf règles du forum)


Sinon la transformation n'est pas forcément nécessaire car il suffit de préciser le séparateur décimal
lors de l'importation (B-A-BA de l'utilisation d'Excel lors de l'ouverture manuelle d'un fichier texte,
sinon en VBA consulter l'aide de la méthode OpenText) …

Sinon pour la boucle voir par exemple du côté de For Each COL In ActiveSheet.UsedRange.Columns …

[casefayere]

Bonjour,
s'il s'agit de valeurs numérique et de colonnes adjacentes, peut-être que ce code suffit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub essai()
Dim x As Long, y As Long, Tbl
With Sheets("feuil1") 'à remplacer par le nom de feuille
  Tbl = .Range("N1").CurrentRegion
  For x = 1 To UBound(Tbl, 1)
    For y = 1 To UBound(Tbl, 2)
      Tbl(x, y) = Val(Tbl(x, y))
    Next y
  Next x
  .Range("N1").CurrentRegion = Tbl
End With
End Sub

[Docmarti]

Bonjour

La meilleure façon est d'exporter des fichiers au format Excel plutôt que des fichiers au format texte.

Sinon je te propose cette macro de conversion des points et virgules.

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
37
38
39
40
Sub ConvertitPointEtVirguleEnSeparateurDecimalRegional()
 
Dim SeparateurDecimalRegional As String
Dim Debut As Long, Fin As Long, Col As Long
Dim i As Long
Dim a As Variant, memA As Variant
 
 
SeparateurDecimalRegional = Format(0, ".")
 
Debut = Range("N1").Column
Fin = Debut + 99
 
For Col = Debut To Fin
 
For i = 1 To Cells(Cells.Rows.Count, Col).End(xlUp).Row
 
 a = Cells(i, Col).Value
 memA = a
 
  a = Replace(a, ".", SeparateurDecimalRegional) 'Remplace le point
  a = Replace(a, ",", SeparateurDecimalRegional) 'Remplace la virgule
 
  If IsNumeric(a) Then
 
    a = CDbl(a)
 
   If a <> memA Then
     'Debug.Print memA, a, TypeName(memA), TypeName(a)
 
    Cells(i, Col).NumberFormat = "General"
    Cells(i, Col).Value = a
 
  End If
 End If
 
 Next
Next
 
End Sub