enlever espace

gnimitz · 1 Juillet 2014

Bonjour à tous !

je désire enlever dans une colonne de plus de 1000 lignes l'espace après le MG

MG 1013051
MG 1013080
MG 1013097
MG 1013223
MG 1013602
MG 1035058
MG 104627

Merci d'avance et bonne après-midi !

Mike

VDAVID · 1 Juillet 2014

Re : enlever espace

Bonjour Gnimitz,

Tu as plusieurs solutions, je t'en donne 3 différentes:

Tu sélectionnes ta colonne, puis tu fais Ctrl + H. Dans rechercher tu mets un espace, dans remplacer tu mets rien puis tu clique sur Remplacer tout.

Par formule, dans une autre colonne:

=REMPLACER(J2;CHERCHE(" ";J2;1);1;"")

Par macro:

Code:

Sub SupprEspace()

    Dim i As Long
    Dim Ws As Worksheet
    Dim Colonne As String
    
    'Feuille où doit tourner la macro
    Set Ws = ThisWorkbook.Sheets("Feuil1")
    
    'Colonne où doit tourner la macro
    Colonne = "J"
    
    With Ws
    For i = 1 To .Range(Colonne & "65536").End(xlUp).Row
        
        .Range(Colonne & i).Value = Replace(.Range(Colonne & i).Value, " ", "")
    
    Next i
    
    End With
    
End Sub

Pour insérer la macro Alt + F11, le nom de la feuille est à adapter ainsi que la colonne.

Tu dois pouvoir trouver moult d'autres solutions sur internet pour ce problème 😛

Bonne journée !

gnimitz · 1 Juillet 2014

Re : enlever espace

Merci!

J'ai trouvé aussi cela marche aussi

=SUBSTITUE(A1;" ";"")

Merci !!!!

enlever espace

gnimitz

XLDnaute Occasionnel

VDAVID

XLDnaute Impliqué

gnimitz

XLDnaute Occasionnel

Discussions similaires

enlever espace

gnimitz

XLDnaute Occasionnel

VDAVID

XLDnaute Impliqué

gnimitz

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency