Supprimer virgules suivi de rien
pseudo
-
sriviere Messages postés 879 Statut Membre -
sriviere Messages postés 879 Statut Membre -
Bonjour,
J'ai des virgules "orphelines" (des virgules suivies de rien) dans un tableau inséré dans un document.
Je veux les supprimer par macro, mais je ne sais aps comment les rechercher.
pour chercher une virgule, une instruction du genre
Selection.Find.Execute FindText:=",", Replace:=wdReplaceAll, ReplaceWith:=""
MAIS je ne veux pas supprimer toutes les virgules mais juste celles suivies de rien.
Merci
J'ai des virgules "orphelines" (des virgules suivies de rien) dans un tableau inséré dans un document.
Je veux les supprimer par macro, mais je ne sais aps comment les rechercher.
pour chercher une virgule, une instruction du genre
Selection.Find.Execute FindText:=",", Replace:=wdReplaceAll, ReplaceWith:=""
MAIS je ne veux pas supprimer toutes les virgules mais juste celles suivies de rien.
Merci
A voir également:
- Supprimer virgules suivi de rien
- Supprimer rond bleu whatsapp - Guide
- Suivi des modifications word - Guide
- Impossible de supprimer une page word - Guide
- Impossible de supprimer un fichier - Guide
- Suivi colis - Guide
10 réponses
Bonjour,
Pour trouver les virgules suivies de rien, mettez un espace après la virgule dans FindText:=", "
Cordialement
Pour trouver les virgules suivies de rien, mettez un espace après la virgule dans FindText:=", "
Cordialement
Non, je ne peux pas mettre ", " parce que j'ai aussi des virgules qui servent à quelque chose et si j'ai 2 elements par exemple "elem1, elem2" alors ca va me supprimer ces virgules là aussi.
Si tu es dans Word, tu vas dans Chercher/Remplacer (CtrlH)
Tu écris :
Chercher : , ([!a-z])
ou en clair : virgule espace parenthèse crochet point d'exclamation a-z crochet parenthèse
Remplacer par : rien
et tu cliques dans Plus et tu coches la case caractères génériques.
Le chercher va te chercher les virgules non suivies de lettres et le remplacer par rien. Cela n'affectera pas tes virgules suivies d'un espace et d'un mot.
Tu écris :
Chercher : , ([!a-z])
ou en clair : virgule espace parenthèse crochet point d'exclamation a-z crochet parenthèse
Remplacer par : rien
et tu cliques dans Plus et tu coches la case caractères génériques.
Le chercher va te chercher les virgules non suivies de lettres et le remplacer par rien. Cela n'affectera pas tes virgules suivies d'un espace et d'un mot.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Et pour la macro :
With Selection.Find
.Text = ", ([!a-z])"
.Replacement.Text = ""
.MatchWildcards = True
End With
With Selection.Find
.Text = ", ([!a-z])"
.Replacement.Text = ""
.MatchWildcards = True
End With
Hello,
Je ne sais pas quoi te dire car quand je fais le chercher/remplacer et remplacer tout, avec les caractères génériques, sur mon ordi, ça fonctionne parfaitement !
Il ne me reste que les virgules et les mots qui suivent, mais c'est dans la mesure où il y a un espace après la virgule bien sûr.
Peut-être que tu n'as pas d'espace après ta virgule ?
Dans ce cas-là, tu peux faire cela en deux temps :
tu vas mettre un espace après toutes les virgules :
Chercher : , (sans espace)
Remplacer par : , (rajoute un espace après la virgule)
Ensuite :
Chercher : , ([!a-z]) (là tu vas mettre un espace après la virgule)
Remplacer par : rien
+ et cocher les caractères génériques
Ensuite, tu vas enlever tes deux espaces après la virgule pour le reste de ton tableau (décoche les caractères génériques) ainsi :
Chercher : , (+ deux espaces)
Remplacer : , (un espace)
Ca devrait marcher !
Je ne sais pas quoi te dire car quand je fais le chercher/remplacer et remplacer tout, avec les caractères génériques, sur mon ordi, ça fonctionne parfaitement !
Il ne me reste que les virgules et les mots qui suivent, mais c'est dans la mesure où il y a un espace après la virgule bien sûr.
Peut-être que tu n'as pas d'espace après ta virgule ?
Dans ce cas-là, tu peux faire cela en deux temps :
tu vas mettre un espace après toutes les virgules :
Chercher : , (sans espace)
Remplacer par : , (rajoute un espace après la virgule)
Ensuite :
Chercher : , ([!a-z]) (là tu vas mettre un espace après la virgule)
Remplacer par : rien
+ et cocher les caractères génériques
Ensuite, tu vas enlever tes deux espaces après la virgule pour le reste de ton tableau (décoche les caractères génériques) ainsi :
Chercher : , (+ deux espaces)
Remplacer : , (un espace)
Ca devrait marcher !
