Bonjour à tous,
Je vous explique "le but du jeux" :
C'est de prendre les mêmes numéros de sinistres en colonne "J" (parmis plus de 6000 lignes de mon fichier excel) et pour ces mêmes numéros de sinistre trouvé par la macro, si en colonne "H", il y a la présence de 2 codes CIE différents alors on mets un commentaire en colonne "M" : " REGULARISATION CIE TEMPLATE".
Je vous ai mis en pièce jointe un extrait de mon fichier excel pour que avoir un aperçu : En couleur jaune sur la feuil1 : on voit bien que pour le même sinistre on a pas de code CIE (colonne H) diffétents donc on ne mettra pas de commentaire en colonne M. En revanche, pour la couleur orange on voit bien qu'il a repérer 2 mêmes sinistres mais que leur code CIE en colonne H est différents donc dans ce cas là il faudra mettre un commentaire en colonne "M" : " REGULARISATION CIE TEMPLATE" et idem en couleur bleu (sur le feuille 1 de mon fichier excel en pièce jointe), il s'agit du même cas il a bien trouvé les 4 même sinistres parmis toutes mes lignes sauf que en colonne "H", il y a 2 codes CIE différents donc ici aussi on devra mettre un commentaire en colonne "M" : " REGULARISATION CIE TEMPLATE".
SINISTRE.xlsx
Sachant que dans ma colonne M, je vais devoir mettre d'autre commentaire avec d'autres conditions différents. J'espère j'ai étais clair et je compte sur vous les expertsje suis débutant, pas facile pour moi
Je pense que c'est sur cette dernier ligne de mon code où c'est n'est pas logique :
Si tu peux me donner ton avis sur le code entier suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part If C > 1 And D < 1 Then .Cells(i, "M") = "REGULARISATION CIE-TEMPLATE"
Merci de votre aide ça fait 1 semaine que je galère !
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 ' Régularisation CIE-TEMPLATE Dim Tablo Dim i As Long Dim C As Integer With Sheets("SUIVTRANS EN COURS") i = .Range("A" & Rows.Count).End(xlUp).Row For i = 2 To i NUMSIN = .Cells(i, "J") CODECIE = .Cells(i, "H") C = WorksheetFunction.CountIf(.Range("J2:J" & .Range("J" & Rows.Count).End(xlUp).Row), NUMSIN) D = WorksheetFunction.CountIf(.Range("H2:H" & .Range("H" & Rows.Count).End(xlUp).Row), CODECIE) If C > 1 And D < 1 Then .Cells(i, "M") = "REGULARISATION CIE-TEMPLATE" Next i End With End Sub
Cordialement,
Partager