damien.chauveau64
XLDnaute Nouveau
Bonjour lorsque je change de couleur ma fonction ne recalcule pas automatiquement ma valeur comment faire?
Merçi d'avance
Sub zaza()
[T2] = SomCool([I1:I1000], "rouge")
[T3] = SomCool([I1:I1000], "violet")
[T4] = SomCool([I1:I1000], "orange")
[W2] = SomCool([J1:J1000], "rouge")
[W3] = SomCool([J1:J1000], "violet")
[W4] = SomCool([J1:J1000], "orange")
[Z2] = SomCool([M1:M1000], "rouge")
[Z3] = SomCool([M1:M1000], "violet")
[Z4] = SomCool([M1:M1000], "orange")
End Sub
Function SomCool(Zone As Range, couleur As String) As Variant
Application.Volatile True
Select Case couleur
Case "rouge": couleur = 3
Case "vert": couleur = 4
Case "jaune": couleur = 6
Case "violet": couleur = 39
Case "orange": couleur = 45
End Select
For Each c In Zone
If c.Interior.ColorIndex = couleur Then cvSomme = cvSomme + 1
Next
SomCool = cvSomme
End Function
Merçi d'avance
Sub zaza()
[T2] = SomCool([I1:I1000], "rouge")
[T3] = SomCool([I1:I1000], "violet")
[T4] = SomCool([I1:I1000], "orange")
[W2] = SomCool([J1:J1000], "rouge")
[W3] = SomCool([J1:J1000], "violet")
[W4] = SomCool([J1:J1000], "orange")
[Z2] = SomCool([M1:M1000], "rouge")
[Z3] = SomCool([M1:M1000], "violet")
[Z4] = SomCool([M1:M1000], "orange")
End Sub
Function SomCool(Zone As Range, couleur As String) As Variant
Application.Volatile True
Select Case couleur
Case "rouge": couleur = 3
Case "vert": couleur = 4
Case "jaune": couleur = 6
Case "violet": couleur = 39
Case "orange": couleur = 45
End Select
For Each c In Zone
If c.Interior.ColorIndex = couleur Then cvSomme = cvSomme + 1
Next
SomCool = cvSomme
End Function