Raccourcir le code

bonjour a tous,

j aimerais savoir comment je peux faire pour que ce code, soit plus court et plus lisible dans le code :

    If add3.Offset(0, -1).Value = 3 Or add3.Offset(0, -1).Value = 5 Or add3.Offset(0, -1).Value = 6 Or add3.Offset(0, -1).Value = 8 Or add3.Offset(0, -1).Value = 12 Or add3.Offset(0, -1).Value = 13 Or add1.Offset(0, -1).Value = 1 Or add1.Offset(0, -1).Value = 4 Or add1.Offset(0, -1).Value = 8 Or add1.Offset(0, -1).Value = 9 Or add1.Offset(0, -1).Value = 14 Or add1.Offset(0, -1).Value = 15 Or add4.Offset(0, -1).Value = 3 Or add4.Offset(0, -1).Value = 5 Or add4.Offset(0, -1).Value = 6 Or add4.Offset(0, -1).Value = 8 Or add4.Offset(0, -1).Value = 12 Or add4.Offset(0, -1).Value = 13 Or add2.Offset(0, -1).Value = 1 Or add2.Offset(0, -1).Value = 4 Or add2.Offset(0, -1).Value = 8 Or add2.Offset(0, -1).Value = 9 Or add2.Offset(0, -1).Value = 14 Or add2.Offset(0, -1).Value = 15 Then

merci

Bonjour

Ecris-le sur plusieurs lignes :

    If add3.Offset(0, -1).Value = 3 Or add3.Offset(0, -1).Value = 5 _
        Or add3.Offset(0, -1).Value = 6 Or add3.Offset(0, -1).Value = 8 _
        Or add3.Offset(0, -1).Value = 12 Or add3.Offset(0, -1).Value = 13 _
        Or add1.Offset(0, -1).Value = 1 Or add1.Offset(0, -1).Value = 4 _
        Or add1.Offset(0, -1).Value = 8 Or add1.Offset(0, -1).Value = 9 _
        Or add1.Offset(0, -1).Value = 14 Or add1.Offset(0, -1).Value = 15 _
        Or add4.Offset(0, -1).Value = 3 Or add4.Offset(0, -1).Value = 5 _
        Or add4.Offset(0, -1).Value = 6 Or add4.Offset(0, -1).Value = 8 _
        Or add4.Offset(0, -1).Value = 12 Or add4.Offset(0, -1).Value = 13 _
        Or add2.Offset(0, -1).Value = 1 Or add2.Offset(0, -1).Value = 4 _
        Or add2.Offset(0, -1).Value = 8 Or add2.Offset(0, -1).Value = 9 _
        Or add2.Offset(0, -1).Value = 14 Or add2.Offset(0, -1).Value = 15 Then

Bye !

Bonjour,

Sub test()
    Dim vtest12, vtest34, i%, ok As Boolean
    vtest12 = Array(1, 4, 8, 9, 14, 15)
    vtest34 = Array(3, 5, 6, 8, 12, 13)
    For i = 0 To 5
        If add1.Offset(, -1) = vtest12(i) Or add2.Offset(, -1) = vtest12(i) Then _
         ok = True: Exit For
        If add3.Offset(, -1) = vtest34(i) Or add4.Offset(, -1) = vtest34(i) Then _
         ok = True: Exit For
    Next i
    If ok Then
    '...
End Sub

Cordialement.

merci beaucoup