Suppression d'espace dans chaine de caractere

chasseur44

XLDnaute Occasionnel
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 !
 

Pièces jointes

  • essai.xlsx
    24.7 KB · Affichages: 80

job75

XLDnaute Barbatruc
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 :
Code:
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+
 

Paf

XLDnaute Barbatruc
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:
VB:
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
 

job75

XLDnaute Barbatruc
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 :
Code:
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+
 

Discussions similaires

Statistiques des forums

Discussions
312 816
Messages
2 092 361
Membres
105 378
dernier inscrit
y07