MACRO VBA EXCEL

Fermé
KOBD Messages postés 1 Date d'inscription mardi 11 décembre 2018 Statut Membre Dernière intervention 11 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

Range("A4:B4").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A4:B2699").Select
Selection.Copy

Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("E3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "filtre"
Range("E3").Select
Selection.AutoFilter
ActiveSheet.Range("$D$3:$E$2699").AutoFilter Field:=2, Criteria1:="<=10", Operator:=xlAnd, Criteria2:="<=-10"

'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