enlever espace

[gnimitz]

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]

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:

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]

Re : enlever espace

Merci!

J'ai trouvé aussi cela marche aussi

=SUBSTITUE(A1;" ";"")

Merci !!!!