XL 2019 Suppression espace de début et fin - Macro très rapide

Bastien43 · 28 Juillet 2021

Bonjour,

J'ai créé cette macro pour supprimer les espaces de début et de fin de chaque cellule (de toute une colonne : 12000 lignes)

Comment accélérer la macro, ce n'est pas rapide... ?? Existe-t-il un code plus rapide ?

VB:

Sub SupEspace()

Dim plage, cellule

Set plage = Range("D2:D12000")

For Each cellule In plage

    cellule.Value = Trim(cellule.Value)

Next cellule

End Sub

Efgé · 28 Juillet 2021

Bonjour Bastien43

Par tableau (array)

VB:

Sub SupEspace2()

Dim plage As Range
Dim T As Variant
Dim i&, j&

Set plage = Range("D2:D12000")
T = plage
For i = LBound(T, 1) To UBound(T, 1)
    For j = LBound(T, 2) To UBound(T, 2)
        T(i, j) = Trim(T(i, j))
    Next j
Next i
plage.FormulaLocal = T
End Sub

Cordialement

job75 · 1 Août 2021

Oui, on sait bien que Application.Trim c'est la fonction SUPPRESPACE en VBA.

Comme la fonction TRIM de mon post #8.

Et on sait bien que la fonction Trim en VBA ne fait pas la même chose.

laurent950 · 1 Août 2021

Merci @patricktoulon

patricktoulon à dit:
tu la vois la différence ou pas ???

J'ai compris la différence à présent
un grand merci à toi Patrick
Patrick tu as donné l'explication ici
TRIM VS Application.TRIM

[Toutes versions] TRIM VS Application.TRIM - Macros et VBA Excel

dans une autre discussion MarcL a apporté une solution interessante mais souleve une question trim /Application.trim j'ai fait une petite experience je met la lettre "A" en D1 ,"B" en F1 , &q

www.developpez.net

Super Milles Merci @patricktoulon .
Laurent

ChTi160 · 1 Août 2021

bonsoir le Fil ,le Forum
moi je ne savais pas ! merci Patrick
Bonne fin de Soirée
jean marie

XL 2019 Suppression espace de début et fin - Macro très rapide

Bastien43

XLDnaute Occasionnel

Efgé

job75

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

[Toutes versions] TRIM VS Application.TRIM - Macros et VBA Excel

ChTi160

XLDnaute Barbatruc

Discussions similaires