1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Function Parcourir(LegendeRGB As Integer, LegendeTXT As String)
Dim i As Integer
' Variable définissant le tableau UTILISATION PLANIFIEE
Dim Calcul As Double
' Variable définissant le calcul
Calcul = 0
For i = 13 To 380
' On parcourt le tableau entre les lignes 13 et 380
If Worksheets("PLANNING").Cells(i, 6).Interior.ColorIndex = LegendeRGB And StrComp(Worksheets("PLANNING").Cells(i, 6).Value, LegendeTXT) = 0 Then
Calcul = Calcul + 0.5
End If
Next i
Parcourir = Calcul
' Permet d'afficher le résultat du comptage
End Function |
Partager