Discussion :

[Sandra_R]

Bonjour à tous,

Voici mon problème du jour :

Dans une macro excel, je suis amenée à traiter des données numériques issues de fichiers.csv.
Dans le fichier csv, les données numériques sont au format texte avec pour symbole numérique le point.
Or le pc qui utilise la macro est configuré avec pour symbole décimal la virgule donc ... conflit.

Dans excel, si je remplace les points par des virgules, tout ce passe bien.
Par contre si je code ça en VBA voici le résultat :
- pour les nombres < à 1, les points sont bien remplacés pas des virgules, mais la cellule est en format texte
- pour les nombres > à 1, les points sont remplacés par des séparateurs de milliers. Les cellules sont bien en format nombre mais les valeurs sont multipliées par 1000.
(voir image)


Si quelqu'un a une idée pour solutionner mon problème, je suis preneuse.

Merci d'avance

[Invité]

Bonjour,
dans Excel le valeur décimale est la virgule.
dans vba la valeur décimale est le point!

quant tu importe ton fichier Csv (Texte) Excel voie le point comme du texte et l'affiche à gauche; quand tu remplace le point par une virgule dans vba (qui lui le voie comme du texte) il place la valeur avec virgule à gauche!

imaginons que tu as la colonne [A:B] en numérique, là pas la peine de remplacer ton point par une virgule!

Code :

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

1
2
range("A:B").NumberFormat = "General"
range("A:B").value=range("A:B").value

[BENNASR]

répondre après dysorthographie c'est un aventure pour un débutant et nul en VBA comme moi
mais pour moi je bricole ce code pour remplacer le point par virgule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub mamacro()
Dim DernLigne As Long
DernLigne = Range("C" & Rows.Count).End(xlUp).Row
 Columns("c:c").Select ' ici la plage à mettre en forme
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
For i = 1 To DernLigne
Range("c" & i).Value = CDbl(Range("c" & i).Value)
Range("c" & i).NumberFormat = "#,##0.000" ' trois chiffre après virgule
Next i
End Sub

[Sandra_R]

Merci à tous les 2.

Pour le moment j'ai testé la solution de dysorthographie et ça fonctionne.
Je suis juste obligée de le faire cellule par cellule car par plage de colonnes

Code :

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

Workbooks(Nomfich2).Sheets(NomFeuil2).Range("A:" & M22).Value = Workbooks(Nomfich2).Sheets(NomFeuil2).Range("A:" & M22).Value

, ça bug.

[Sandra_R]

Code :

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

Workbooks(Nomfich2).Sheets(NomFeuil2).Range("A2:" & M22 & N2).Value = Workbooks(Nomfich2).Sheets(NomFeuil2).Range("A2:" & M22 & N2).Value

Sur une plage de données ça marche ... :-) :-) :-)

Merci encore à vous d'avoir pris le temps de me répondre.
Bonne journée

[Invité]

Code :

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

Workbooks(Nomfich2).Sheets(NomFeuil2).Range("A:A,M:N").Value = Workbooks(Nomfich2).Sheets(NomFeuil2).Range("A:A,M:N").Value