Discussion :

[OBADJ]

Bonjour à tous,

J'aurais besoin de votre aide pour une macro à faire sur un fichier excel où je dois automatiser plusieurs choses. Ps : Je suis débutant c'est une vrai galère pour moi :/

J'aimerais que sur un même numéro de sinistre (colonne J) et que ce même numéro de sinistre dispose de 2 codes CIE différents (colonnes R) alors je met un commentaire "Régularisation CIE-Template" en colonne M.
A savoir qu'il faudra faire une boucle je pense car il s'agit d'un fichier avec plus de 6000 lignes et je veux lui demandé qu'il retrouve parmi les mêmes numéros de sinistres s'il y a la présence de 2 codes CIE différents et qu'il m'écrive le commentaire en colonne M.

Je vous est mis 2 captures d'écran pour que ce soit compréhensible.

MERCI DE VOTRE AIDE !



Voici le début de ma macro qui ne fonctionne pas encore :

' Régulation CIE-Template :

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
Sheets("SUIVTRANS EN COURS").Select
 
   Dim man, sin, typo, montant, CIE
 man = Cells.Find(what:="Libellé Écriture (manuelle)").Column
 sin = Cells.Find(what:="N° OP transfert de valeur (sinistre/sinistre d'origine)").Column
 typo = Cells.Find(what:="ENVOI BD / TYPO - MAJ MANUELLE SUR LISTE DEROULANTE CONTROLEE DANS ONGLET PARAMETRES + MACRO").Column
 montant = Cells.Find(what:="Montant Converti Signé").Column
 CIE = Cells.Find(what:="Code Payeur - Fs - à conserver sur 6 positions").Column
 
 '1ere ligne à comparer
 For i = 2 To derligne
    '2eme ligne à comparer
    For ii = i + 1 To derligne
        'Pas même ligne
        If i <> ii Then
            'Vérif REGULATION CIE-Template
            If Cells(i, sin) = Cells(ii, sin) And Cells(i, CIE) <> Cells(ii, CIE) Then
                Cells(i, typo).Value = "REGULATION CIE-Template"
                Cells(ii, typo).Value = "REGULATION CIE-Template"
            End If
        End If
    Next ii
 Next i