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

[ARTURO83]

Bonjour,

Une simple formule en colonne M ne suffirait-il pas? Exemple en M2 et à tirer vers le bas

Code :

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

=SI(NB.SI.ENS($J$2:$J$10000;J2;$R$2:$R$10000;R2)>1;"REGULATION CIE-Template";"")

Cdlt

[OBADJ]

Bonjour ARTURO83,

Merci de ta réponse, c'est vrai que c'est une bonne solution sauf que dans cette même colonnes, je dois mettre d'autre commentaire avec des critères différents donc si je la tire vers le bas jusqu'à mes 6500 lignes, pour mes autres commentaires sa risque de tous fausser...
Si tu préférés la formule est bonne mais j'ai d'autre commentaire du même type à mettre en colonnes M...

Tu en penses quoi ?

[BENNASR]

bonjour
inutile d'ouvrir deux discussions pour le même sujet, ça charge le forum

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.

je comprends mal ta demande mais si on résume : tu cherches à compter la présence de chaque numéro de sinistre dans la colonne J et si c'est deux ou plus tu ajoute un commentaire "Régularisation CIE-Template" en colonne M. c'est ça non???
si non merci de données d'expliquer ta demande avec un exemple concret

[ARTURO83]

Si tu préférés la formule est bonne mais j'ai d'autre commentaire du même type à mettre en colonnes M...

D'accord, mais que ce soit en vba ou par formules, il faudra bien connaître les autres critères. Y en a t-il beaucoup?

[MarcelG]

Bonjour à vous,

Si je peux me permettre.

Pour chaque numéro de sinistre, je créerais un dictionnaire des compagnies.
Si ce dictionnaire comporte 2 clés alors la colonne M serait alimentée.