Conditions avec couleurs

Conditions avec couleurs - VB/VBA/VBS - Programmation

Marsh Posté le 14-05-2007 à 16:34:35    

Bonjour , je me sert de vba depuis très peu de temps et je suis bloqué sur un petit programme.
Je voudrais faire cette condition : j'ai 7 couleurs de cellule différentes et je voudrai que pour la colonne D chaque fois que la cellule est bleu par exemple je somme la valeur correspondante à cette ligne de la colonne I et que le résultat de cette addition apparaisse dans la cellule K,6 et ainsi de suite, Si a cellule est mauve je somme la valeur de la colonne I et que le résultat de cette addition apparaisse dans la cellule K,7 et ainsi de suite pour les autres couleurs.
Merci d'avance pour votre aide.

Reply

Marsh Posté le 14-05-2007 à 16:34:35   

Reply

Marsh Posté le 14-05-2007 à 16:42:28    

j'ai pas capté ton histoire de somme
amais à priori ça devrait suffir :

Code :
  1. 'attention pas de trou dans ta colonne a
  2. nbval=application.countA(range("a:a" ))
  3. valeurdecouleur=cells(i,4).interior.colorindex
  4. 'si c'est la police qui est de couleur :
  5. 'valeurdecouleur=cells(i,5).font.colorindex
  6. Select case valeuredecouleur
  7. case 4'trouvez le numero correspondant à bleu je crois 4
  8. cells(11,6)=cells(i,4).value+cells(i,9).value
  9. case __'trouvez mauve
  10. cells(11,7)=cells(i,4).value+cells(i,9).value
  11. '....etc
  12. 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
Reply

Marsh Posté le 14-05-2007 à 18:30:17    

Merci merenptah4 4 j'ai changé deux trois choses et ça devrait marcher.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed