Macro suppression d'espace
dorotheedalaine
-
Dodo2008 Messages postés 2 Statut Membre -
Dodo2008 Messages postés 2 Statut Membre -
J'ai exporté des données d'un logiciel de gestion vers excel pour les travailler.
Les données apparaissent sous le format texte (à cause de l'espace qui sépare les milliers) , je ne peux donc pas utiliser de formules de calcul et des graphiques.
J'ai essayé différentes manip: format nombre, function substitute, rechercher/remplacer...J'ai l'impression que ma dernière chance est de trouver une macro qui puisse supprimer les espaces.
Quelqu'un peut-il m'aider???
ex 32 456 --> 32456
Je n'y connais rien en macros...
Merci d'avance
Les données apparaissent sous le format texte (à cause de l'espace qui sépare les milliers) , je ne peux donc pas utiliser de formules de calcul et des graphiques.
J'ai essayé différentes manip: format nombre, function substitute, rechercher/remplacer...J'ai l'impression que ma dernière chance est de trouver une macro qui puisse supprimer les espaces.
Quelqu'un peut-il m'aider???
ex 32 456 --> 32456
Je n'y connais rien en macros...
Merci d'avance
A voir également:
- Macro suppression d'espace
- Espace insécable - Guide
- Forcer suppression fichier - Guide
- Espace de stockage gmail plein - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Espace stockage google - Guide
3 réponses
Salut,
si tu vas dans Outils, Options, dans l'onglet internationnal tu peux cocher Utiliser les séparateurs système et normalement il considèrera que 32 564 = 32564 et tu pourras faire tous les calculs que tu veux dessus... ;-)
si tu vas dans Outils, Options, dans l'onglet internationnal tu peux cocher Utiliser les séparateurs système et normalement il considèrera que 32 564 = 32564 et tu pourras faire tous les calculs que tu veux dessus... ;-)
C'est quand même bizarre, chez moi ça fonctionne bien !
Tu peux utiliser cette macro, en remplaçant 10 par le nombre de lignes que tu veux modifier et le 1 de Cells(i,1).Value par le numéro de la colonne où se trouvent tes données à modifier:
Sub suppreespace()
For i = 1 To 10
For j = 1 To Len(Cells(i, 1).Value)
If Mid(Cells(i, 1).Value, j, 1) = " " Then
Cells(i, 1).Value = Left(Cells(i, 1).Value, j - 1) & Right(Cells(i, 1).Value, Len(Cells(i, 1).Value) - j)
End If
Next j
Next i
End Sub
Tu peux utiliser cette macro, en remplaçant 10 par le nombre de lignes que tu veux modifier et le 1 de Cells(i,1).Value par le numéro de la colonne où se trouvent tes données à modifier:
Sub suppreespace()
For i = 1 To 10
For j = 1 To Len(Cells(i, 1).Value)
If Mid(Cells(i, 1).Value, j, 1) = " " Then
Cells(i, 1).Value = Left(Cells(i, 1).Value, j - 1) & Right(Cells(i, 1).Value, Len(Cells(i, 1).Value) - j)
End If
Next j
Next i
End Sub
Je n'y arrive toujours pas mais certainement parce que je ne maîtrise pas les macros.
J'ai aussi essayé ça:
strDecSep = Worksheets("Jan06").QueryTables(1) _
.TextFileThousandsSeparator
Worksheets("Janv06").QueryTables(1) _
.TextFileThousandsSeparator = ","
Mais cela indique erreur d'exécution.
Je craque...
J'ai aussi essayé ça:
strDecSep = Worksheets("Jan06").QueryTables(1) _
.TextFileThousandsSeparator
Worksheets("Janv06").QueryTables(1) _
.TextFileThousandsSeparator = ","
Mais cela indique erreur d'exécution.
Je craque...
