IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

cherche macro pour supprimer () dans du texte


Sujet :

VBA Word

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2011
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2011
    Messages : 9
    Points : 6
    Points
    6
    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

  2. #2
    Membre expert

    Homme Profil pro
    Spécialiste progiciel
    Inscrit en
    Février 2010
    Messages
    1 747
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Haute Loire (Auvergne)

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

    Informations forums :
    Inscription : Février 2010
    Messages : 1 747
    Points : 3 016
    Points
    3 016
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2011
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2011
    Messages : 9
    Points : 6
    Points
    6
    Par défaut
    Merci ça marche !

  4. #4
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2011
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2011
    Messages : 9
    Points : 6
    Points
    6
    Par défaut
    Et pour supprimer les () ?
    par exemple pour transformer : "blabla (21)" en "blabla" ?

  5. #5
    Membre expert

    Homme Profil pro
    Spécialiste progiciel
    Inscrit en
    Février 2010
    Messages
    1 747
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Haute Loire (Auvergne)

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

    Informations forums :
    Inscription : Février 2010
    Messages : 1 747
    Points : 3 016
    Points
    3 016
    Par défaut
    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

  6. #6
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2011
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2011
    Messages : 9
    Points : 6
    Points
    6
    Par défaut
    Merci beaucoup !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Cherche macro pour texte
    Par zeus1774 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 05/07/2013, 00h47
  2. Une macro pour supprimer des lignes dans un message
    Par blade2a dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 26/06/2012, 01h26
  3. [XL-2007] Créer une macro pour supprimer des onglets dans un autre classeur
    Par nicosd54 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 08/03/2011, 10h01
  4. [XL-2007] Macro pour supprimer les espaces dans les cellules
    Par ab1to dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 26/11/2009, 16h25
  5. [PPT-2003] Cherche macro pour chercher/remplacer texte dans tableau
    Par cactus666 dans le forum VBA PowerPoint
    Réponses: 9
    Dernier message: 27/05/2009, 13h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo