Suppression espace colonne

Bonjour,

J'ai une BDD, qui comporte plusieurs colonnes, et environ 10 000 lignes, et au niveau de la colonne C, je souhaiterai supprimer l'espace présent tout à gauche.

J'ai fait le code suivant, qui fonctionne à moitié :

Sub Suppression_espace

Dim i As Long
For i = 1 To Range("C20000").End(xlUp).Row
    Cells(i, 3).Value = Trim(Cells(i, 3).Value)
Next i

End Sub

Mon premier problème est que dans la colonne C, j'ai des cellules ou il y a un "#N/A" (que je ne souhaite pas supprimer). Ainsi, ma macro se stoppe dès qu'il en rencontre un.

Également, au niveau de ma macro, j'ai mis un range("C20000"). Comment adapter mon programme au nombre de lignes de la colonne?

Je vous remercie d'avance,

Charlotte

Bonjour

Essaie ainsi :

Sub Suppression_espace()

Dim i As Long
For i = 1 To Range("C20000").End(xlUp).Row
    If Left(Cells(i, 3).Value, 1) = " " Then
        Cells(i, 3).Value = Trim(Cells(i, 3).Value)
    End If
Next i

End Sub

Bye !

Bonjour,

Merci pour votre réponse, mais cela n'a pas fonctionné. Du coup j'ai tenté le code suivant qui fonctionne parfaitement.

Peut on juste m'aider à optimiser ce code? Je souhaiterai adapter ma macro au nombre de lignes de la colonne, pour éviter d'avoir un Range("C20000").

Sub Suppression_espace
Dim i As Long
For i = 1 To Range("C20000").End(xlUp).Row

    If WorksheetFunction.IsNA(Cells(i, 3)) = False Then
    Cells(i, 3).Value = Trim(Cells(i, 3).Value)

   End If
Next i
End Sub

Essai ça :

For i = 1 To Range("C" & Rows.Count).End(xlUp).Row

Bye !

C'est parfait ! Merci