Code VBA - Références à des cellules

Bonjour,

Dans le code ci-dessous,

Sub test()
Dim j As Integer
Dim Derniere_ligne As Integer, Feuille As Worksheet
Set Feuille = Sheets("Feuil1")
Derniere_ligne = Feuille.Range("A" & Rows.Count).End(xlUp).Row
For j = 4 To Derniere_ligne
    If Cells(j, 1) = "Homme" Then
    Cells(j, 2) = 1
    Else: Cells(j, 2) = 2
    End If
Next j
[b65000].End(xlUp)(2).FormulaR1C1 = "=SUM(R4C:R[-1]C)"
End Sub

j'ai tout d'abord essayé d'effectuer le total (la dernière ligne de ce code) avec une ligne du genre

Cells(j, 2) = "=SUM(cells(4,2):cells(j-1,2)"

Pouvez-vous m'indiquer s'il y a malgré tout une solution avec cette première idée, c'est à dire en utilisant la valeur de la variable j ?

A tout hasard, voici encore mon fichier

Bonnes salutations à tous

Salut le forum

Comme ceci :

Cells(j, 2) = "=SUM(" & Cells(4, 2).Address & ":" & Cells(j - 1, 2).Address & ")"

Mytå

Salut Mytå,

Merci infiniment pour ta réponse. Ca fonctionne à merveille.

Bonnes salutations.

Bonsoir à tous,

Tu peux aussi écrire

Cells(j, 2) = "=Sum(b4:b" & j - 1 & ")"

ou en dur

Cells(j, 2) = Application.Sum(Range("b2:b" & j - 1))

Amicalement

Claude

Salut Claude,

Tes solutions sont également très intéressantes ; j'en prends bonne note et t'en remercie sincèrement.

Bonne journée.