Prob VBA

Bonjour,

J’ai réalisé ce tableau dans excel.

A C E

10 7 6

11 6 5

3 5 4

56 4 3

TOTAL 80 22 18

Ici j'ai demandé à la routine de se placer 6 lignes plus bas pour calculer le total (on suppose que la cellule sélectionnée est A.

Mais je voudrais en fait que la routine détermine elle même le nombre de lignes en decà desquelles elle va calculer la somme de la colonne.

Merci infiniment de votre aide. Cordialement

Thierry

Bonjour

Voici un exemple:

Sub EssaiSomme()
Dim col As Long
col = 1
Do
Cells(65536, col).End(xlUp).Offset(1, 0) = WorksheetFunction.Sum(Cells(1, col).Resize(Cells(1, col).End(xlDown).Row))
col = col + 1
Loop Until Cells(65536, col).End(xlUp).Row = 1
End Sub

un grand merci pour ta réponse. je vais le tester tout de suite

bien cordialement

Thierry