Bonjour,

Je fais face à un code d'horreur pour une formule, qui fonctionne plusieurs fois dans mon code mais pour une raison que je ne peux comprendre, lors ce que j'ai une donnée dans ma cellule BB2, le message d'erreur m'apparait. Voici une partie de mon code.
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
    '9B
    If Range("R2").Value > 0 Then
    Range("AA3").Value = Range("R2").Value
    Range("R2", "S2").Delete shift:=xlShiftUp
    Else
        If Range("X2").Value > 0 Then
        Range("AA3").Value = Range("X2").Value
        Range("X2", "Y2").Delete shift:=xlShiftUp
        Else
        MsgBox ("Manque d'autobus 9B")
        End If
    End If
    '9C Split
    If Range("AP2").Value > 0 Then
    Range("AA10").Value = Range("AP2").Value
    Range("AP2", "AQ2").Delete shift:=x1ShiftUp
    Else
        If Range("BB2").Value > 0 Then
        Range("AA10").Value = Range("BB2").Value
        Range("BB2", "BC2").Delete shift:=x1ShiftUp
        Else
            If Range("R2").Value > 0 Then
            Range("AA10").Value = Range("R2").Value
            Range("R2", "S2").Delete shift:=xlShiftUp
            Else
                If Range("X2").Value > 0 Then
                Range("AA10").Value = Range("X2").Value
                Range("X2", "Y2").Delete shift:=xlShiftUp
                Else
                MsgBox ("Manque d'autobus 9C")
                End If
            End If
        End If
    End If
L'erreur arrive à la ligne 20. Touvez-vous un problème à mon code?