KOBD
Messages postés1Date d'inscriptionmardi 11 décembre 2018StatutMembreDernière intervention11 décembre 2018
-
Modifié le 11 déc. 2018 à 10:43
Bonjour à tous,
J'ai besoin de votre avis et de votre aide pour automatisé la chose suivante :
Si la sommes des montants (en colonne K) est un écart < ou = à 10euros et <ou= à -10euros pour un même numéro de sinistre (colonne J) et le même REF CIE (colonne R) alors je mets un commentaire (en colonne M) "REGULATION ECART-TEMPLATE"
Après avoir réussi à faire la macro de mon TCD qui permet de trouvé les écarts (<ou = à 10 et -10 euros) des sommes des montants correspondant aux mêmes numéros de sinistre (cf : capture d'écran).
Je voudrais copier chaque numéro de sinistre trouvé par mon TCD en colonne D (Cf :capture d'écran TCD) dans l'onglet "TCD" sachant que ce numéro de sinistre copier dans mon filtre en colonne J de mon onglet "SUIVTRANS EN COURS" afin de pouvoir attribuer le commentaire "Régulation Ecart-Template" en colonne M.
Donc je voudrais que la macro vienne directement récupérer copier numéro de sinistre en colonne D dans mon TCD et le coller dans mon filtre en colonne J afin de pouvoir mettre mon commentaire comme indiqué ci-dessus.
Merci de votre aide précieuse !
Cordialement,
Voici les captures d'écran de ma macro et de mon TCD et de mon onglet "SUIVTRANS EN COURS
Voici mon code et je bloque à partir de : 'Copier le N° sinistre dans "SUIVITRANS EN COURS" et mettre en typo "RUGULATION ECART-TEMPLATE" :
"
'TCD sur Feuille "TCD"
ActiveWorkbook.Worksheets("SUIVTRANS EN COURS").PivotTables("Tableau croisé dynamique1"). _
PivotCache.CreatePivotTable TableDestination:="TCD!R3C1"
Sheets("TCD").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("N° OP transfert de valeur (sinistre/sinistre d'origine)")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("Montant Converti Signé") _
, "Nombre de Montant Converti Signé", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Nombre de Montant Converti Signé")
.Caption = "Somme de Montant Converti Signé"
.Function = xlSum
End With
'Copier le N° sinistre dans "SUIVITRANS EN COURS" et mettre en typo "RUGULATION ECART-TEMPLATE"'
Dim Lg%
typo = Cells.Find(what:="ENVOI BD / TYPO - MAJ MANUELLE SUR LISTE DEROULANTE CONTROLEE DANS ONGLET PARAMETRES + MACRO").Column
Lg = Range("D65536").End(xlUp).Row
derligne = Range("D" & Rows.Count).End(xlUp).Row
For i = i + 1 To derligne
Range("Di:D" & derligne).Copy
Sheets("SUIVTRANS EN COURS").Select
ActiveSheet.Range("$A$1:$AH$6117").AutoFilter Field:=10, Criteria1:= _
"B1730544792"
'Essayé de copier coller la même commentaire"
Range("M2740").Select
Selection.FillDown
ActiveCell.FormulaR1C1 = "REGULATION ECART-TEMPLATE"
Range("M2740").Select
Selection.FillDown
Sheets("TCD").Select
Range("D1517").Select
Selection.Copy
Sheets("SUIVTRANS EN COURS").Select
ActiveSheet.Range("$A$1:$AH$6117").AutoFilter Field:=10, Criteria1:= _
"B1760521836"
Next i