j'ai pas capté ton histoire de somme
amais à priori ça devrait suffir :
Code :
- 'attention pas de trou dans ta colonne a
- nbval=application.countA(range("a:a" ))
- valeurdecouleur=cells(i,4).interior.colorindex
- 'si c'est la police qui est de couleur :
- 'valeurdecouleur=cells(i,5).font.colorindex
- Select case valeuredecouleur
- case 4'trouvez le numero correspondant à bleu je crois 4
- cells(11,6)=cells(i,4).value+cells(i,9).value
- case __'trouvez mauve
- cells(11,7)=cells(i,4).value+cells(i,9).value
- '....etc
- end select
|
(non testé et fait de tête donc peut-être à corriger)
----------------------
edit :
ppetit cadeau supplémùentaire, après tu te débrouilles :
http://www.veriti.net/articles.php?lng=fr&pg=158
Message édité par merenptah44 le 14-05-2007 à 17:04:16