XL 2021 Suppression d'un espace

[JohnBill]

Bonjour à tout le forum.
Je recherche, et je ne trouve pas, comment supprimer tous les espaces (en principe un seul espace) qui se trouvent quelquefois en début de certaines cellules de la colonne des noms de disques (colonne C). En pièce jointe, un morceau de mon fichier (qui comporte 165 000 lignes).

 

[cathodique]

Bonjour à tout le forum.
Je recherche, et je ne trouve pas, comment supprimer tous les espaces (en principe un seul espace) qui se trouvent quelquefois en début de certaines cellules de la colonne des noms de disques (colonne C). En pièce jointe, un morceau de mon fichier (qui comporte 165 000 lignes).

Bonjour,

Essaie la fonction Trim(TaChaineDeCaractères)

Sub supprimer_Espace()
   Dim ws As Worksheet, dl As Long, i As Long

   Set ws = ThisWorkbook.Sheets("Feuil1")   'adapter nom de la feuille
   With ws
      dl = .Cells(Rows.Count, "C").End(xlUp).Row
      For i = 2 To dl
         .Cells(i, 3).Value = Trim(.Cells(i, 3).Value)
      Next i
   End With

   Set ws = Nothing
End Sub

ou bien

Dim Cell As Range
For Each Cell In Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row)
    Cell.Value = Trim(Cell.Value)
Next Cell

 

[Phil69970]

Bonjour @JohnBill
Edit : Bonjour @cathodique avec la même idée

Je te propose ce fichier
J'en ai profité pour remettre les années en place

Edit 2 : J'ai oublié de poster le fichier le voici donc merci de m'avoir prévenu ...

Merci de ton retour

 

[cathodique]

Bonjour @JohnBill
Edit : Bonjour @cathodique avec la même idée

Je te propose ce fichier
J'en ai profité pour relmettre les années en place

Merci de ton retour

où est le fichier que tu proposes?!!!

 

[Cousinhub]

Bonsoir,
sinon, pour 165000 lignes, peut-être?

Sub suppr_espace()
Dim Tbl
Dim I As Long
Tbl = Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row)
For I = LBound(Tbl) To UBound(Tbl)
    If Tbl(I, 1) <> "" Then Tbl(I, 1) = Trim(Tbl(I, 1))
Next I
Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row) = Tbl
End Sub

@cathodique

où est le fichier que tu proposes?!!!

Peut-être ici?

 

[Phil69970]

@Cousinhub

Effectivement il était coincé à cet endroit 🤣 🤣 🤣

 

[JohnBill]

Merci à tous. Comme toujours, toutes vos solutions conviennent (Je les ais testées) et je vais en transférer une sur mon fichier réel.