Bonjour,

Je cherche un code pour gérer l'erreur de la ligne en rose

Merci d'avance de votre aide

Julien

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
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