[XL-2010] Macro VBA EXCEL

3 pièce(s) jointe(s)

Macro VBA EXCEL

Bonjour à tous,

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. Je voudrais pouvoir copier chaque numéro de sinistre trouvé par mon TCD dans l'onglet "TCD" où j'ai fait un filtre qui me trouve les numéro de sinistre où leur sommes des motants est <ou = à 10 et -10 euros et ensuite copier ce numéro de sinistre pour filtrer dans la "colonne J" afin de retrouver ce derniers (N° de sinistres) dans mon onglet "SUIVTRANS EN COURS" et ensuite attribuer le commentaire "Régulation Ecart-Template" en colonne M.

Merci de votre aide précieuse !

Voici les cpature d'écran de ma macro et de mon TCD et de mon onglet "SUIVTRANS EN COURS"
Pièce jointe 433415
Pièce jointe 433403 Pièce jointe 433404

Salut.

Il est plus intéressant de mettre le code de façon lisible. Pour cela, faire un copier-coller du code dans le corps du message, puis le sélectionner et cliquer sur le bouton # de la barre d'édition du message... Parce qu'ici, sauf à avoir une bonne loupe, on ne voit pas grand-chose... ;)

Voici mon code et je bloque à partir de : 'Copier le N° sinistre dans "SUIVITRANS EN COURS" et mettre en typo "RUGULATION ECART-TEMPLATE" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
'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