Discussion :

[counterbob]

Bonjour
Je souhaiterais supprimer tous les espacements d'une liste de valeurs.
J'ai essayé SUBSTITUTE mais ça ne va pas
Une piste SVP merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub SubstituteColonne()
'supprimer les espaces dans les valeurs de la colonne A
Set f = Sheets("BD")
derlig = f.Range("A" & Rows.Count).End(xlUp).Row
 
 For i = 2 To derlig
  Cells(i, 1) = Substitute(Cells(i, 1), " ", "")
 Next
End Sub

[counterbob]

J'ai trouvé la solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A:A").Replace What:=" ", Replacement:=""

C'est clos