XL 2016 VBA enlever espace cellule

Marjo2 · 29 Mai 2019

Bonjour Forum,
J'ai lu énormément de cas similaire mais rien ni fait, je n'arrive pas à adapter.
Je ne souhaite pas ajouter de colonne pour y mettre des formules supprespace et autre. D'où un code VBA.

Dans mon onglet ACHAT, en colonne E et F, je peux soit avoir des chiffres soit des espaces (cellules en format texte).
Quand je fais mon concatener (colonne D + colonne E + colonne F), celui-ci n'est pas bon car il est faussé par les espaces.

J'ai fait ce bout mais ça plante.
Sub SupEsp()
'supprimer les espaces d'une cellule
Dim Cell As Range
Worksheets("ACHAT").Select
Columns("E:E").Select
Columns("F:F").Select
For Each Cell In ActiveSheet.UsedRange
Cell = Application.WorksheetFunction.Trim(Cell)
Next
End Sub

Quelqu'un pour m'aider svp ?
Merci d'avance.

Hasco · 29 Mai 2019

Bonjour,

Pas trop compris où était la concaténation mais pour supprimer les espaces j'utiliserais plutôt ceci:

VB:

Sub SupprimerEspaces()
    With Sheets("ACHAT")
        With Intersect(.UsedRange, .Range("E:F"))
            .Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
        End With
    End With
End Sub

Bonne fin d'après-midi

job75 · 29 Mai 2019

Bonjour Marjo2, Roblochon,

Marjo2 à dit:
Quand je fais mon concatener (colonne D + colonne E + colonne F), celui-ci n'est pas bon car il est faussé par les espaces.

Les espaces ne sont pas du tout gênants, enlevez-les lors de la concaténation :

- formule dans la feuille => D2&SUPPRESPACE(E2)&SUPPRESPACE(F2)

- VBA => [D2] & Trim([E2]) & Trim([F2])

A+

Marjo2 · 29 Mai 2019

Merci ça fonctionne au top.

Marjo2 · 29 Mai 2019

Bonjour Job75,
C'est vrai, c'était plus simple

XL 2016 VBA enlever espace cellule

Marjo2

XLDnaute Occasionnel

Pièces jointes

Hasco

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Marjo2

XLDnaute Occasionnel

Marjo2

XLDnaute Occasionnel

Discussions similaires