Discussion :

[jgresse1025]

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

[Igloobel]

bonjour,

il me semble que ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ElseIf TypeName(Nb(9, p)) <> "Null" Then

cela vérifie si le mot Null existe ou pas et d'après ce que j'ai lu c'est plutot IsNull que tu as besoin

Bon c'est vrai que j'ai lu en diagonale mais tu dis si je me trompe

a+