M
Maximom
Guest
Bonjour a tous,
J'ai trouvé cette macro qui supprime les espaces en debut et fin de texte dans une cellule:
' Suppression des espaces à gauche et à droite
Dim i, j
Dim s As String
lastrow = ActiveSheet.UsedRange.Rows.Count
lastcolumn = ActiveSheet.UsedRange.Columns.Count
For i = 1 To lastrow
For j = 1 To lastcolumn
s = CStr(Cells(i, j))
Cells(i, j) = Trim(s)
Next j
Next i
Et je souhaiterai l'appliquer uniquement à la collone C
Pouvez vous me donner la solution?
Merci
J'ai trouvé cette macro qui supprime les espaces en debut et fin de texte dans une cellule:
' Suppression des espaces à gauche et à droite
Dim i, j
Dim s As String
lastrow = ActiveSheet.UsedRange.Rows.Count
lastcolumn = ActiveSheet.UsedRange.Columns.Count
For i = 1 To lastrow
For j = 1 To lastcolumn
s = CStr(Cells(i, j))
Cells(i, j) = Trim(s)
Next j
Next i
Et je souhaiterai l'appliquer uniquement à la collone C
Pouvez vous me donner la solution?
Merci