Supprimer le séparateur de milliers

[Eva_75]

Bonjour,

Je travaille sur des exctractions SAP; cela me donne des fichiers Excel mais avec des chiffres genre 1.234,56 au lieu de 1234,56... Je débute en VBA, j'ai cependant quelques notions et je voudrais que ce traitement soit en macro, quelqun comment je pourrais faire ?

J'ai tenté cela :

    Columns("G:H").Select
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Mais cela ne fonctionne pas, le format n'est pas reconnu comme un nombre donc impossible pour des calculs...
Même en rajoutant la ligne Selection.NumberFormat = "0,00" cela ne change pas...

Quelqun pourrait aider une débutante comme moi ?😕

 

[Catrice]

Re : Supprimer le séparateur de milliers

Bonjour,

Tu peux essayer ceci :

Sub Test()
For Each X In Columns("G:H").Columns
X.TextToColumns Destination:=X, DecimalSeparator:=",", ThousandsSeparator:="."
Next
End Sub

(Testé en Excel 2002)

Sur la machine sur laquelle tu travailles, quels sont les separateurs Milliers et décimale ?
Il faut que les séparateur modifiés par la macro soient conformes à ceux définis sur ta machine.

 

[Eva_75]

Re : Supprimer le séparateur de milliers

Salut,

Ta solution marche bien pour mes nombres en 1234,56 mais mes nombres en 12,34 deviennent 12.34 donc c'est eux qui deviennent inutilisables !

Comment je pourrais faire ?

D'avance merci !

 

[Catrice]

Re : Supprimer le séparateur de milliers

Re,

Tu peux aussi utiliser :

Sub test2()
For Each X In Columns("G:H").SpecialCells(xlCellTypeConstants, 23)
X.Value = Str(Replace(X.Value, ".", ""))
Next
End Sub

 

[Catrice]

Re : Supprimer le séparateur de milliers

Re,

Je reproduis le probleme.
Je crois que Test2 répond à la question ...

Je viens de réessayer ce code :
Sub Test()
For Each X In Columns("G:H").Columns
X.TextToColumns Destination:=X, ThousandsSeparator:="."
Next
End Sub

Qui fonctionne ...

 

[Eva_75]

Re : Supprimer le séparateur de milliers

Merci de ton aide,

Ta dernière macro me donne une erreur visual basic et me propose de débogguer...

 

[Catrice]

Re : Supprimer le séparateur de milliers

Re,

Quelle est ta version d'Excel ?

As tu reessayé ceci :
Sub Test()
For Each X In Columns("G:H").Columns
X.TextToColumns Destination:=X, ThousandsSeparator:="."
Next
End Sub

 

[Catrice]

Re : Supprimer le séparateur de milliers

Re,

Je viens de tester en Excel 2000 pas de pb ...
Es tu sure de tes separateurs Millier et decimal ?
Il faudrait que tu fournisses un echantillon de données pour que je puisse tester.

Le deboggeur s'arete sur quelle ligne ?

 

[Eva_75]

Re : Supprimer le séparateur de milliers

Ma version d'excel est 2003.

La macro "test" donne cela :

Avant Après
1.234,56 1234,56
12,34 12.34 !

La macro "test2" donne cela :

Erreur d'execution '13':
Incompatibilité de type
Et ca s'arrête sur
X.Value = Str(Replace(X.Value, ".", ""))
Puis ca me propose de cliquer sur Fin ou Débogage

 

[kiki29]

Re : Supprimer le séparateur de milliers

Option Explicit

Sub Tst()
Dim cell As Range
Dim Rng As Range

    Set Rng = Range("G1:H100")
    For Each cell In Rng
        cell = Remplacement(cell)
    Next cell
End Sub

Function Remplacement(ByVal c As Range) As Variant
Dim sStr As String
    sStr = Replace(c, ".", "")
    If IsNumeric(sStr) Then
        Remplacement = CDbl(sStr)
    Else
        Remplacement = c
    End If
End Function

 

[Eva_75]

Re : Supprimer le séparateur de milliers

Merci Kiki mais ta macro bugg chez moi, ca me donne :

Erreur d'execution '1004':
La méthode 'Range' de l'objet '_Global' a échoué+

Et ca s'arrete sur la ligne Set Rng = Range("G:H100")

 

[Pierrot93]

Re : Supprimer le séparateur de milliers

Bonjour à tous

mets

Set Rng = Range("G[COLOR="Red"][B]1[/B][/COLOR]:H100")

les cellules G1 à H100 représentant la plage de cellules utilisée dans la boucle.

@+

 

[Eva_75]

Re : Supprimer le séparateur de milliers

Trop bête ! Merci beaucoup; c'était bien ça ! Un grand merci à vous 3 pour m'avoir aidé

 

[dixit]

Re : Supprimer le séparateur de milliers

bonjour à tous,
le problème semble résolu mais puisque ce classeur est fait je le poste : macro toute basique avec instruction Instr pour chercher le point.

 

[Catrice]

Re : Supprimer le séparateur de milliers

Eva,

J'ai l'impression que ton séparateur décimal dans Windows est le point.
Je reproduis exactement tes pb si je mets le point en decimal et l'espace en millier...