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

[mercatog]

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
Sub essai()
Dim i As Integer
Dim Klr As Byte
 
With Worksheets("Feuil1")
    For i = 2 To 5
        If .Cells(i, 10) >= 10 And Application.CountIf(.Range("B" & i & ":I" & i), "<" & 5) = 0 Then
            Klr = 43
        Else
            Klr = 3
        End If
        .Cells(i, 10).Interior.ColorIndex = Klr
    Next i
End With
End Sub

[jbchb]

SUPER ! merci beaucoup et au revoir !

[mercatog]

Une autre solution sans vba est d'utiliser une mise en forme conditionnelle. C'est très pratique