Discussion :

[Elumastebit]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour

Maintenant comment faire pour que cela fonctionne pour toutes les lignes et pas seulement la ligne 2?

En bouclant le code sur les lignes de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub testligne()
Dim plage As Range
Dim cel As Range
Dim n As Long
dim i as long 

'Boucle sur les ligne
For i=2 to LigneFin

'On travaille sur l'onglet actif
Set plage = Application.ActiveSheet.Range("B" & i & ":BQ" & i)
'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(i, 70) = n / 4

next i

End Sub

[Elumastebit]

Merci beaucoup!

Bonne journée!