Execution Module VBA

Merci beaucoup ! Ceci fonctionne sans problème :)

Merci encore.

Bonjour,

Si tout a ete fait avec l'enregistreur de macro ou code non optimise, pourquoi pas !!!!!

Moi, je pense plus au deroulement des modules si la declaration de variable est pas top

Re,

Tout a fait, attendons la suite ......

En effet, 4000 lignes semble beaucoup, mais il y a beaucoup de traitement à faire, des champs à calculer et environ 40 tableaux croisés dynamiques à générer... d'ailleurs c'est ce qui consomme le plus de lignes. (77 lignes par TCD x 40 = 3080 déjà). Par la même, si vous avez des idées afin d'optimiser ceci je suis preneur.

Voici le code que j'utilise pour générer le TCD :

Sub Pivot_Tables_Maker_Periode1_Principal()

Dim ws As Worksheet
Dim PvtTbl As PivotTable
Dim wsData As Worksheet
Dim DataRng As Range
Dim PvtTblCache As PivotCache
Dim wsPvtTbl As Worksheet
Dim pvtFld As PivotField
Dim LastCellRowNumber As Long

    Set wsData = Worksheets("0001")
    Sheets.Add
    ActiveSheet.Name = "TCD"
    Set wsPvtTbl = ActiveSheet
   
    wsData.Activate
    LastCellRowNumber = Range("A" & Rows.Count).End(xlUp).Row
    
            For Each PvtTbl In wsPvtTbl.PivotTables
                If MsgBox("Delete existing PivotTable!", vbYesNo) = vbYes Then
                PvtTbl.TableRange2.Clear
                End If
            Next PvtTbl
            
            Set DataRng = wsData.Range("B1:O" & LastCellRowNumber)
            
                ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=DataRng.Address(, , , True), _
                Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:=wsPvtTbl.Range("A1"), _
                TableName:=("PivotTable1"), DefaultVersion:=xlPivotTableVersion12

               
        Set PvtTbl = wsPvtTbl.PivotTables("PivotTable1")
        
        Set pvtFld = PvtTbl.PivotFields("Catégorie_Impayés")
        pvtFld.Orientation = xlRowField
        
        With PvtTbl.PivotFields("Catégorie_Impayés")
        .Orientation = xlDataField
        .Function = xlCount
        .NumberFormat = "#,##0"
        .Position = 1
    
        End With
        
        With PvtTbl.PivotFields("CRD")
        .Orientation = xlDataField
        .Function = xlSum
        .NumberFormat = "#,##0"
        .Position = 2
        End With
        
        With PvtTbl.PivotFields("MNT_IMPAYE")
        .Orientation = xlDataField
        .Function = xlSum
        .NumberFormat = "#,##0"
        .Position = 3
        End With
        
        With PvtTbl.PivotFields("Total Dû")
        .Orientation = xlDataField
        .Function = xlSum
        .NumberFormat = "#,##0"
        .Position = 4
        End With
        
        With PvtTbl.PivotFields("Provision")
        .Orientation = xlDataField
        .Function = xlSum
        .NumberFormat = "#,##0"
        .Position = 5
        End With
        
        PvtTbl.ManualUpdate = False
        
        PvtTbl.PivotFields("Catégorie_Impayés").PivotFilters.Add Type:=xlCaptionDoesNotBeginWith, Value1:="N"
        
End Sub