Microsoft 365 Code VBA Rechercher un mot-clé et compléter une valeur

khenri

XLDnaute Nouveau
Bonjour,
Débutant en macros,

J'ai 2 colonne A et B, où j'attribue une valeur B "couleur" si la cellule A contient un mot-clé.

je souhaite compléter ma colonne B, sachant que B correspond à un mot-clé (ou un groupe de mots) de A

Ci-joint un bout de mon fichier

Merci encore de votre aide
 

Pièces jointes

  • test.xlsx
    12.2 KB · Affichages: 15
Solution
FORMULE
=+IFERROR(+IF(SEARCH($D$1,A2,1)>0,$E$1),
+IFERROR(+IF(SEARCH($D$2,A2,1)>0,$E$2),
+IFERROR(+IF(SEARCH($D$3,A2,1)>0,$E$3),
+IFERROR(+IF(SEARCH($D$4,A2,1)>0,$E$4),
+IFERROR(+IF(SEARCH($D$5,A2,1)>0,$E$5),
+IFERROR(+IF(SEARCH($D$6,A2,1)>0,$E$6),
+IFERROR(+IF(SEARCH($D$7,A2,1)>0,$E$7),
+IFERROR(+IF(SEARCH($D$8,A2,1)>0,$E$8),""))))))))

khenri

XLDnaute Nouveau
Bonjour Surchat,
Merci pour ta réponse.
Le but c'est de compléter les cellules de la colonne B.
Exemple: Mot-clé de A2= carrefour correspond à la couleur Marron. Donc chaque fois qu'on a "carrefour" dans la colonne A, la correspondance dans B sera "Marron".

Merci pour votre aide
 

surchat

XLDnaute Occasionnel
FORMULE
=+IFERROR(+IF(SEARCH($D$1,A2,1)>0,$E$1),
+IFERROR(+IF(SEARCH($D$2,A2,1)>0,$E$2),
+IFERROR(+IF(SEARCH($D$3,A2,1)>0,$E$3),
+IFERROR(+IF(SEARCH($D$4,A2,1)>0,$E$4),
+IFERROR(+IF(SEARCH($D$5,A2,1)>0,$E$5),
+IFERROR(+IF(SEARCH($D$6,A2,1)>0,$E$6),
+IFERROR(+IF(SEARCH($D$7,A2,1)>0,$E$7),
+IFERROR(+IF(SEARCH($D$8,A2,1)>0,$E$8),""))))))))
 

Pièces jointes

  • test-3.xlsx
    15.4 KB · Affichages: 4

khenri

XLDnaute Nouveau
Merci... c'est exactement çà.
Par contre si mes colonnes D et E ont plus de 1000 mots-clé, la formule va être très longue...
Y a t-il une option pour gérer un tableau à 2000 mots-clé ? si non je me contente de ça et j'adapte la formule...:)
 

eriiic

XLDnaute Barbatruc
Bonjour,

avec une macro.
Il y a un problème d'accent (epicerie). J'ai donc ajouté une fonction SansAccent()
Si en réalité ça ne peut se produire, autant enlever les appels à cette fonction. Tu gagneras au moins la moitié du temps.
eric
 

Pièces jointes

  • Test.xlsm
    25.5 KB · Affichages: 9

surchat

XLDnaute Occasionnel
heu, oui, j'essaie d'ouvrir ton fichier (je suis intéressé d'apprendre d'autres méthodes) et j'obtiens
1586273487755.png
 

eriiic

XLDnaute Barbatruc
Ca s'adressait au demandeur qui a mis en résolu mais ce n'est pas grave :)
Pour 2000 mots ?

Je pense que tu dois travailler avec la version online, elle ne connait pas les macros.
Télécharge-le et ouvre-le avec la version sur ton Mac.
Mac n'a pas tous les objets de windows. Entre autres, il ne connait pas les ActiveX, uniquement les contrôles Formulaires ce qui limite.
Il y a aussi des fonctions vba s'appuyant sur windows qu'il ne connait pas.

Ceci devrait t'intéresser :
eric
 

Discussions similaires

Réponses
8
Affichages
146

Statistiques des forums

Discussions
312 158
Messages
2 085 821
Membres
102 992
dernier inscrit
KOSTIC