Bonjour à tous
Il y a absolument 3 conditions obligatoire à respecter pour chaque possibilité afin mettre le commentaire "Pas de décompte" :
Si la cellule (j,13) est vide et que si la cellule (j,14) est vide et que (j,19)<15000 alors "pas de décompte" sinon "décompte à émettre"
Deuxième possibilité : si la cellule (j,13) est vide et que la cellule(j,8)="002160" ou "001170" ou "001121" et que (j,19) <15000 alors "pas de décompte" sinon "décompte à émettre"
Voici la macro mais qui fonctionne pas !
Sub test3()
With Sheets("SUIVTRANS EN COURS")
Derligne = .Range("A" & Rows.Count).End(xlUp).Row
For j = 2 To Derligne
If .Cells(j, 13).Value = "" And _
.Cells(j, 14).Value = "" And _
.Cells(j, 19).Value < 15000 And _
.Cells(j, 8).Value = "002160" Or _
.Cells(j, 8).Value = "001170" Or _
.Cells(j, 8).Value = "001121" Then
.Cells(j, 13).Value = "PAS DE DECOMPTE"
Else
.Cells(j, 13).Value = "DECOMPTE A EMETTRE"
End If
Next j
End With
End Sub
Si ca peut vous aider voici une formule qui traduit ce que je veux faire sous VBA :
=SI(ET(Q7="";OU(H7="001121";H7="001170";H7="002160");ABS(S7)<15000);"PAS DE DECOMPTE";"DECOMPTE A EMETTRE")