Code pour "supprespace"

[gerson94]

Bonjour les xldnautes,

Voilà je souhaite retirer les espaces superflus dans mes cellules sinon mes sommeprod sont à l'ouest. Ca marche avec la formule "supprespace". Ok.

Maintenant j'ai mis un code en place pour la colonne G. Il n'y a qu'une ligne qui ne marche pas.

Voici mon code :

nbl = Range("G3").CurrentRegion.Rows.Count
For i = 3 To nbl
Range("G" & i) = Trim(Range("G" & i))
Next

Range("G1").Select

A vous lire

Gerson

 

[BOISGONTIER]

Re : Code pour "supprespace"

Bonjour,

For Each c In [G3:g7]
c.Value = Application.Trim(c.Value)
Next

JB

 

[gerson94]

Re : Code pour "supprespace"

Bonjour,

For Each c In [G3:g7]
c.Value = Application.Trim(c.Value)
Next

JB

Re-Bonjour tous, Bonjour Boisgontier,

Rien à dire ton code marche du tonnerre! Je range mon code au rayon antiquité...
Bon sang! qu'est-ce que c'est simple quand çà marche!!!!
Problème résolu pour moi.

Merci encore.

Gerson

 

[gerson94]

Re : Code pour "supprespace"

Re-Bonjour tous, Bonjour Boisgontier,

Rien à dire ton code marche du tonnerre! Je range mon code au rayon antiquité...
Bon sang! qu'est-ce que c'est simple quand çà marche!!!!
Problème résolu pour moi.

Merci encore.

Gerson

Re à tous,

La macro retire bien les blancs superflus, mais ne s'arrête pas de tourner.
Je l'ai donc adapté comme ci-dessous mais rien n'y fait. Je souhaiterais s'il vous plaît qu'elle s'arrête après avoir balayé les 250 lignes de mon fichier.

Application.EnableEvents = False
For Each c In [G3:G250]
c.Value = Application.Trim(c.Value)
Next
Application.EnableEvents = True


A vous lire

Gerson

 

[volex]

Re : Code pour "supprespace"

Bonjour,

Je suis au boulot et je em bats avec des tas de colonnes mal formattées provenant d'un extract.

Beaucoup de cellules ont des espaces a la fin de la valeur et je dois en reformater certaines mais pas toutes.

Je cherche un code macro qui me permettrait de faire un trim (fonction SUPPRESPACE en anglais) sur les cellules que j'ai selectionner avec ma souris.

Je suis absolument nul en VBA et mes essais de codes ne fontionnent pas.


Si une ame charitable veut bien proposer une solution, je suis preneur !!!!



Alex

 

[Efgé]

Re : Code pour "supprespace"

Bonjour volex , l'ancien fil, le nouveau,
Sans aller chercher bien loin (le post précédent par exemple:

Sub test()
Application.EnableEvents = False
For Each c In Selection
    c.Value = Application.Trim(c.Value)
Next
Application.EnableEvents = True
End Sub

Cordialement

 

[volex]

Re : Code pour "supprespace"

Bonjour Efgé,

Je suis tombé sur ce post en faisant une recherche mais ton commenatire suggère que la réponse était déja dans un autre fil.

Je ne l'avais pas vu mais je te remercie pour ce code très efficace, cela va me faciliter la vie.


Merci


Alex