Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 14/10/2011, 10h47   #1
Invité de passage
 
Homme
Étudiant
Inscription : octobre 2011
Messages : 8
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : Industrie

Informations forums :
Inscription : octobre 2011
Messages : 8
Points : 1
Points : 1
Par défaut cherche macro pour supprimer () dans du texte

Bonjour,
Je recherche une âme charitable pour me dépanner.
J'aurais besoin d'une première macro sous word pour ajouter des parenthèses aux nombres à 2 chiffres qui sont dans le texte.
exemple de texte : blabla 12 blabla.
Je souhaiterais que le texte devienne : blabla (12) blabla.

Deuxième macro pour supprimer les parenthèses et les chiffres :
exemple: blabla (12) blabla.
Je souhaiterais que le texte devienne : blabla blabla.

Pensez-vous que c'est réalisable ?
Merci
potiocom est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/10/2011, 12h06   #2
Modérateur
 
Homme Christophe CHAPAT
Spécialiste progiciel
Inscription : février 2010
Messages : 984
Détails du profil
Informations personnelles :
Nom : Homme Christophe CHAPAT
Âge : 25
Localisation : France, Haute Loire (Auvergne)

Informations professionnelles :
Activité : Spécialiste progiciel
Secteur : Service public

Informations forums :
Inscription : février 2010
Messages : 984
Points : 1 597
Points : 1 597
Envoyer un message via MSN à carden752
Bonjour,
une macro n'est pas obligatoire pour faire ces remplacements.
Il suffit de spécifier le texte à remplacer comme ceci avec caractères génériques :
^# = tout chiffre
^& = zone de recherche
Zone rechercher : ^#^#
Zone remplacer : (^&)

Par macro, c'est le même principe, quelque chose de ce style
Code :
1
2
3
4
5
6
7
8
9
10
 
sub remplacement()
selection.find.clearformatting
with selection.find
.Text="^#^#"
.replacement.Text="(^&)"
.matchwildcards = True 'Caractères génériques
end  with
selection.find.execute wdreplaceall
end sub
__________________
Cordialement,
Christophe

Merci de ne pas oublier de mettre résolu quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche
carden752 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/10/2011, 12h41   #3
Invité de passage
 
Homme
Étudiant
Inscription : octobre 2011
Messages : 8
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : Industrie

Informations forums :
Inscription : octobre 2011
Messages : 8
Points : 1
Points : 1
Merci ça marche !
potiocom est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/10/2011, 12h44   #4
Invité de passage
 
Homme
Étudiant
Inscription : octobre 2011
Messages : 8
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : Industrie

Informations forums :
Inscription : octobre 2011
Messages : 8
Points : 1
Points : 1
Et pour supprimer les () ?
par exemple pour transformer : "blabla (21)" en "blabla" ?
potiocom est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/10/2011, 13h18   #5
Modérateur
 
Homme Christophe CHAPAT
Spécialiste progiciel
Inscription : février 2010
Messages : 984
Détails du profil
Informations personnelles :
Nom : Homme Christophe CHAPAT
Âge : 25
Localisation : France, Haute Loire (Auvergne)

Informations professionnelles :
Activité : Spécialiste progiciel
Secteur : Service public

Informations forums :
Inscription : février 2010
Messages : 984
Points : 1 597
Points : 1 597
Envoyer un message via MSN à carden752
Bonjour,

Sans utiliser les caractères génériques, correction de la première partie.
Avec les caractères génériques, il faut utiliser les plages [0-9]{2}

Pour ton second problème sans caractères génériques:
Zone Rechercher : (^#^#)
Zone Remplacer :

J'ai supposé que tu remplaces par rien
Je te laisse faire la macro si besoin
__________________
Cordialement,
Christophe

Merci de ne pas oublier de mettre résolu quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche
carden752 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/10/2011, 14h25   #6
Invité de passage
 
Homme
Étudiant
Inscription : octobre 2011
Messages : 8
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : Industrie

Informations forums :
Inscription : octobre 2011
Messages : 8
Points : 1
Points : 1
Merci beaucoup !
potiocom est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h15.


 
 
 
 
Partenaires

Hébergement Web