VBA function trim

Pierrot93

XLDnaute Barbatruc

• 14 Juin 2013

• #2

Re : VBA function trim

Bonjour,

essaye peut être la fonction native vba pluôt que la fonction de feuille de calcul :

Code:

Cell.Value = Trim(Cell.Value)

bon après midi
@+

Edition : bonjour Papou

 

Dernière édition: 14 Juin 2013

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 14 Juin 2013

• #3

Re : VBA function trim

Bonsoir Pepsister le forum
c'est très simple a résoudre, tu ne traites pas la dernière colonne et c'est fini
a+
Papou

EDIT Bonjour Pierrot

 

Vote positif 0 Vote négatif

V

vmatthieu

XLDnaute Occasionnel

• 14 Juin 2013

• #4

Re : VBA function trim

bonjour le forum, pepsister,
je n'ai pas trouvé la solution mais de ce que je comprends de "trim" cela supprime les espaces an début de chaines ou en fin de chaine mais pas au milieu à mois que je comprenne mal.
Pour les espaces du milieu de chaine tu peux utiliser un code de ce type
Dim cell As Range
Dim d As String
Application.ScreenUpdating = False
Set cell = Range("a1:aa200")

For Each c In cell
d = c.Value
For i = 1 To Len(d)
d = c.Value
g = Mid(d, i, 1)
If Mid(d, i, 1) = " " Then
c.Value = Mid(d, 1, i - 1) & Mid(d, i + 1)
i = i - 1
Else
End If
Next i
Next c
Application.ScreenUpdating = True

c'est un peu long (15 secondes pour 20000 espaces à supprimer sur 4000 cellules) mais bon...
bonne soirée

 

Vote positif 0 Vote négatif

V

vmatthieu

XLDnaute Occasionnel

• 14 Juin 2013

• #5

Re : VBA function trim

j'y pense un peu tard mais ce doit etre bien plus rapide avec la fonction "remplacer" " " par ""

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 15 Juin 2013

• #6

Re : VBA function trim

Bonsour®

vmatthieu à dit:

de ce que je comprends de "trim" cela supprime les espaces an début de chaines ou en fin de chaine mais pas au milieu à mois que je comprenne mal.

Cliquez pour agrandir...

il faut distinguer la fonction VBA Trim (suppression devant et derrière)
de la fonction TRIM de feuille de calcul (Application.WorkSheetFunction.Trim) qui correspond elle effectivement à SUPRRESPACE (suppression devant, derrière et redondants internes)

 

Vote positif 0 Vote négatif

P

pepsister

XLDnaute Junior

• 17 Juin 2013

• #7

Re : VBA function trim

En effet geedee, la fonction trim vba correspond à un supprespace. Ca supprime donc bien les espaces avant et après le mot de la cellule ainsi que tous espaces redondants dans la cellule.
Mon problème dans mon cas c'est qu'il transforme mon nombre à virgule par un nombre entier avec séparateur de milliers.
Exemple: considérons les crochets comme un espace. J'ai dans ma cellule:
[]259.1452
avec la fonction trim vba il le transforme en:
2 591 452
alors que je voudrais simplement le même nombre en enlevant l'espace devant:
259.1452

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Juin 2013

• #8

Re : VBA function trim

bonjour,
essaye peut être la conversion de données, exemple ci-dessous pour la colonne A

Code:

Columns(1).TextToColumns Destination:=Range("A1"), DecimalSeparator:="."

bonne journée
@+

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 17 Juin 2013

• #9

Re : VBA function trim

Bonsour®
vérifier la concordance ou non des options EXCEL avec les paramètres système (Windows)

ne pas oublier non plus que le code de l'espace insécable (séparateur de millier) n'est pas CAR(32) mais CAR(160) !!!

 

Pièces jointes

• Capture2.JPG

  56.6 KB · Affichages: 230
• Capture1.jpg

  69.2 KB · Affichages: 204
• Capture2.JPG

  56.6 KB · Affichages: 258
• Capture1.jpg

  69.2 KB · Affichages: 224
• Capture2.JPG

  56.6 KB · Affichages: 273
• Capture1.jpg

  69.2 KB · Affichages: 208

Dernière édition: 17 Juin 2013

Vote positif 0 Vote négatif