Etablir la liste des valeurs trouvées après une expression

Rene197 Messages postés 2 Statut Membre -  
JvDo Messages postés 1924 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un problème relativement compliqué, mais que je vais essayer d'expliquer clairement :

J’ai un fichier de régles afférentes à la transformation de plusieurs termes en sous-termes (sous la forme de lettre et/ou de mots). Ce fichier décrit les règles dans différentes cellules au sein d'un fichier :

Une première cellule :
- Si [condition] alors A = 3Y
- Si [condition] alors B = 4Y

Une seconde :
- Si [condition] alors A = 3Z
- Si [condition] alors B = 4Y

Etc.

Je cherche à extraire, à partir de ce fichier, les termes qui sont à l’origine de chaque sous-terme, par exemple sous cette forme pour le terme A :

« A = 3Y ; A = 3Z ; Etc. »

Ou encore :

- "Sous-termes de A : 3Y, 3Z, etc.
- Sous-termes de B : 4Y, 3Z, etc. "

Je cherche donc une macro qui pourrait repérer m’expression « A = » et me donner la valeur qui la suit, et cela pour toutes les occurrences dans le fichier.
J’aimerais en outre copier la liste de valeur obtenue !

J'ai tenté ma chance auprès des fonctions Find et Find.all mais je n'ai pu trouver de solution...

Merci pour votre aide !

5 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Peux tu envoyer un bout de fichier, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu

    https://www.cjoint.com/

    Cdlmnt
    0
  2. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    Bonjour.

    Ne serait-il pas plus simple de faire le contraire : Dresser les listes des sous-termes attachés à chaque terme, et t'en servir pour renseigner tes cellules avec des listes déroulantes de cellule ?
    0
  3. Rene197 Messages postés 2 Statut Membre
     
    Raymond, mon problème c'est justement de dresser une liste de ces sous-termes !

    Voici le lien vers mon fichier qui explicite plus clairement le code que je cherche :

    https://www.cjoint.com/c/FCEiRrGx8Oi
    0
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Un essai à tester
    http://www.cjoint.com/c/FCEmHAwDRCR
    Alt-F11 pour accéder au code (dans Module 1)

    Cdlmnt
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. JvDo Messages postés 1924 Date d'inscription   Statut Membre Dernière intervention   859
     
    Bonjour à tous,

    une formule (en C2 :
    =SUBSTITUE(SUBSTITUE(SUPPRESPACE(SUBSTITUE(DROITE(SUBSTITUE(B2;" ";"");NBCAR(SUBSTITUE(B2;" ";""))-TROUVE(A2&"=";SUBSTITUE(B2;" ";""))-1);CAR(10);""));"Sinon";CAR(10));A2&"=";"")

    à recopier vers le bas.

    cordialement
    0