Excel
scoobydoos
Messages postés
64
Date d'inscription
vendredi 31 mai 2002
Statut
Membre
Dernière intervention
28 novembre 2010
-
17 mai 2004 à 16:34
hebus16 Messages postés 80 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 2 octobre 2009 - 17 mai 2004 à 17:20
hebus16 Messages postés 80 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 2 octobre 2009 - 17 mai 2004 à 17:20
1 réponse
hebus16
Messages postés
80
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
2 octobre 2009
1
17 mai 2004 à 17:20
17 mai 2004 à 17:20
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 !
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 !