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

Mariusweber

XLDnaute Nouveau
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
 

Fichiers joints

Discussions similaires


Haut Bas