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 27 28 29 30 31 32 33 34
| If Rech.Cells(l, 2).Text Like "V22" Then
Set mrs2 = CreateObject("ADODB.Recordset")
Set mrs3 = CreateObject("ADODB.Recordset")
mrs2.Open Sql, Conn2
mrs3.Open Sql4, Conn3
If mrs2.EOF = True Then
Rech.Range("C" & l).Interior.ColorIndex = 46
Else
Nb3 = RetournNb(mrs3, "[Nom de l'étape]<>NULL")
Nb = RetournNb(mrs2, "[Lancé le]<>Null")
'MsgBox (UBound(Nb, 2))
' MsgBox (p)
' If TypeName(Nb) <> "Null" Then 'si il y a une occurrence ce n'est pas boolean
If UBound(Nb, 2) < p Then
Rech.Range("C" & l).Interior.ColorIndex = 46
ElseIf TypeName(Nb(9, p)) <> "Null" Then
Rech.Range("C" & l).Interior.ColorIndex = 10
Else
Rech.Range("C" & l).Interior.ColorIndex = 46
Rech.Range("C" & l).Value = "En attente"
End If
' Else
' Rech.Range("C" & l).Interior.ColorIndex = 46
End If
p = p + 1
'End If
mrs2.Close
mrs3.Close
Set mrs2 = Nothing
Set mrs3 = Nothing
End If |
Partager