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 |
