Salut,
Pour ton truc il te suffit juste de boucler sur les cellules de ton tableau et de regarder si la couleur de fond de la cellule est egale à rouge :
for ii=1 to 31 ' ici on boucle sur les colonnes if thisworkbook.worksheets("planning").cells(5,ii).Interior.Color = Val("&H000000FF&") then thisworkbook.worksheets("reports").cells(1,"A")=thisworkbook.worksheets("planning").cells(2,ii).value end if next ii
Je pense pas que ce soit la solution complete à ton truc mais ça te fournit une base à adapter. j'ai supposé que tu avais renseigné les dates du mois en cours sur chaque colonne. Bonne chance pour ton dev !
|