XL 2021 Suppression d'un espace

  • Initiateur de la discussion Initiateur de la discussion JohnBill
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JohnBill

XLDnaute Occasionnel
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).
 

Pièces jointes

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)
VB:
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
VB:
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
 
Dernière édition:
Bonsoir,
sinon, pour 165000 lignes, peut-être?

VB:
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?

1743524539519.png
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour