Sujet Précédent Sujet Suivant

Supprimer virgules suivi de rien

Fermé
pseudo - 28 mai 2010 à 10:57
sriviere Messages postés 853 Date d'inscription jeudi 21 janvier 2010 Statut Membre Dernière intervention 2 mai 2013 - 28 mai 2010 à 17:01
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
A voir également:

10 réponses

Réponse 1 / 10
sriviere Messages postés 853 Date d'inscription jeudi 21 janvier 2010 Statut Membre Dernière intervention 2 mai 2013 410
28 mai 2010 à 11:15
Bonjour,

Pour trouver les virgules suivies de rien, mettez un espace après la virgule dans FindText:=", "

Cordialement
0
Réponse 2 / 10
pseudo
28 mai 2010 à 11:31
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.
0
Réponse 3 / 10
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 mai 2010 à 11:54
Et de quel logiciel parles tu ?
0
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
28 mai 2010 à 15:35
Salut michel,

Chuuuut, c'est top-secret ! ;-)
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 mai 2010 à 15:38
KGB ?

aie, aie, aie...
0
Réponse 4 / 10
sriviere Messages postés 853 Date d'inscription jeudi 21 janvier 2010 Statut Membre Dernière intervention 2 mai 2013 410
28 mai 2010 à 12:31
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
sriviere Messages postés 853 Date d'inscription jeudi 21 janvier 2010 Statut Membre Dernière intervention 2 mai 2013 410
Modifié par sriviere le 28/05/2010 à 12:39
Et pour la macro :

With Selection.Find
.Text = ", ([!a-z])"
.Replacement.Text = ""
.MatchWildcards = True
End With
0
Réponse 6 / 10
pseudo
28 mai 2010 à 13:58
Merci, je vais tester de ce pas
0
Réponse 7 / 10
pseudo
28 mai 2010 à 15:17
Visiblement ca ne marche pas (que ce soit l'une ou l'autre des methodes)
0
Réponse 8 / 10
sriviere Messages postés 853 Date d'inscription jeudi 21 janvier 2010 Statut Membre Dernière intervention 2 mai 2013 410
Modifié par sriviere le 28/05/2010 à 16:52
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 !
0
sriviere Messages postés 853 Date d'inscription jeudi 21 janvier 2010 Statut Membre Dernière intervention 2 mai 2013 410
28 mai 2010 à 16:57
Dans ton premier essai, tu as peut-être mis un espace après ([!a-z]), non ?
0
Réponse 9 / 10
pseudo
28 mai 2010 à 16:59
effectivement, je n'avais pas d'espace apres la virgule, mais je n'avais pas pensé à faire le
Chercher : , (sans espace)
Remplacer par : , (rajoute un espace après la virgule)

ca marche là
merci sriviere !
0
Réponse 10 / 10
sriviere Messages postés 853 Date d'inscription jeudi 21 janvier 2010 Statut Membre Dernière intervention 2 mai 2013 410
28 mai 2010 à 17:01
OK, c'est bien.
Bonne fin d'après-m.
0