Discussion :

[Super2016]

Bonjour :

Voilà mon problème est le suivant :

J'extrait des fichiers d'un serveur Win Comp 6. ;

1. Ces Fichiers sont des fichiers de type *.nom du fichier ;
   
2. Ces Fichiers ne sont pas des fichiers texte .txt.
   
3. J'ouvre un classeur Excel et je les importe .
   
4. Après l'importation, tous les chiffres sont au Format Standard , je les ai changé en Nombre mais rien n'y fait.
   
5. Dans le Fichier Excel , les milliers sont avec séparateur de Milliers .
   
6. J'ai effectué des Macros de sommations , qui bloquent à chaque fois qu'il y'a un nombre en Milliers car existence d'un espace : 2 018.
   
7. J'ai essayé plusieurs méthodes pour enlever cet Espace des Milliers mais rien n'y fait : j'ai essayé avec du vba LA FONCTION SUPPESPACE/ Format de Cellule...
   
8. Comme Résultat je suis bloqué je ne peux pas effectuer les Macros Sommes.
   
   Quelqu'un peut il me donner une Solution à ce problème.
   

Merci .

[eriiic]

Bonjour,

à l'importation, à l'étape 3 tu sélectionnes ta colonne et tu cliques sur 'Avancé...' pour choisir tes séparateurs de milliers et décimal.
eric

[Super2016]

Bonjour :

Merci pour votre réponse;

Mais rien n'y fait , je viens d'appliquer cela mais ça ne marche pas.

J'ai modifié les séparateurs des milliers lors de l'importation mais les séparateurs restent.

Merci.

[unparia]

Bonjour
Essaye de voir ce que ferait par exemple ceci chez toi :

Code :

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

1
2
3
4
With Range("A1")
  .Value = Replace(.Text, ".", ",") * 1
  .NumberFormat = "general"
End With

[eriiic]

pour compléter unparia, ou bien avec :

Code :

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

.Value = Replace(.Text, Chr(160), "")

En manuel : sélectionner la colonne, Ctrl+H
Remplacer: Alt+0160
par:rien

Si c'est bon, le Alt+0160 peut également être saisi à l'importation, étape 3
eric

[Marc-L]

Bonjour !

Mais rien n'y fait , je viens d'appliquer cela mais ça ne marche pas.

Si cela ne fonctionne pas - normalement si dans 99,99% des cas ! - alors modifier la configuration d'Excel
avant l'importation afin d'être calée sur le fichier à importer …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Super2016]

Bonjour !

Si cela ne fonctionne pas - normalement si dans 99,99% des cas ! - alors modifier la configuration d'Excel
avant l'importation afin d'être calée sur le fichier à importer …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour :

J'ai essayé de joindre le fichier mais j'ai reçu le message :" Fichier non valide"; comment modifier la config Excel .

Avez-vous un Dropbox, une adresse email: je vous enverrai le document initial .

Si on prenait le problème à l'envers : Pourquoi une simple Macro Excel n'effectue pas une somme normale sur des chiffres avec des séparateurs de Milliers :

650+ 2 350 + 8 245.


Merci.

[eriiic]

et ça a donné quoi ça https://www.developpez.net/forums/d1...s/#post9937289 ?

[Super2016]

et ça a donné quoi ça https://www.developpez.net/forums/d1...s/#post9937289 ?

Bonjour :

ça n'a rien donné.

Si vous avez un email ou un dropbox je vous enverrai le fichier de base qu'on peut convertir en Excel.

Même la fonction replace - remplacer ne fonctionne pas.

CDT.

[Marc-L]

Pourquoi une simple Macro Excel n'effectue pas une somme normale sur des chiffres avec des séparateurs de Milliers

Excel somme sans souci des nombres et dans ce cas ce n'est pas des nombres mais du texte suite à une mauvaise importation …

Donc dans le paramétrage d'Excel - tout dépend déjà de la version devant pourtant être indiquée dans le préfixe de la discussion -
modifier les séparateurs décimal et de milliers.     Ils peuvent être forcés par code, voir l'aide VBA des propriétés

 DecimalSeparator  ,   ThousandsSeparator   et   UseSystemSeparators   …

Si le fichier ne passe pas après l'ajout de l'extension .txt, en joindre un plus p'tit respectant le format d'origine.

Et merci de ne pas citer l'intégralité du message juste précédent, aucun intérêt à part nuire à la lisibilité !

[pijaku]

Bonjour,

Un petit test à effectuer pour écarter d'autres pistes que celles proposées sur ce fil...

Sélectionne une cellule "en erreur" et lance cette démo :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub Demo()
    MsgBox Extrait(ActiveCell.Value)
End Sub
 
Private Function Extrait(C As String) As String
Dim i&, temp$
    For i = 1 To Len(C)
        If Not IsNumeric(Mid(C, i, 1)) Then temp = temp & vbCrLf & Asc(C)
    Next i
    Extrait = temp
End Function

Reviens ici nous donner le contenu de la MsgBox.

[BENNASR]

Bonsoir wild bledi, Bonsoir à tous
essaye avec ça :

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

[parmi]

Bonjour,

Si ton fichier importé n'est pas un TXT, joins ton classeur sans macro (xlsx) une fois les données importées. Pas nécessaire de tout laisser... quelques lignes devraient suffire.

[Super2016]

Bonjour :

Je remercie tous de vos différentes réponses;

Ci joint l'Etat ouvert dans Excel : puisque le fichier initial est sans format , il est extrait d'un serveur et peut etre lu dans differents programmes:

.TXT/ .XLSX/.DOC.


Merci.

@pijaku: j'ai appliqué le VBA sur une cellule et la boîte de dialogue donne différents résultats : 49 49 / 57 / ... selon la cellule sélectionnée .

[parmi]

Comme mentionné par eriiic (salut), c'est bien un espace insécable > caractère ASCII 160
Tu peux faire comme il t'a dit:

• Ctrl-H
• Alt + 0160 dans la 1e boîte (ça va mettre un espace)
• Rien dans la 2e
• Remplacer tout

[Super2016]

Bonjour :

@parmi : j'ai déjà essayé la solution Alt + 0160 mais elle ne fonctionne pas.

Merci.

[parmi]

Pourtant elle fonctionne bien ici avec le fichier que tu as mis.
Quel est ton format de nombre dans Excel (Windows) ? séparateurs de milliers et décimales

[Super2016]

Bonjour :

Ctrl-H - - - - - - Ouvres la fenêtre Remplacer
Alt + 0160 dans la 1e boîte (ça va mettre un espace) ------ mettre dans le champ de haut
Rien dans la 2e- - - - - - - - - 2 ème champ reste vide
Remplacer tout

J'ai bien suivi cela , mais rien.

Pour Excel : chez le séparateur Décimal : , Virgule et le séparateur Milliers : . Point

Je n'ai pas utilisé les séparateurs système.

Et la fonction régional des nombres est sur regroupement ( Windows) .


Merci.

[parmi]

Si tu veux essaie par macro

Code :

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

1
2
3
Sub Remplacer()
    Columns("D").Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
End Sub

[Super2016]

@parmi: Impeccable, ça a amélioré les choses ; Sauf que les décimales et les Milliers ont les mêmes séparateurs : . Point.

Or, il nous faut des virgules pour les Décimales.

Merci.