Suppression d'espace dans chaine de caractere

[chasseur44]

Bonjour à tous
J'ai bien regardé dans le forum les différentes discussions liées à mon probleme
Mais je n'arrive pas en utilisant les différents exemples a supprimer les espaces avec l'exemple joint
Est-ce du à un format spécifique de mon export ?
Merci pour votre aide

PS : Dans la colonne C, je souhaite virer ts mes espaces !

 

[Paf]

Bonjour,

sans connaitre vos essais, peut-être n'avez vous pas tenter la solution d'utiliser Rechercher-Remplacer, qui fonctionne dans votre exemple.

A+

 

[chasseur44]

Merci mais j'ai essayé et cela ne marche pas sur toute les lignes !!!
regardé la ligne 8 (CTRL H "Virgule espace" par "Virgule")

 

[mutzik]

bonjour

je viens d'essayer

chercher : espace
remplacer (ne rien mettre)

 

[job75]

Bonjour chasseur44, Paf, mutzik,

Je comprends que vous ne voulez pas qu'avec la suppression de l'espace les textes soient transformés en nombres.

Alors lancez cette macro :

Sub AfficherDecimales()
Dim t, i&
With ActiveSheet.UsedRange.Resize(, 3)
  t = .Value 'matrice, plus rapide
  For i = 1 To UBound(t)
    t(i, 3) = Replace(t(i, 3), " ", "")
  Next
  .Columns(3).NumberFormat = "@" 'format Texte
  .Columns(3) = Application.Index(t, , 3)
End With
End Sub

A+

 

[chasseur44]

Ca ne marche pas dans le cas ou il y a deux valeurs (ex ligne 8 : 453925372, 453925 le remplacement donne 453925372, 45 en numérique)

 

[chasseur44]

envoyé apres ton post job75, je teste ! merci

 

[Paf]

Re et bonjour mutzig,

Effectivement ligne 8, 10 et toutes les lignes à une seule virgule, la valeur après la virgule est arrondie, même si on met la colonne au format texte.

Une macro qui ne présente pas ce problème:

Sub SuprEspace()
For i = 1 To Range("C" & Rows.Count).End(xlUp).Row
    Cells(i, 3) = Replace(Cells(i, 3), " ", "")
Next
End Sub

edit : à condition de passer la colonne C au format Texte avant de lancer la macro

A+

Edit: bonjour job75

 

[chasseur44]

Ca marche impeccable job75 Merci Beaucoup

 

[job75]

Re,

En général un triangle vert s'inscrit en haut à gauche des cellules contenant des nombres sous forme de textes.

Pour l'éviter :

Sub AfficherDecimales()
Dim t, i&
With ActiveSheet.UsedRange.Resize(, 3)
  t = .Value 'matrice, plus rapide
  For i = 1 To UBound(t)
    t(i, 3) = Replace(t(i, 3), " ", "")
  Next
  .Columns(3).NumberFormat = "@" 'format Texte
  Application.ErrorCheckingOptions.NumberAsText = False 'évite le triangle vert
  .Columns(3) = Application.Index(t, , 3)
End With
End Sub

A+