[VBA] Problème groupement de date

  • Initiateur de la discussion Initiateur de la discussion Jarzet
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Jarzet

XLDnaute Nouveau
Salut à tous,

Je suis en ce moment entrain de créer des Tableaux Croisés Dynamiques avec des macros, tous se passe au début mais vers la fin du macro il bloque. Cette étape qui bloque permet au tableau de grouper des dates par années puis par mois en montrant le nombre de formulaires remplies par mois.

Voila l'erreur et le code.
Macro1.PNG

Code:
Sub Test2()
    Dim PTcache As PivotCache
    Dim PT1 As PivotTable
    'Dim ptField As PivotField
    'Dim rPTRange As Range
    
    
    Set PTcache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Réponses")
    
    Set PT1 = ActiveSheet.PivotTables.Add(PivotCache:=PTcache, TableDestination:="Tableaux!R6C8", TableName:="TCD_NbFormulairesRempliesMois")
    
    With PT1
        .PivotFields("Horodateur").Orientation = xlRowField
    End With
    
    With PT1
        .PivotFields("Horodateur").Orientation = xlDataField
    End With
    
    PT1.CompactLayoutRowHeader = "Horodateur"
    
    PT1.DataPivotField.PivotItems("Nombre de Horodateur").Caption = "Nombre de formulaires remplies par années puis par mois"
    
    With PT1
        .ColumnGrand = False
        .RowGrand = False
    End With
    
    PT1.PivotFields("Horodateur").PivotFilters.Add Type:=xlValueDoesNotEqual, DataField:=PT1.PivotFields("Nombre de formulaires remplies par années puis par mois"), Value1:=0
    
    With PT1.PivotFields("Horodateur")
        .DataRange.Cells(6, 8).Group Start:=True, End:=True, Periods:=Array(False, False, False, False, True, False, True)
    End With
    
    'Set ptField = PT1.RowFields("Horodateur")
    'Set rPTRange = ptField.DataRange.Cells(6, 8)
    
    'rPTRange.Group Start:=True, End:=True, By:=False, Periods:=Array(False, False, False, False, True, False, True)
    
    PT1.TableStyle2 = "PivotStyleMedium3"
    
    PT1.ShowTableStyleRowStripes = True
    
    PT1.ShowTableStyleColumnStripes = True
    
End Sub

Vous pouvez remarquer que j'ai fait plusieurs tentatives mais j'en ai laissé peu.

Merci d'avance
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
357
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
240
Réponses
3
Affichages
533
Réponses
3
Affichages
232
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
497
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
385
Retour