Formats Excel

8classeur3.xlsx (150.01 Ko)

Bonjour,

dans un fichier Excel des données provenant d'un autre logiciel ont un format texte avec des blancs séparant les milliers.

Comment puis-je faire pour les transformer en nombres?

Merci

Il nous faudrait voir la structure de ton fichier.. Sinon supprimer tous les espaces pourrait le faire ?

Remplacer " " par ""

J'ai essayé mais je reçoit le message; Microsoft Excel ne trouve pas de correspondance.

Voir le fichier joint

Merci

Aucun fichier joint

JE viens de l'attacher...

Fais tourner ce code...

Sub toto()
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        For Each c In ws.UsedRange
            If c.Row <> 1 And c.Column <> 1 Then
                If c.Value <> "" And IsNumeric(c.Value) = False Then
                    x = c.Value
                    y = Replace(x, ".", ",")
                    Z = Replace(y, " ", "")
                    c.Value = CDbl(Z)
                End If
            End If
        Next c
    Next ws
    Application.ScreenUpdating = True
End Sub

Il y a un bug au niveau de :

c.Value = CDbl(Z)

En fait... Je t'explique l'espace entre tes chiffres est un espace chelou....

Donc du vas en BP2 de la feuille temps (1 971.67) Tu copies l'espace situé entre le 1 et le 9... ctrl + c

Tu vas dans le code et tu remplaces l'espace: ctr +v

Z = Replace(y, " ", "")

ICI

Vraiment désolé de t'ennuyer mais ça ne fonctionne pas. Je joins le fichier avec la macro...

2couts-s1-2014.xlsm (157.32 Ko)

Dans ta feuille 2 tu as inséré une ligne à la première ligne...

Super, ça marche...

Un grand merci

Rechercher des sujets similaires à "formats"