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


TOUT marche niquel mais pas pour le raccourci 🙁 j'ai mis CTRL + Maj + Q mais ça me fait rien quand je clique sur CTRL + Q je sais pas quoi

et autre probleme quand je protege ma feuille la macro ne s'execute plus erreur 1004 et il me met Fin ou Débogage, quelqu'un a la solution? Merci
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Re,

Tu dis : j'ai mis CTRL + Maj + Q et ensuite : quand je clique sur CTRL + Q, il manque le maintien de la touche Maj.

Sinon, dans ton code au début tu déprotèges ta feuille et tu la reprotèges à la fin.

ActiveSheet.Unprotect ("ton mot de passe")

et en fin :
ActiveSheet.protect ("ton mot de passe")
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

jeanpierre à dit:
Re,

Tu dis : j'ai mis CTRL + Maj + Q et ensuite : quand je clique sur CTRL + Q, il manque le maintien de la touche Maj.

Sinon, dans ton code au début tu déprotèges ta feuille et tu la reprotèges à la fin.
Cliquez pour agrandir...

Ah ok j'ai réussi effectivement j'appuyé que sur controle + Q (en majuscule) j'avaius pas capté qu'il fallait également appuyé sur maj 😱
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Re

par contre n'ya t-il pas une solution plus pratique que de chaque fois déproteger la feuille ?
Cliquez pour agrandir...
Si.
En utilisant UserInterFaceOnly:=True
cela permet d'exécuter le code VBA sur une feuille protégée.

Code: 
Sub test_III()
Dim C As Range
ActiveSheet.Protect , UserInterFaceOnly:=True
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
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Re,

Je viens de rééditer il y a peu pour te donner la marche à suivre pour déprotéger et reprotéger.... dans le corps de la macro.... C'est pratique, cela ne se voit pas.....
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

SUPER !!! TOUT MARCHE NIQUEL j'ai introduit dans le code ce que tu ma dit et ça fonctionne, en tout cas merci beaucoup a tous pour vos réponses tout fonctionne comme je le souhaitais 😀
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Bonjour,

Code: 
Sub test_III()
Dim C As Range
ActiveSheet.Protect , UserInterFaceOnly:=True
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

Cette macro me convient parfaitement, y a t'il un moyen de la faire se lancer lorsque je quitte la feuille ?
 
Vote positif 0 Vote négatif
Re : Supprimer les espaces à la fin des mots

Bonjour, le Fil, le Forum,

Oui, c'est possible en copiant ce code dans le module de l'onglet :

Code: 
Private Sub Worksheet_Deactivate()
Dim C As Range
ActiveSheet.Protect , UserInterFaceOnly:=True
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

A bientôt 🙂
 
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…