XL 2016 récupération de valeur dans macro vba

[Mariusweber]

Bonjour,

J'aimerai pouvoir récupérer différentes valeur présentes dans un tableau lors du lancement d'une macro en VBA. Seulement je suis perdu dans les boucles et je n'arrive pas à retrouver comment faire pour toutes les récupérer.
L' explication est en p-j, et le bout de code à modifier est ici :

Public Sub dessiner_recap(ppst As String)

'on parcourt ensuite le detail et on s'arrète dés qu'on voit un sous total
'd'une page du chapitre courant
xDet = 4
Do While xDet < lastxDet + 2

'si la ligne est PP
If (Sheets(F_Det).Cells(xDet, Det_mark_ppst).Value = ppst) Then

'si la ligne est du bon chap
If (Sheets(F_Det).Cells(xDet, Det_mark_code_chap).Value = idChap) Then

'on copie une ligne "page"
CopierLigne "AT50:BZ50", xRecap, 1, F_Recap

Sheets(F_Recap).Cells(xRecap, Recap_nom).Select 'nom de la page
ActiveCell.FormulaR1C1 = "=" & F_Det & "!R" & xDet & "C" & Det_mark_nom_page & ""

Sheets(F_Recap).Cells(xRecap, Recap_h60).Select 'budget 60
ActiveCell.FormulaR1C1 = "=" & F_Det & "!R" & xDet & "C" & Det_h60 & ""

Sheets(F_Recap).Cells(xRecap, Recap_hcr).Select 'budget crédit
ActiveCell.FormulaR1C1 = "=" & F_Det & "!R" & xDet & "C" & Det_hcr & ""

Sheets(F_Recap).Cells(xRecap, Recap_C_h60).Select 'cumul h 60
ActiveCell.FormulaR1C1 = "=" & F_Det & "!R" & xDet & "C" & Det_C_h60 & ""

Sheets(F_Recap).Cells(xRecap, Recap_C_hcr).Select 'cumul h crédit
ActiveCell.FormulaR1C1 = "=" & F_Det & "!R" & xDet & "C" & Det_C_hcr & ""

Sheets(F_Recap).Cells(xRecap, Recap_C_dep).Select 'cumul h dep
ActiveCell.FormulaR1C1 = "=" & F_Det & "!R" & xDet & "C" & Det_C_dep & ""

Sheets(F_Recap).Cells(xRecap, Recap_P_h60).Select 'cumul h 60
ActiveCell.FormulaR1C1 = "=" & F_Det & "!R" & xDet & "C" & Det_P_h60 & ""

Sheets(F_Recap).Cells(xRecap, Recap_P_hcr).Select 'cumul h crédit
ActiveCell.FormulaR1C1 = "=" & F_Det & "!R" & xDet & "C" & Det_P_hcr & ""

Sheets(F_Recap).Cells(xRecap, Recap_P_dep).Select 'cumul h dep
ActiveCell.FormulaR1C1 = "=" & F_Det & "!R" & xDet & "C" & Det_P_dep & ""

xRecap = xRecap + 1

End If

End If

xDet = xDet + 1

Loop

'on marque la fin du chap
fin_chap = xRecap - 1

'on affiche le sous total du chapitre
CopierLigne "AT40:BZ40", xRecap, 1, F_Recap

Sheets(F_Recap).Cells(xRecap, Recap_nom).Value = "Sous total " & Sheets(F_Chap).Cells(xChap, chap_nom).Value 'nom
Sheets(F_Recap).Cells(xRecap, Recap_h60).Select 'h60
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R" & debut_chap & "C:R" & fin_chap & "C)"
Sheets(F_Recap).Cells(xRecap, Recap_hcr).Select 'hcr
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R" & debut_chap & "C:R" & fin_chap & "C)"
Sheets(F_Recap).Cells(xRecap, Recap_C_h60).Select 'cumul h 60
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R" & debut_chap & "C:R" & fin_chap & "C)"
Sheets(F_Recap).Cells(xRecap, Recap_C_hcr).Select 'cumul h cr
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R" & debut_chap & "C:R" & fin_chap & "C)"
Sheets(F_Recap).Cells(xRecap, Recap_C_dep).Select 'cumul h dep
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R" & debut_chap & "C:R" & fin_chap & "C)"
Sheets(F_Recap).Cells(xRecap, Recap_P_h60).Select 'période 60
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R" & debut_chap & "C:R" & fin_chap & "C)"
Sheets(F_Recap).Cells(xRecap, Recap_P_hcr).Select 'période cr
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R" & debut_chap & "C:R" & fin_chap & "C)"
Sheets(F_Recap).Cells(xRecap, Recap_P_dep).Select 'période dep
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R" & debut_chap & "C:R" & fin_chap & "C)"

Cells(30, 2) = Sheets(F_Recap).Cells(xRecap, Recap_P_ecart).Value
Cells(31, 2) = Sheets(F_Recap).Cells(xRecap, Recap_P_act).Value (ce que j'ai rajouté)

xRecap = xRecap + 2


End Sub



Je vous remercie par avance de votre aide