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 35 36 37 38 39
| With Sheets("SUIVTRANS EN COURS")
Derligne = .Range("A" & Rows.Count).End(xlUp).Row
For j = 3 To Derligne
'ANNULATION TECHNIQUE (5)
If Mid(.Cells(j, "6").Text, 5, 1) = "A" And Mid(.Cells(j, "6").Text, 1, 1) = "S" Then
.Cells(j, "13").Value = "ANNULATION TECHNIQUE" And .Cells(j, "12").Value = "ANNULATION TECHNIQUE"
'REGULARISATION ECART-TEMPLATE (2)
ElseIf .Cells(j, 18) >= -10 And .Cells(j, 18) <= 10 And .Cells(j, 18) <> 0 Then
.Cells(j, 13).Value = "REGULARISATION ECART-TEMPLATE"
'SOLDE CREDITEUR - A REMBOURSER (3)
ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) < -10 Then
.Cells(j, 13).Value = "REGLT CIE - SOLDE CREDITEUR"
ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) < -10 And .Cells(j, 12) = "RECOURS MATERIEL" Or .Cells(j, 12) = "RECOURS CORPOREL" Or .Cells(j, 12) = "RECOURS RC" Then
.Cells(j, 13).Value = "SOLDE CREDITEUR - RECOURS"
ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) And .Cells(j, 12) <> "RECOURS MATERIEL" Or .Cells(j, 12) <> "RECOURS CORPOREL" Or .Cells(j, 12) <> "RECOURS RC" Then
.Cells(j, 13).Value = "SOLDE CREDITEUR - A REVOIR"
'REGLT CIE - SOLDE DEBITEUR (4)
ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) > 10 Then
.Cells(j, 13) = "REGLT CIE - SOLDE DEBITEUR"
End If
Next j
End With
End sub |
Partager