Discussion :

[OBADJ]

Bonjour,

Est-il possible en VBA de lui demander : pour un même numéro de sinistre (colonne "J") et pour un même code compagnie (colonne "H") et que Si en colonne "M" il y a une "ANNULATION TECHNIQUE" (donc avec un montant négatif) alors il faut qu'il repère le montant qui lui permette de faire 0. Par exemple dans le fichier ci-joint on a une "ANNULATION TECHNIQUE" de -71,18 et il doit mettre en M le même commentaire en colonne M ("ANNULATION TECHNIQUE") pour le même montant qui est en positif 71,18 (donc sa s'annule bien).

Merci à vous ! Pièce jointe 459387

[OBADJ]

Voici le résultat attendus en colonne M
DEMO ANNULATION.xlsx

[OBADJ]

Voici le code qui fonctionne mais j'aimerais qu'il me mette le commentaire "ANNULATION TECHNIQUE" sur toutes les lignes du même sinistre et même code compagnie si en colonne "L", il y a "ANNULATION TECHNIQUE". Car la il me le mets que sur la ligne ou en colonne L il y a "ANNULATION TECHNIQUE"....

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
With Sheets("SUIVTRANS EN COURS")
    Derligne = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 3 To Derligne
    For jj = j + 1 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, 12).Value = "ANNULATION TECHNIQUE"
 
        If .Cells(j, 12) = "ANNULATION TECHNIQUE" Then
 
       .Cells(j, 13) = "ANNULATION TECHNIQUE"
 
End If
End If
 
 
Next j
 
End With
 
End Sub

Il faut prendre en compte que le 2eme If