Récupération valeur tableau via VBA
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