Excel-faire un calcul suivant la couleur de la cellule

Question

Bonjour &#224; tous.



Voil&#224;- J'aimerai faire un calcul simple addition ou soustraction suivant la couleur pr&#233;sente ds certaines cell.

Je m'explique:

*  24 en A1

*  Une ligne de 15 cellules A3-O3



Suivant le nombre de cellules de la ligne misent en rouge(en plage
continue ou non), soustraire &#224; 24 ce m&#234;me nombre si on ajoute du rouge
ou additioner ce nombre &#224; 24 si on retire du rouge.



j'esp&#232;re que je me suis fait comprendre.

En tous cas merci d'avance de votre aide.

Guillemouze · Answer

const ROUGE = 3

dim objXL

Dim cpt, i



Set objXL = WScript.CreateObject("Excel.Application")

objXL.Visible = TRUE

objXL.WorkBooks.Open "c:\monfichier.xls" , 0, True



cpt = 0

for i = 1 to 15 'de A &#224; O

    If objXL.Cells(3, i).Interior.ColorIndex = ROUGE Then

       cpt = cpt + 1

    end If

Next



objXL.Cells(1,1).Value = objXL.Cells(1,1).Value - cpt

objXL.WorkBooks(1).save

objXL.WorkBooks.Close

objXL.Quit



j'ai pas trop compris ton histoire d'ajout/soustraction mais voila l'idee

cs_zeurk · Answer

Boujour



Un peu plus d'explication.....



Dans un classeur ouvert.

Soit la Cell. A1=24

Sur une ligne quelconque, d&#233;s que je colorie N cellules contig&#252;es ou non, en rouge.

Je fait A1-N



Si je supprime N1 cellules rouge (je modifie la couleur par exemple)

Je fait A1+N1



Et si aucune cell. de la ligne en rouge, pas de calcul



En bref il s'agit d'un calcul suivant les jours sur 1 mois.

Je voudrai incr&#233;menter ou d&#233;cr&#233;menter une valeur suivant le nb de jours en rouge.



Merci

ricomiracle · Answer

Dans le code de la feuille qui t'int&#233;resse, dans l'&#233;v&#232;nement "change"
tu parcours les cellues de laligne en question et tu compte celle qui
sont en rouge.

Guillemouze · Answer

c une macro que tu veu faire?

cs_zeurk · Answer

Oui je pense que cela serai plus facile sous forme de macro..

Excel-faire un calcul suivant la couleur de la cellule

5 réponses

Discussions similaires