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