Macro calcul en fonction de la dernière ligne

Bonjour

Si j'ai bien compris

Observations:
Pourquoi ne pas simplement utiliser les formules?
Normalement, elles s'adapteront même si tu insères des lignes.
Exemple
en D17: =SOMME($D$9:D16)
en D23: =$D17+$D21
et en D25, ta formule actuelle : =(((SOUS.TOTAL(109;D$6:D$22))*1,06)/1,06)/2
Ensuite si tu insères des lignes entre D9 et D16, les formules s'adaptent automatiquement, non ?
(Sans devoir passer pas VBA)

Bonjour,
Le calcul s'effectue sur une feuille de calcul crée via une macro et la méthode avec formule renvoie un bug. J'ai réussi à trouver par moi meme une solution simple en vba . Merci de votre réponse!

Marius

Bonsoir

Mariusweber à dit:

Bonjour,
J'ai réussi à trouver par moi meme une solution simple en vba . Merci de votre réponse!

Marius

Cliquez pour agrandir...

Tu as trouvé une solution tout seul, c'est bien
La publier, pour la partager avec la communauté des XLdiens, c'est mieux
(et accessoirement c'est aussi plus courtois)

Apparemment, le nouveau membre cru 2019 prends les mauvaises habitudes du cru 2018

Bonjour,

Voila la solution :

Sub act_52_v2()

xx = Range("D" & Rows.Count).End(xlUp).Row
Range("D" & xx).FormulaR1C1 = "=(SUBTOTAL(109,R6C:R" & xx - 3 & "C))*(55/52)"
MsgBox ("Le total des heures a été recalculé à l'activité 52")

End Sub
Sub act_55_v2()

xx = Range("D" & Rows.Count).End(xlUp).Row
Range("D" & xx).FormulaR1C1 = "=((SUBTOTAL(109,R6C:R" & xx - 3 & "C))*(55/52))/(55/52)"
MsgBox ("Le total des heures a été recalculé à l'activité 55")

End Sub

Bien cdlt,

Marius