Macro somme jusqu'à dernière ligne

Bonjour,

J'aimerais faire la somme de R2 jusqu'à la dernière ligne de la colonne R, et mettre le résultat en T1. Très facile sans doute, mais je bloque

Bonjour Geoffrey,

Pourquoi ne pas utiliser une formule Excel?

Sinon en VBA :

Sub SommR()

Cells(1, 20) = Application.WorksheetFunction.Sum(Range(Cells(2, 18), Cells(Rows.Count, 18).End(xlUp)))

End Sub

Bon courage!

Bonjour,

Sans macro et sans te soucier dans quelle cellule est ta dernière donnée

=somme(R2:R65536)

Cordialement.

Il se peut qu'il y est + que 65536 lignes.

Merci pour le code, fonctionne parfaitement !

C'est possible que la somme soit "dynamique" ? C'est à dire que si j'applique un filtre dans le tableau, on calcul seulement les lignes affichées dans le tableau ?

De rien Geoffrey!

Et j'ai pas trouvé (j'ai fouiné sur le net par curiosité) de fonctions excel qui donne le nombre de lignes en fonction de la version d'Excel utilisée. (ou un truc du genre, mais y a moyen de bidouiller des trucs plutôt souples avec Indirect)

Un petit Call de ton code et ça marche parfaitement toute façon

"Reste" plus qu'à lui dire de faire la somme des lignes qui sont uniquement affichées Dans le cas où on applique des filtres.

ouais mais là tu pourras pas facilement utilisé ce que je t'ai donné, je pense que ça ça devrait faire l'affaire!

Sub SommR()
Dim ResSom As Double
ResSom = 0

For i = 2 To Cells(Rows.Count, 18).End(xlUp).Row
    If Rows(i).Hidden <> False Then

    Else
        ResSom = ResSom + Cells(i, 18)
    End If
Next i

Cells(1, 20) = ResSom
End Sub

Bonjour

Sans VBA c'est plus simple je pense.

Mets une de ces deux formules en cellule T1

- =SOUS.TOTAL(109;DECALER($R$2;;;NBVAL($R:$R)))

ou

- =SOUS.TOTAL(109;$R:$R)

Amicalement

Toujours autant efficace...

merci !