J'essaye de créer un code VBA permettant de calculer la somme automatique des lignes. Je peux avoir une seule ligne comme je peux en avoir 25. Voici mon code de base : Sub sommeBis() Dim Z_Lig As Integer Z_Lig = 33 Do While Cells(Z_Lig, 10).Value <> "Montant H.T en €" Z_Lig = Z_Lig + 1 formule = Cells(Z_Lig, 12).Value Range("TOTAL_HT").Formula = "=sum(L32:Formule)" Loop End Sub Je n'arrive pas à retourner la valeur numérique de Z_Lig dans la formule Je vous remercie par avance, Goat...

Sommes automatique VBA

Le 09/11/2021 à 10:14

Bonjour,

J'essaye de créer un code VBA permettant de calculer la somme automatique des lignes. Je peux avoir une seule ligne comme je peux en avoir 25.
Voici mon code de base :

Sub sommeBis()

Dim Z_Lig As Integer

Z_Lig = 33

Do While Cells(Z_Lig, 10).Value <> "Montant H.T en €"
 Z_Lig = Z_Lig + 1
 formule = Cells(Z_Lig, 12).Value
Range("TOTAL_HT").Formula = "=sum(L32:Formule)"
Loop

End Sub

Je n'arrive pas à retourner la valeur numérique de Z_Lig dans la formule

Je vous remercie par avance,

Goat

Le 09/11/2021 à 10:40

Bonjour Goat

Pourquoi faire compliqué

Range("TOTAL_HT").Formula = "=sum(L32:L" & Z_Lig & ")"

A+

Le 09/11/2021 à 11:37

Bonjour BrunoM45,

merci beaucoup, j'arrivais pas à associer la formule avec Z_lIg c'est nickel :)

A+

Rechercher des sujets similaires à "sommes automatique vba"