suppression espace derrière un code

[newoceane2000]

Bonjour,

J'ai en colonne B de mon fichier Excel, un certain nombre de code du type M11111 qui peuvent ou pas être suivi d'un ou plusieurs espaces.

Est-il possible d'avoir une macro qui supprime les espaces en trop derrière chaque code de la colonne B ?

Merci pour votre aide

Elodie

 

[Claus Busch]

Hi Elodie,

Am Mon, 25 Nov 2013 08:55:06 -0800 (PST) schrieb (e-mail address removed):

J'ai en colonne B de mon fichier Excel, un certain nombre de code du type M11111 qui peuvent ou pas être suivi d'un ou plusieurs espaces.

Est-il possible d'avoir une macro qui supprime les espaces en trop derrière chaque code de la colonne B ?

select column B => TextToColumns => Fixed width => Finish
or
Find & Replace Find what Space (" " without qoutes) Replace with nothing
Replace all.


Sélectionnez la colonne B = > TextToColumns = > largeur fixe = >
terminer
ou
Rechercher / Remplacer trouver quel espace (" " sans qoutes) remplacer
par rien
Tout remplacer.


Regards
Claus B.

 

[Norman Jones]

Bonjour,

J'ai en colonne B de mon fichier Excel, un certain nombre de code du type M11111 qui peuvent ou pas être suivi d'un ou plusieurs espaces.

Est-il possible d'avoir une macro qui supprime les espaces en trop derrière chaque code de la colonne B ?

Merci pour votre aide

Elodie

Bonjour Elodie,

Claus has suggested 2 good manual solutions using native Excel features
but, if you still want a macro solution, try something of the kind:

'=============>>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim i As Long
Dim j As Long
Dim iLastRow As Long
Dim myArr As Variant
Const cColonne As String = "B"

Set WB = ThisWorkbook
Set SH = WB.Worksheets("Feuil1") '<<====== Change (Remplace)

With SH
iLastRow = .Cells(.Rows.Count, cColonne).End(xlUp).Row
Set Rng = .Columns(cColonne).Cells(1).Resize(iLastRow)
End With

myArr = Rng.Value

If IsArray(myArr) Then
For j = LBound(myArr) To UBound(myArr)
myArr(j, 1) = RTrim(myArr(j, 1))
Next j
Else
Rng.Value = RTrim(Rng.Value)
End If

With Application
.ScreenUpdating = False
Rng.Value = myArr
.ScreenUpdating = True
End With
End Sub
'<<=============


===
Regards
Norman