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

patricktoulon

XLDnaute Barbatruc

• 31 Juillet 2021

• #61

re
chez moi


en gros vos fichier avec mes formules rames comme pas possible chez moi
alors que les mêmes codes me donne 2.38 sur un fichier 2013
va comprendre Charles

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 1 Août 2021

• #62

Bonjour à toutes et tous, le fil, le forum

En discutant entre nous, nous avons oublié de donner une version directement utilisable par Bastien43
En supprimant le nom créé pour faire plus "propre"

VB:

Sub Bastien43()
Dim T As Variant
With [D2:D12000]
    .Name = "P" 'plage nommée
    T = Evaluate("TRIM(p)")
    .Value = T
    .Name.Delete
End With
End Sub

Cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Août 2021

• #63

re
Bonjour Efgé
tu m'expliquera pourquoi en gardant l’écriture "evaluate" non abrégée tu nome ta plage
tu n'en a pas besoins

VB:

Sub test()
Dim T As Variant
With [D2:D12000]
     T = Evaluate("TRIM(" & .address(0,0) &")")
    .Value = T
   End With
End Sub

le nommage c'est bon pour l’écriture abrégée "[....]" car on ne peut pas variabiliser la référence au range et l'insérer dans la formule il faut absolument une ref range

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 1 Août 2021

• #64

Bonjour patricktoulon

Je n'explique rien du tout, je met la dernière version commune au propre pour le demandeur.

Cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Août 2021

• #65

re
ben comme ça elle est vraiment propre
tu ne modifie dans le fichier que la plage concernée


formule abrégée [...] 'obligé de nommer pour créer une ref range (car impossible de variabiliser dans cette ecriture)
formule longue "evaluate(....) 'utilisation de l'address de la ref range

😉

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Août 2021

• #66

Bonjour à tous,

Pour terminer, Efgé m'a confirmé que cette macro fonctionne bien sur Excel 2007 :

VB:

Sub SupEspace()
[D2:D12000].Name = "P" 'plage nommée
[E2:E12000] = [TRIM(P)] 'SUPPRESPACE
End Sub

Elle travaille sur 2 plages sans variable T intermédiaire.

Donc le problème de non-compatibilité de mon post #8 venait bien du fait qu'on restait sur la même plage.

A+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Août 2021

• #67

re
Bonsoir @job75

Donc le problème de non-compatibilité de mon post #8 venait bien du fait qu'on restait sur la même plage.

Cliquez pour agrandir...

ben bien sur comme je l'ai dit sur la même plage il faut activer le calcul iteratif
cela dit pour ce qui concerne ce post a savoir le simple trim gauche et droite
j'aimerais bien que l'on trouve une formule moins lente que ma double formule en deux passes
si tu connais celle pour une cellule j'aimerais bien la connaitre je recorderais un rept
j'ai fait plusieurs essais mais je dois me planter dans un double guillemet ou quelque chose comme ça
merci d'avance
et vive evaluate!!!

bon d'accords je sort 😁

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 1 Août 2021

• #68

patricktoulon à dit:

[...]j'aimerais bien que l'on trouve une formule moins lente que ma double formule en deux passes
[...]

Cliquez pour agrandir...

VB:

Sub Bastien43()
Dim T As Variant
With [D2:D12000]
    .Name = "P" 'plage nommée
    T = Evaluate("TRIM(p)")
    .Value = T
    .Name.Delete
End With

😀

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Août 2021

• #69

re
heu non Efgé!!!
cette formulation trim gauche et droite et régule les espaces consecutif a 1 seul dans la chaîne
🤣

comme je l'ai dis dans ma démo dans les pages précédentes la fonction "TRIM" de excel est l’équivalent de application.trim de VBA qui régule aussi les espaces consecutifs
et non l'equivalent de Trim de VBA

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Août 2021

• #70

patricktoulon à dit:

j'aimerais bien que l'on trouve une formule moins lente que ma double formule en deux passes

Cliquez pour agrandir...

Comme dit au post #8 il n'y a aucun intérêt à conserver des espaces superflus donc SUPPRESPACE suffit.

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 1 Août 2021

• #71

Bonjour le Forum,

En une ligne : plage = Application.Trim(plage)

VB:

Sub SupEspace()

Dim plage As Range
    Set plage = Range("D2:D12000")
    plage = Application.Trim(plage)
End Sub

Laurent

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Août 2021

• #72

bonjour Laurent
t'a pas bien compris je crois
bien que cette formulation fonctionne aussi pour le trim régular
c'est exactement la même chose que les deux autres
c'est pas ce qui est recherché en fait 😉
ne pas confondre VBA.trim et Application.trim

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 1 Août 2021

• #73

Bonsoir Patrick

patricktoulon à dit:

trim régular

Cliquez pour agrandir...

C'est quoi un Trim régular ? je connais pas cela

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Août 2021

• #74

@laurent950 pour faire une ligne il vaut mieux :

Code:

[D2:D12000] = Application.Trim([D2:D12000])

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Août 2021

• #75

RE
Laurent

VB:

Sub test()
MsgBox "|" & Application.Trim("   blablabla      blablabla        blablabla     ") & "|" & vbCrLf & _
 "|" & VBA.Trim("   blablabla      blablabla        blablabla     ") & "|"
End Sub

tu la vois la différence ou pas ???

 

Vote positif 0 Vote négatif