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

surchat

XLDnaute Occasionnel

• 7 Avril 2020

• #2

bonjour
ok de passer par une colonne supplémentaire?
on peut ensuite copier et coller en tant que valeur et éliminer la colonne 3

 

Pièces jointes

• test 2 v1.xlsx

  13.4 KB · Affichages: 4

Vote positif 0 Vote négatif

K

khenri

XLDnaute Nouveau

• 7 Avril 2020

• #3

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

 

Vote positif 0 Vote négatif

surchat

XLDnaute Occasionnel

• 7 Avril 2020

• #4

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

Vote positif 0 Vote négatif

Solution

surchat

XLDnaute Occasionnel

• 7 Avril 2020

• #5

RECHERCHE LES TEXTES ENTRE D1 ET D8, s'il trouve un des texte il renvoie la valeur correspondante en E1:E8, autrement ""

 

Vote positif 0 Vote négatif

K

khenri

XLDnaute Nouveau

• 7 Avril 2020

• #6

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

 

Vote positif 0 Vote négatif

surchat

XLDnaute Occasionnel

• 7 Avril 2020

• #7

adapter la formule à 2000 mots clés n'est pas faisable. Est-ce que vous essayé de créer des familles sur une base de données existante?

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 7 Avril 2020

• #8

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

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 7 Avril 2020

• #9

Heuuu, tu as résolu ça par formule ?

 

Vote positif 0 Vote négatif

surchat

XLDnaute Occasionnel

• 7 Avril 2020

• #10

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

 

Vote positif 0 Vote négatif

surchat

XLDnaute Occasionnel

• 7 Avril 2020

• #11

je travaille sur Office365 pour Mac IOS est-ce le problème?

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 7 Avril 2020

• #12

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 :

Home | Ron de Bruin Excel Automation

Welcome to https://www.rondebruin.nl

www.rondebruin.nl

Performing File and Folder Operations Programmatically in Excel 2011 for the Mac

docs.microsoft.com

Compatibilité des versions Mac et PC d'excel | www.excelabo.net

web.archive.org

eric

 

Vote positif 0 Vote négatif

surchat

XLDnaute Occasionnel

• 7 Avril 2020

• #13

Merci Eric,top!

 

Vote positif 0 Vote négatif