somme cellule colorée avec boucle

[marti018]

Bonjour tout le monde,le forum

je sais que la discution que j'ouvre a déjà été abordée de nombreuses fois (une des plus courante sans doute) et que de nombreux posts y ont répondu (850) j'en ai lu une floppée mais à chaque foi la réponse est différente ou je ne la comprends pas, je ne vois donc pas comment l'appliquer au probléme auquel je suis confronté..

cela fait plusieurs foi que je présente ma feuille sur le forum (pour des questions différentes) c'est pourquoi n'hésiter pas à me dire si vous en faite une indigestion...

j'aimerai obtenir la somme des valeurs contenues dans des cellules de couleurs différentes par ligne et reporter le résutat total dans un colonne sur la meme ligne...

la difficulté que je retrouve c'est
1)
que le nombre de colonne du tableau est variable du coup la plage de cellule qu'il faut vérifier aussi ( pour cela je pensais me servir de

ladernièrecolonne = .Range("A10").End(xlToRight).Column

pour obtenir le bon nombre de colonne
2) additionner la valeur des cellules de la couleur recherchée uniquement

je vous met un exemplaire de ma feuille pour que vous puissiez avoir une idée de ce que je cherche, de mon coté je continue à creuser du coté des posts déjà emis...

 

[marti018]

Re : somme cellule colorée avec boucle

un peu plus de précision sur mon objectif...
j'aimerai que sur chaque ligne de la semaine 1 à 52 les cellules des colonnes heures effectuées en fonction de leur couleur soit additionnées dans le total corespondant à la couleur sur la ligne (M, I ou O)
total M: couleurindex = 37
total O: couleurindex = 35
total I: couleurindex = 38

merci bonne fin d'aprem'!! (fait chaud)

 

[marti018]

Re : somme cellule colorée avec boucle

bonjour le forum, bonjour tout le monde

suite à mes recherches sur les posts déjà emis j'ai trouvé un code que j'ai tenté d'adapter..

seulement je suis confronté au même probleme qu'auparavant j'aimerai que la procédure se réinitialise à chaque changement de cellule mais d'aprés ce que j'ai lu sur le forum ce n'est pas possible pour les changements de couleur (ce n'est pas fiable)

je ne sais pas si je peux me servir de "target" ou si je dois déclarer "application.volatile", si ce n'est pas possible j'attribuerai ma procédure à un boutton ce n'est pas grave

voilà dans l'espoir d'obtenir quelques renseignements sur le sujet je vous souhaite à tous une trés bonne journée...je vous met mon code pour recevoir tous les conseils que vous jugerez utile..

Sub somme_couleur()
On Error GoTo fin

Dim NbreLignes As Integer
Dim NombreColonnes As Integer
Dim FinTableau As range
Dim PlageCouleur As range
Dim TotalM As range
Dim TotalI As range
Dim TotalO As range
Dim ColonneVide As Integer

    ColonneVide = range("A10").End(xlToRight).Column
    PlageCouleur = range("C11").Offset(NbreLignes, NombreColonnes)
    FinTableau = range("IV11").End(xlToLeft).Column
    '=dernière vide en partant de IV11 et en allant vers la gauche
    
    Total_bleu = range("fintableau").Offset(nbreligne, -3)
    Total_rose = range("fintableau").Offset(0, -2)
    Total_vertclair = range("fintableau").Offset(0, -1)

Application.ScreenUpdating = False

For NbreLignes = 0 To 51
For NombreColonne = 0 To ColonneVide
'total cases colorees
Total_bleu = 0
Total_vertclair = 0
Total_rose = 0


For Each VALEUR In range(PlageCouleur)

If VALEUR.Interior.ColorIndex = 38 Then
Total_rose = Total_rose + VALEUR.Value
End If

If VALEUR.Interior.ColorIndex = 35 Then
Total_vertclair = Total_vertclair + VALEUR.Value
End If

If VALEUR.Interior.ColorIndex = 37 Then
Total_bleu = Total_bleu + VALEUR.Value
End If

Next VALEUR


'affichage des valeurs enregistrées dans les bonnes cases de récapitulatifs
'les sommes :
If Total_rose Then Cells(FinTableau).Offset(nbreligne, -2) = Total_rose
If Total_bleu Then Cells(FinTableau).Offset(nbreligne, -3) = Total_bleu
If Total_vertclair Then Cells(FinTableau).Offset(nbreligne, -1) = Total_vertclair


Next ligne
fin:
Application.ScreenUpdating = True
End Sub

TCHO!! julien.

 

[marti018]

Re : somme cellule colorée avec boucle

personne n'a une petite idée?,...ou alors c'est parce que mon code est trop moche...lol

 

[marti018]

Re : somme cellule colorée avec boucle

Bonjour le Forum..

aprés consultation de beaucoup de codes écris auparavant sur le forum je ne sais toujours pas comment les adapter à ma situation...mon code est faux je le sais mais les autres façons de faire sont trop différentes de ce que je veux produire...
si mon explication n'est pas claire n'hésitez pas à me le dire je suis prêt à m'expliquer de 10 autres façon différentes au point au j'en suis...

voilà merci d'avance...(je trouverai bien un jour..NA!!!)

a++ julien