Discussion :

[jbchb]

Bonjour,
J'ai un tableau avec une cellule ( moyenne) qui doit :
Ce colorier en vert si Moy > 10 et aucune note < 5
En rouge si Moy < 10 ou Moy > 10 et au moins une note < 5

Je n'ai pas utilisé la formule nb.si dans ma macro, dans l'exemple ci-joint mais je pense que cela est nécessaire !

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
 
 
Sub essai()
Dim i As Integer
Dim j As Integer
For i = 2 To 5
 For j = 2 To 8
 If Cells(i, j) < 5 Then
  Cells(i, 10).Interior.ColorIndex = 3
  Exit For
 ElseIf Cells(i, 9) < 10 Then
  Cells(i, 10).Interior.ColorIndex = 3
  Else
 Cells(i, 10).Interior.ColorIndex = 43
End If
 Cells(i, j + 1).Select
 Next j
  Cells(i + 1, j).Select
Next i
End Sub

Comment mettre countif dans cette macro

Merci à l'avance