j'e vois de toutes les couleurs

Question

Salut a tous les cracks ! 

Je suis novice sur VB (excel) et je rencontre quelques petits pb... 
Je voudrais effectuer en A1 l'op&#233;ration suivante: 
SOMMEPRODUIT[(valeur des cases de couleur rouge(exE1))*(valeur des cellules vertes (dans la colonne pr&#233;c&#233;dent chaque cellule rouge (ex D1))]/(SOMME des cellules vertes) 

sachant que mon nb de cellules rouges (et vertes) est variable et que chaque cellule rouge est espac&#233;e de 4 colonnes avec la suivante. Toutes les cellules concern&#233;es se trouvent sur la m&#234;me ligne. 

Quelqu'un peut me proposer une proc&#233;dure?

nostra78 · Answer

Test ca
Par contre pour le produit je ne sais pas exactement ce que tu veux 
Repond ci c ca*

Sub Macro1()
Dim cellule As Range
Dim Cpt
Dim Produit As Integer
Dim Somme As Integer
Cpt = Range("A1").SpecialCells(xlLastCell).Address
For Each cellule In ThisWorkbook.Sheets("Feuil1").Range("A1:" & Cpt)
If cellule.Interior.ColorIndex = 10 Then
Somme = Somme + cellule.Value
Produit = Produit + (cellule.Value) * (cellule.Offset(0, 1).Range("A1").Value)
End If
Next
Range("A1").Value = Produit / Somme
End Sub

cs_fred le novice · Answer

quand j'essaie d'utiliser ta macro il me renvoie "d&#233;passement de capacit&#233;"
je sais pas ce que &#231;a signifie...

nostra78 · Answer

Sur quelle ligne???

nostra78 · Answer

EN CAS REMPLACE les integer par long

cs_fred le novice · Answer

&#231;a marche!!
merci pour ton aide! 
comment tu connais le code des couleurs (vert=10)?

nostra78 · Answer

Tu utilises l'aide de vb. tu tapes F1 et tu mets ColorIndex
Rq : quand tu es satisfais du code que l'on donne valide la r&#233;ponse &#231;a &#233;vite aux autres d'aller voir topic alors que le pb est r&#233;solu.
@+ Nostra78

J'e vois de toutes les couleurs

6 réponses

Discussions similaires