espaces

[art]

Bonsoir à tous et plus particulièrement à Monique et Celeda qui m'ont déjà donné un sérieux coup de main.
CEtte fois ci je suis embeté à cause de certains espaces en trop dans mes cellules. Je voudrais les éliminer à l'aide d'une macro tout en conservant les espaces "normaux".
Pour cela j'ai utilisé la fonction Trim dans mon code

For Each Cell in Selection
Cell.Value = Trim(Cell.Value)
Next Cell

Mais rien ne se passe. Ou es-je commis l'erreur?
Merci encore à vous tous

 

[DJN90]

Bsr,

Je pense que tu peux trouver une solution sur le fil de ce matin

<http://www.excel-downloads.com/html/French/forum/messages/1_31821_31821.htm>

Fait savoir au forum ce qu'il en est.

@+ Dan

 

[art]

Bonsoir DJN90
Je te remercie de ta réponse mais j'avais deja consulté ce fil auparavant et essayé le code, le problème est que ce code supprime tous les espaces, y compris les espaces entre les mots(pas très pratique dans mon cas).
J'aimerais que la macro supprime tous les espaces superflues et conserve les espaces entre les mots.
J'ai par exemple dans une cellule:
27 rue des marroniers rouges
et j'aimerais retrouver une phrase normal. Es-ce possible?
@+

 

[art]

PS: Il y a plusieurs espaces entre "marronnier" et "rouges" qui ont disparu lors de l'enregistrement de ma question

 

[pyrof]

Bonjour,

Il ne faut pas utiliser trim(cel.value) mais Trim(cel) tout simplement

Sub essai()
For Each cel In Selection
cel.Value = Trim(cel)
Next
End Sub

Trim s'attend a avoir de l'alpha et value du numérique de plus le texte commence par du numérique

 

[art]

Salut à tous,
Merci pyrof pour tes explications mais après plusieurs essais sur ta macro, celle ci ne supprime que les espaces superflus en début de phrase, y a t il un moyen d'enlever ceux qui sont en fin et au milieu d'une phrase?
@+

 

[pyrof]

Bonjour,

Il faut utilisé la commande replace

cel=replace(cel," ","")

c'est aussi simple que ça

bonne journée

 

[art]

Merci pyrof
passe un bon week end
@+