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

  • Initiateur de la discussion Initiateur de la discussion khenri
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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),""))))))))
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
 
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

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...🙂
 
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

heu, oui, j'essaie d'ouvrir ton fichier (je suis intéressé d'apprendre d'autres méthodes) et j'obtiens
1586273487755.png
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
218
Réponses
10
Affichages
227
Réponses
9
Affichages
393
Retour