à tous...
Bon j'ai encore un petit souci...
Je souhaite faire en vba un calcul qui additionne les valeurs de 4 colonnes fixes et 1 colonne variable...
Et je tourne en rond encore une fois
Voici ce que j'ai fait... et qui ne fonctionne pas...
Dim DerL As Long
Dim i As Long
Dim j As Long
Dim k As Range
Dim varSA As Variant
DerL = Feuil1.Range("B" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To DerL
Set k = Cells(i, 10)
For j = 20 To 25
varSA = Application.Sum(Cells(i, 1), Cells(i, 2), Cells(i, 3), Cells(i, 4))
If k.Value = 0 Then
Cells(i, j) = 0
Else
Cells(i, j) = Application.Sum(varSA, k)
End If
Next j
Set k = k.Offset(0, 1)
Next i
Application.ScreenUpdating = True
Donc soit j'utilise mal le "offset"... soit c'est pas la bonne solution...
Alors si vous pouvez encore une fois m'aider d'avance
Je joint aussi un fichier test...
Remarque : en réel les valeurs ne sont pas égales aux chiffres indiqués...