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 :

Recherche suite de nombre commençant par la même suite


Sujet :

VBA Word

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur validation
    Inscrit en
    Juin 2022
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur validation

    Informations forums :
    Inscription : Juin 2022
    Messages : 4
    Points : 1
    Points
    1
    Par défaut Recherche suite de nombre commençant par la même suite
    Bonjour,

    Je cherche à trouver dans mon document word des références commençant par le même suite de nombres/caractères mais se finissant par une suite différente.

    Par exemple:
    XXXX.001
    XXXX.002

    Je voudrais une fois toutes les références trouvées les encadrer entre crochets.

    C'est à dire:
    [XXXX.001]
    [XXXX.002]

    J'ai trouvé comment rechercher dans le doc et remplacer mais je n'arrive pas à chercher toutes les références en même temps pour automatiser le travail puis à sélectionner la référence pour l'encadrer.

    En bonus si quelqu'un a la réponse facilement, parfois les références sont concaténées (ex: XXXX.001/002/003). Est-ce qu'il y a un moyen que VBA reconnaisse cette suite pour séparer les différentes références et les mettre sous la forme [XXXX.001] [XXXX.002] [XXXX.003] ?

    Merci d'avance pour votre aide.

    Cordialement.

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Février 2010
    Messages
    264
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2010
    Messages : 264
    Points : 360
    Points
    360
    Par défaut pas besoin de VBA
    suffit de faire une recherche de l'occurrence et de faire un remplacer par

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    With ActiveDocument.Content.Find 
     .ClearFormatting 
     .Font.Bold = True 
     With .Replacement 
     .ClearFormatting 
     .Font.Bold = False 
     End With 
     .Execute FindText:="occurence", ReplaceWith:="XoccurenceX", _ 
     Format:=True, Replace:=wdReplaceAll 
    End With
     
    With ActiveDocument.Content.Find 
     .ClearFormatting 
     .Font.Bold = True 
     With .Replacement 
     .ClearFormatting 
     .Font.Bold = False 
     End With 
     .Execute FindText:="XoccurenceX", ReplaceWith:="[occurence]", _  'ou alors il faut chercher les 
     Format:=True, Replace:=wdReplaceAll 
    End With

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur validation
    Inscrit en
    Juin 2022
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur validation

    Informations forums :
    Inscription : Juin 2022
    Messages : 4
    Points : 1
    Points
    1
    Par défaut
    Merci pour votre réponse.

    Cependant, j'ai l'impression que cela ne répond pas exactement à ma demande.

    Effectivement rechercher toutes les occurrences n'est pas compliqué avec le préfixe.

    Par contre, je ne vois pas comment sélectionner le suffixe (qui est variable dans mon cas), une fois la référence trouvée pour ensuite l'encadrer.

  4. #4
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 261
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 261
    Points : 6 557
    Points
    6 557
    Par défaut
    @maword
    Votre postulat est mal formulé alors !
    Car la proposition de mach1974 répond à votre postulat. L'avez-vous au moins testée ?
    Pour aller plus vite et traiter d'une boucle toutes vos références, il faudrait utiliser la fct Array()
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur

  5. #5
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur validation
    Inscrit en
    Juin 2022
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur validation

    Informations forums :
    Inscription : Juin 2022
    Messages : 4
    Points : 1
    Points
    1
    Par défaut
    Alors je reformule.

    J'ai plusieurs références dans mon document qui commencent toutes par le même préfixe.

    Il y a plusieurs (une centaine) références du type XXXX.YYYY avec XXXX. toujours constant.

    Je cherche à prendre toutes ces références et les encadrer une par une entre crochets.

    C'est à dire: [XXXX.0001] par exemple.

    Je n'ai pas de difficulté à trouver les références en recherchant par le préfixe.

    Là où je n'arrive pas, c'est dire à excel de sélectionner les quatre nombres après XXXX. et de les prendre en compte dans la mise entre crochets.

    C'est à dire [XXXX.0001] [XXXX.0002] [XXXX.0003] etc.

    Le but est donc qu'excel reconnaisse seul les références en entier à partir du préfixe et les mette entre parenthèses.

    Ex:
    Dans ce document
    Cherche chaîne commençant par XXXX.
    Sélectionne chaîne et remplace par "[chaîne]". (toute la chaîne ex: "XXXX.YYYY")
    Jusqu'à qu'il n'y ait plus de chaîne

    J'espère que c'est plus clair maintenant.

  6. #6
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 261
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 261
    Points : 6 557
    Points
    6 557
    Par défaut
    re,
    Vous cherchez des valeurs dans un document dont le préfixe est alphabétique et le suffixe numérique, le tout séparé par un point
    A tester.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Dim rngDoc As Word.Range
    '==============================================================
    ' XXXX = [A-Z]{4} chaine string composée de 4 symboles de A à Z
    ' 1234 = [0-9]{4} chaine numeric composé de 4 symboles de 0 à 9
    '==============================================================
    Set rngDoc = ActiveDocument.Range
     
    With rngDoc
        With .Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Format = False
            .Forward = True
            .Wrap = wdFindContinue
            .MatchWildcards = True
            .Text = "[A-Z]{4}.[0-9]{4}"
            .Replacement.Text = "[^&]"
            .Execute Replace:=wdReplaceAll
        End With
    End With
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur

  7. #7
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur validation
    Inscrit en
    Juin 2022
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur validation

    Informations forums :
    Inscription : Juin 2022
    Messages : 4
    Points : 1
    Points
    1
    Par défaut
    Merci, j'y suis presque!

    Votre code réussit à trouver toutes les références, cependant au lieu d'encadrer les références, il rajoute "[]" à la fin des références sans les supprimer.

    J'essaye de trouver une solution pour résoudre le problème.

    Je pensais créer une variable pour récupérer ce que la fonction rechercher trouve pour la mettre à la place de [^&] mais étant un peu novice j'ai dû mal à les déclarer et les appeler.

    J'espère réussir avec le site d'aide d'office.

    Encore merci.

  8. #8
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 261
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 261
    Points : 6 557
    Points
    6 557
    Par défaut
    Euh ...
    Citation Envoyé par maword Voir le message
    Votre code réussit à trouver toutes les références, cependant au lieu d'encadrer les références, il rajoute "[]" à la fin des références sans les supprimer.
    Images attachées Images attachées  
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur

Discussions similaires

  1. [XL-2010] Problème de recherche avec un nombre commençant par 0
    Par Sylvie66 dans le forum Excel
    Réponses: 1
    Dernier message: 13/07/2015, 21h23
  2. Réponses: 5
    Dernier message: 13/04/2010, 12h50
  3. moteur de recherche d'un nom commençant par une lettre quelquonque
    Par monphp dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 24/06/2007, 19h01
  4. [VB6] Recherche d'une chaine commençant par XX
    Par Asdorve dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 16/05/2006, 10h23
  5. [MySQL] Requete - occurences commençant par une même lettre ?
    Par nerick dans le forum PHP & Base de données
    Réponses: 4
    Dernier message: 24/03/2006, 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