enlever des espaces dans des cellules

  • Initiateur de la discussion math
  • Date de début
M

math

Guest
Bonjour,

j'ai récupéré un fichier avec des données chiffrées exportées sous excel,

or ces données comportent des espaces entre les milliers et n'ont pas de format spécifique apparemment,

je voudrais retraiter ces données en nombres pour pouvoir les exploiter

quelqu'un peut il m'aider?
 

ChTi160

XLDnaute Barbatruc
salut'math et léa'
tout d'abord léa je suis heureux et je profite même de ce fil pour te dire que tu vas manqué au forum puisque j'ai compri que tu allais
reprendre la route donc reviens nous dès que tu le pourras
bon math as tu testé pour savoir si ce sont des caractèrs par exemple avec NBcar() et ou déterminer le genre via le codes des caracteres je ne suis pas un exper mais le problème plusieur fois été posé tente une recherche sur l'ancienne base de données du forum
bonne nuit
 

allegro50

XLDnaute Occasionnel
Bonsoir math , forum

Voila un p'tit code qui doit repondre a ton probleme que je rencontre souvent en traitant des fichiers importes

Sub MyEspace()
Application.ScreenUpdating = False
For Each cel In Selection
For i = 1 To Len(cel.Value)
If IsNumeric(Mid(cel.Value, i, 1)) Then
tempval = (tempval & Mid(cel.Value, i, 1))
End If
Next i
cel.Value = tempval
tempval = Empty
Next cel
Application.ScreenUpdating = True

End Sub
 

Discussions similaires

Réponses
5
Affichages
331
Réponses
1
Affichages
416

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson