• Initiateur de la discussion Initiateur de la discussion art
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

art

Guest
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
 
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
 
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?
@+
 
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
 
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?
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
Réponses
6
Affichages
2 K
L
Retour