Bonjour à tous,
Je souhaite pouvoir modifier la plage de valeur de mon tableau dynamique grâce à une macro VBA.
A partir d'une date de début et une date de fin, il faudrait que la macro soit capable de reconnaitre l'intervalle à considérer dans le tableau.
Voici mon code pour le moment :
Etant novice, j'arrive a peu prés à concevoir un algorythme mais je ne connais pas assez le language VBA pour venir à bout de mon projet.
Merci à tous pour l'aide que vous sauriez me donner.
Valou
Je souhaite pouvoir modifier la plage de valeur de mon tableau dynamique grâce à une macro VBA.
A partir d'une date de début et une date de fin, il faudrait que la macro soit capable de reconnaitre l'intervalle à considérer dans le tableau.
Voici mon code pour le moment :
Code:
Sub test1()
Dim iX As Integer
Dim iY As Integer
For iX = 2 To 2000
If Range("A" & iX).Value = Range("D1") Then
iX = Deb
End If
Next iX
For iY = 2 To 2000
If Range("A" & iX).Value = Range("D2") Then
iY = Fin
End If
Next iY
ActiveSheet.PivotTables("Tableau croisé dynamique1").ChangePivotCache _
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"C:\Users\valou\Desktop\[Exemple-forum.xlsm]Feuil1!R" & Deb & "C1:R" & Fin & "C2", Version:= _
xlPivotTableVersion14)
End Sub
Etant novice, j'arrive a peu prés à concevoir un algorythme mais je ne connais pas assez le language VBA pour venir à bout de mon projet.
Merci à tous pour l'aide que vous sauriez me donner.
Valou