couleur cellule et somme dans tableau
Bonjour et meilleurs voeux à tous!
Je sollicite votre aide pour le tableau suivant:
J'ai un tableau qui commence en B2 et ce fini en BQj (j étant variable).
Lorsque la personne (une personne = une ligne) travaille je met la cellule en rouge (colorindex=2).
Dans la cellule en bout de ligne (cells(2:70) ou BR), je compte le nombre de cases rouges et je met la somme (divisée par 4 car je compte en quart d'heure) dans cette cellule.
Voici ce que ça donne pour la ligne 2:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Sub testligne()
Dim plage As Range
Dim cel As Range
Dim n As Long
'On travaille sur l'onglet actif
Set plage = Application.ActiveSheet.Range("B2:BQ2")
'on cherche dans la plage A2:BQ2
n = 0
For Each cel In plage
If cel.Interior.ColorIndex = 3 Then
'si la cellule est rouge
n = n + 1
'compteur incrémental
End If
Next
Cells(2, 70) = n / 4
End Sub |
Cela fonctionne bien.
Maintenant comment faire pour que cela fonctionne pour toutes les lignes et pas seulement la ligne 2?
Merci pour votre aide!
Elumastebit
