Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supprimer les espaces à la fin des mots

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fredjuni
  • 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 !

S'inscrire
F

fredjuni

Guest
Bonjour, voila je travail actuellement sur un fichier excel, je travail sur un mailing qui comporte environ 7000 lignes le probleme c'est que c'est ligne ont été exporté d'un autre fichier, et j'ai créer une formule automatique pour pouvoir faire des calcul mais ma formule ne marche pas car certains noms ont un espace apres chaque mot.

Donc ma question :
Qu'est il possible de faire pour qu'automatiquement les espaces soient supprimé a la fin de chaque mot dans les cellules. ?

Merci
 
Trier par date Trier par votes
Re : Supprimer les espaces à la fin des mots

Bonsoir fredjuni et Bienvenue sur Xld,

Regardes déjà les cinq discussions similaires en bas de ton fil.... Il y a déjà des réponses.

Sinon, tout dépend de la nature des espaces...

Par Edition/Remplacer, premier champ Alt 0160 et remplacer tout, si ce sont des espaces dits insécables.

A te lire, et au besoin, un petit exemple, zippé si possible.

Jean-Pierre
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

skoobi à dit:
Bonsoir,

pour la cellule A1:

Range("A1").Value = Trim(Range("A1").Value)
Cliquez pour agrandir...

Je ne comprend pas très bien, ceci est une fonction? Je dois mettre un = devant? ou bien est ce une macro? et je dois l'éditer avec visual basic editor? J'ai très peu de notion en visual basic par contre excel je maîtrise plutôt bien dans l'ensembl. Merci
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Bonsoir à tous,

Voici une solution par formule.

Suppression des espaces devant et derrière les valeurs contenues en A1 :
=SUPPRESPACE(A1)
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Re, salut jeanpierre 🙂, Edit: ainsi qu'à cbea

Il s'agit d'une macro. Si tu ne connais pas bien VBA, la solution de jeanpierre devrait te convenir non?
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Bonsoir à tous


En complément des autres réponses
Si en A1: un mot deux motsCAR160
En B1
=SUBSTITUE(SUBSTITUE(A1;CAR(160);"");CAR(32);"")
renvoie
unmotdeuxmots
En B1
=SUPPRESPACE(A1)
renvoie :
unmotdeuxmotsCAR160
(conserve le caractère ASCII 160)

EDITION: Pour savoir si une cellule contient un CAR(32) ou un CAR(160)
Exemple pour la cellule A1
=ESTNUM(TROUVE(CAR(160);A1))*1
si oui renvoie 1 si non renvoie 0
=ESTNUM(TROUVE(CAR(32);A1))*1
si oui renvoie 1 si non renvoie 0
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots


j'ai marqué Alt 0160 a coté de rechercher c'est bien ça? Sinon si ta méthode correspond a faire chaque ligne un a un j'en aurais jamais fini car y en a plus de 7000 et tous les jours la liste est actualisé.
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Re,

Non, Alt enfoncée et saisie de 0160 dans le menu Edition/Remplacer, tout ce fait en une seconde.... (selectionnes ta plage, mais je pense que ce n'est pas nécessaire)

Cela reste du manuel, mais rapide.
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

jeanpierre à dit:
Re,

Non, Alt enfoncée et saisie de 0160 dans le menu Edition/Remplacer, tout ce fait en une seconde.... (selectionnes ta plage, mais je pense que ce n'est pas nécessaire)

Cela reste du manuel, mais rapide.
Cliquez pour agrandir...

J'ai essayé mais ça fait rien (peut-être parce que j'ai pas de clavier numérique) j'ai un pc portable et les chiffres sont les touches au dessus du clavier de lettre
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Re,

Cela ne doit rien changer.... les chiffres saisis au clavier numérique ou sur le clavier normal sont les mêmes.

Déposes nous un exemple de ton fichier (quelques lignes), (zippé si possible)... On y verra plus clair.

A te lire.
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

skoobi à dit:
Re, salut jeanpierre 🙂, Edit: ainsi qu'à cbea

Il s'agit d'une macro. Si tu ne connais pas bien VBA, la solution de jeanpierre devrait te convenir non?
Cliquez pour agrandir...

skoobi, je sais créer une macro moi même, mais une macro assez simple, je sais ensuite l'éditer avec visualbasicéditor mais par contre je ne sais pas quoi mettre mais c'est vrai que j'aimerais bien avoir une macro avec un raccourci clavier comme ça c'est fait en 2 secondes a chaque fois.

Est il possible que tu me dises exactement ce qu'il faut mettre pour toutes les colonnes du classeur ce situant en B et D ?
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Re

Un exemple de macro pour la colonne C

Code: 
Sub test()
Application.ScreenUpdating = False
Dim C As Range
For Each C In Columns("C:C").SpecialCells(xlCellTypeConstants, 23)
C.Value = Replace(C.Text, Chr(32), vbNullString)
C.Value = Replace(C.Text, Chr(160), vbNullString)
Next
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots


NIQUEL !!! ça marche super ! 😀 merci beaucoup ! par contre sans abuser de ta gentillesse est il possible de mettre un raccourci clavier (si oui comment faire) ? sinon au pire je créer un bouton 🙄 merci
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Re


Une version qui devrait s'exécuter plus rapidement
(pour la colonne B et D)
Code: 
Sub test_II()
Dim C As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each C In Union(Columns("B:B").SpecialCells(xlCellTypeConstants, 23), _
Columns("D:D").SpecialCells(xlCellTypeConstants, 23))
C.Value = Replace(C.Text, Chr(32), vbNullString)
C.Value = Replace(C.Text, Chr(160), vbNullString)
Next C
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Pour créer un raccourci, Outils/Macros
Tu sélectionnes la macro ici test_II
puis Options
et la tu attribues ton raccourci clavier.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
3 K
olivier1984
O
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
981
oguruma
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
P
  • Résolu(e)
Microsoft 365 Supprimer les blancs se trouvant à la fin d'une liste en cascade
2
Réponses
17
Affichages
4 K
papillondelumiere
P
J
  • Question Question
VBA pou archiver les valeurs d'une cellule à la fin de la journée
Réponses
1
Affichages
1 K
xylomyd
X
N
  • Question Question
Adapter un texte avec la mauvaise casse et des mots en trop
Réponses
5
Affichages
786
NoNoSS
N
S
  • Question Question
XL 2013 [RESOLU]Combiner des fonctions Somme.SI + NB.SI + Dates
Réponses
8
Affichages
3 K
gosselien
L
  • Question Question
Recherchev et format des cellules
Réponses
6
Affichages
3 K
R@chid
P
  • Question Question
comment supprimer les espaces a la fin d'un mot par le VBA
Réponses
7
Affichages
1 K
Si...
S
I
  • Question Question
une instruction ultra basique ne s'excecute pas, sans message d'erreur. je craque >_<
2
Réponses
16
Affichages
3 K
PMO2
P
  • Question Question
Supprimer les espaces au début et à la fin d'une cellule
Réponses
4
Affichages
2 K
Chris57
K
  • Question Question
Validation de données à partir d'une liste + nouveau choix
Réponses
5
Affichages
30 K
kang
K
A
  • Question Question
Insérer des hypothèses dans une macro + supprimer des photos grâce à une macro
Réponses
10
Affichages
22 K
alocator
A
K
  • Question Question
MFC et Mise à Jour des Cellules Liées
Réponses
4
Affichages
1 K
Kivlov
K
L
  • Question Question
Problème inexplicable et difficile
Réponses
3
Affichages
2 K
Gael
B
  • Question Question
Comment rendre la cellule d'une checkbox ou d'un bouton active
Réponses
2
Affichages
2 K
beuz82
B
S
  • Question Question
Formule Excel/VBA complexe : copie automatique "intelligente"
Réponses
2
Affichages
3 K
super_newbie_pro
S
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
N
  • Question Question
supprimer les espaces à la fin d'un textbox
Réponses
2
Affichages
2 K
Noël
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…