XL 2019 Utiliser RECHERCHEV et copier les couleurs des cellules

[Lolexcel]

Bonsoir !

Un membre de la communauté m'a déjà bien aidée à écrire un code permettant de reprendre des données des colonnes B et C d'une feuille à une autre sur base d'une correspondance des valeurs dans les colonnes A des 2 feuilles.
J'aimerais faire un code semblable pour un nombre de colonne très élevé (B => BA) et pour copier les couleurs de remplissage des cellules.
Le passage du code qui coince est le suivant :

LastCol = Sheets("CalendrierGen").Cells(1, .Columns.Count).End(xlToLeft).Column
Derlig = Sheets("CalendrierGen").Range("A" & Rows.Count).End(xlUp).Row

MaRecherchV = "=SIERREUR(RECHERCHEV($A3;CalendrierGen!$A$2:$A$0;2:LastCol;FAUX);"""")"
MaRecherchV = Replace(MaRecherchV, 0, Derlig)
.Range("B3:BA3").FormulaLocal = MaRecherchV 'A cette ligne j'ai une erreur 1004. Mais de toute manière je n'ai spécifié nulle part que c'est seule la couleur de remplissage qui m'intéresse donc il manque au moins 2 choses

Est-ce que quelqu'un.e a une idée ?

Merci d'avance !

 

[Phil69970]

Bonsoir @Lolexcel

Je ne comprends pas la logique de ce que tu veux récupérer
Exemple :

et ici

Ou est passé la Claytone de Cuba ?

Et il y a plein d'autres erreur .....

@Phil69970

 

[sylvanu]

Bonsoir Lolexcel,
Avec une formule, vous ne copierez pas la couleur.
En plus quelques erreurs s'étaient glissées dans CBleg, je ne les ai pas toutes corrigées.
Un ex en PJ, où je copie directement les lignes, donc avec les couleurs.
Si le produit n'est pas trouvé je l'indique sur la ligne. ( absence ou faute d'orthographe )
A tester

 

[Lolexcel]

Bonjour,

Merci Sylvanu, ça fonctionne !
Et en effet, je vois qu'il y a beaucoup de produits que je n'ai pas écrit de la même façon. Merci de me l'avoir fait remarquer

 

[sylvanu]

Bonjour,
Comme tout est basé sur la comparaison de chaines de caractères, je ne peux que vous encourager de mettre les produits dans CbLeg sous forme de liste déroulante se référant à CalendrierGen.
Comme ça, tout problème de syntaxe est résolu.