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