Discussion :

[OBADJ]

Pour cette macro sur les Décompte à émettre ou pas de Décompte, j'ai l'impression qu'il ne prends pas en considération ma colonne S avec les <15000.

Je répète ma condition par sécurité même si je pense vous l'avez tous comprise :

En fait je veux que si la colonne M, N et Q sont vides et que dans la colonne H c'est égale à "001121" ou "001170" ou "002160" et que la colonne S soit <15 000 alors je mets en colonne "M " Pas de décompte" Sinon je mets "Décompte à émettre" mais en prenant toujours compte de la colonne M et N qui sont vide (pour le commentaire "Décompte à émettre", je ne veux pas qu'il remplace par tous me ancien commentaire que j'ai mis avant.).

Et sur mon fichier on voit bien quand on lance la macro, que dans quelque ligne sa marche et que d'autre il prend pas en compte la colonne S avec les <15000

Ah oui, dans le fichier : je vous ai mis en orange les lignes qui sont pas bonnes et où le commentaire en colonne "M" aurait du être "Décompte à émettre" pour toute les lignes orange.
Concernant les lignes non surligné, elles sont correcte !

Voici le fichier ci-joint avec la macro dans VBA ! KOBD .xlsm

Merci a vous tous ! Il faut résoudre ce petit problème qui est important pour moi

[ARTURO83]

Bonjour,

Essayez ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
    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, 17).Value = "" And .Cells(j, 19).Value < 15000 Then
                    If .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

Cdlt