Discussion :

[Luxees]

Bonjour, je suis en stage en entreprise, et je travail sous VBA avec excel.
J'extrait des données sous SAP que j'incorpore à un tableur excel. Dans mon programme je dois comparer des longueurs.
Malheureusement ces données sont enregistré sous le format(par exemple):

1.000,040

avec un .(point) dès que l'on passe aux millier.
Je n'arrive donc pas à faire des comparaisons.

J'ai essayé de faire cela pour supprimé les points:

Code :

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

1
2
3
4
5
6
Sub remplacer_point()
    Sheets("Données brutes").Activate
    Columns("Z:Z").Select
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True
End Sub

Malheureusement, cela supprime aussi les , (virgules).

Comment faire?
Merci pour votre aide.

[ouskel'n'or]

Essaie en remplaçant les points sur toute la colonne

Code :

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

1
2
3
4
5
    Col = ActiveCell.Column
    Columns(Col).Replace What:=".", Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    MsgBox CDec(ActiveCell.Value)

Sinon, on a une autre solution mais teste d'abord ça
A+

[Luxees]

Je viens d'essayer, cela fonctionne pour les milliers au format:

1.000,005

en les rendant ainsi:

1 000,005

mais pour les nombre au format:

100,05

cela les rend ainsi:

100 05

en supprimant la virgule.

[ouskel'n'or]

Ok. Alors regarde à OpenText, dans l'aide, il y a plusieurs paramètres intéressants

expression.OpenText(FileName, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers, Local)

Je te passe un exemple :

Code :

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

1
2
3
 Workbooks.OpenText Filename:="D:\xls\Classeur1.txt", StartRow:=1, _
    DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _
        :=True, Semicolon:=True, DecimalSeparator:="."

Pour être sûr de tes séparateurs décimal et milliers, je ferais une boucle sur chaque caractère du contenu d'une cellule concernée pour en connaître les codes ascci. Tu pourrais avoir des surprises.
A+

[Luxees]

J'ai pas trop compris à quoi me servait le dernier code, ni comment l'utiliser (je suis en 1ere année de BTS et vba j'y travail vraiment que depuis mon stage).

[ouskel'n'or]

L'aide t'en dira plus. Le dernier code ? Je l'ai juste mis pour la syntaxe. Il t'indique comment utiliser les paramètres d'ouverture d'un fichier. Là, il sert à ouvrir un fichier avec séparateur décimal "."
Ce qui le faut c'est connaître les véritables séparateur de ta donnée
Pour ça, tu fais une macro... allez, la voici
Je suppose la valeur qui se trouve dans la cellule

Code :

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

1
2
3
4
Donnee = Cells(NoLigne,NoCol).value
For i = 1 to len(Donnee)
     Msgbox asc(Mid(Donnee,i,1)) & " => " & Mid(Donnee,i,1)
Next

Tous les codes de 48 à 57 compris sont les chiffres. Indique-nous les deux autres
A+