Discussion :

[mobbydik]

Bonjour,

Je suis sous Excel 2013.

J'ai des données qui sont exportées par une machine en format text, avec un séparateur décimal qui est un "."

j'ouvre ce classeur par l'intermédiaire d'une boite de dialogue que l'utilisateur rempli et qui me permet de récupérer le "nomfichier" à ouvrir

Voila la macro que je suis en train de tester.

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
Public Sub macro1()

Workbooks.OpenText Filename:= _
        nomfich, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
        (1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:= _
        True
    
    p = 9
    While Cells(p, 1) <> "" 'détecte le numéro de la dernière cellule verticale qui contient une donnée
    p = p + 1
    Wend
    
    q = 1
    While Cells(9, q) <> "" 'détecte le numéro de la dernière cellule horizontale qui contient une donnée
    q = q + 1
    Wend
    
    Range(Cells(1, 1), Cells(p - 1, q - 1)).NumberFormat = "0.000000000000" 'cellule en format "Standard" que je change en format "Nombre"
    
    Range(Cells(1, 1), Cells(p - 1, q - 1)).Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    
End Sub

Le soucis que j'ai, est que lorsque la donnée dans la cellule est supérieure à 1, il ne détecte pas le "." et du coup, il me change totalement la valeur



Merci pour votre aide

PS: J'ai cherché dans la base de données avant de poser la question

[anasecu]

Bonjour mobbydik,

Le soucis que j'ai, est que lorsque la donnée dans la cellule est supérieure à 1, il ne détecte pas le "." et du coup, il me change totalement la valeur

Il me semble que ta macro fonctionne même si tu t'es un peu compliqué la tache et que ton code eut pu être plus simple.

Sans doute que l'anomalie que tu constates a une autre origine sans doute liée à tes données.

[mobbydik]

merci pour la réponse, mais les données initiales sont toutes les mêmes et quand je le fais manuellement, je n'ai pas ce soucis de remplacement

[mobbydik]

Pour compléter ma demande, j'ai testé aussi cette macro pour changer mes "." en ",":

Code :

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

1
2
3
4
5
6
7
8
9
With Worksheets(1).Columns(1)
        Set c = .Find(".", LookIn:=xlValues)
        If Not c Is Nothing Then
            Do
                c.Replace ".", ","
                Set c = .FindNext(c)
            Loop While Not c Is Nothing
        End If
    End With

J'obtiens le même résultat, à savoir qu'il me change bien mes "." en "," jusqu'à temps qu'il trouve une valeur supérieure à 1
Je vous met une copie écran avec les valeurs initiales et avec le résultat lorsque la macro a été exécutée

[mobbydik]

J'ai trouvé une solution qui fonctionne.

Je remet mon code de départ avec la solution

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
 
    p = 9
    While Cells(p, 1) <> "" 'détecte le nb de cellule verticale occupées
    p = p + 1
    Wend
 
    q = 1
    While Cells(9, q) <> "" 'détecte le nombre de cellule horizontale occupéés
    q = q + 1
    Wend
 
    Range(Cells(9, 1), Cells(p - 1, q - 1)).Select
 
Dim curCell As Range
 
For Each curCell In Selection
    curCell.Value = CDbl(Replace(Replace(curCell.Text, " ", ""), ".", ","))
 
Next curCell

[EricDgn]

Bonjour,

Que donnerait ceci:

Code :

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

       Workbooks.OpenText Filename:=nomFich, DataType:=xlDelimited, Comma:=True, DecimalSeparator:="."

Cordialement.

[mobbydik]

Bonjour,

Que donnerait ceci:

Code :

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

       Workbooks.OpenText Filename:=nomFich, DataType:=xlDelimited, Comma:=True, DecimalSeparator:="."

Cordialement.

Et bien, un grand merci car ça fonctionne avec cet ajout du DecimalSeparator.... et ça me simplifie du coup ma macro