XL 2019 Utiliser RECHERCHEV et copier les couleurs des cellules

Lolexcel

XLDnaute Nouveau
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 :p

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

Merci d'avance !
 

Pièces jointes

  • TAB_PC_QdLeg.xlsm
    69.6 KB · Affichages: 4
Solution
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

Phil69970

XLDnaute Barbatruc
Bonsoir @Lolexcel

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


et ici
1669666452253.png

Ou est passé la Claytone de Cuba ?

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

@Phil69970
 
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • TAB_PC_QdLeg.xlsm
    69.5 KB · Affichages: 13

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG