Bonjour à tous,

J'ai une erreur 400 avec une macro que je tente d'écrire (je suis encore débutant en VBA, excusez-moi d'avance s'il y a des erreurs aberrantes dans le code ). Pour vous expliquer, la macro doit regarder quelles cellules de la plage F10:F100 contiennent la valeur "1", puis faire en sorte que la cellule F107 contienne la somme des cellules de la ligne supérieure aux cellules contenant "1".
Par exemple, si dans F10:F100 on a F45 et F80 qui contiennent "1", alors F107=F44+F79.

Je suppose que j'ai une erreur sur la formule des sommes, en fait je ne trouve pas comment écrire en VBA la somme de plusieurs offset(-1,0) lorsque les cellules sont égales à "1".

Si quelqu'un aurait la solution, en vous remerciant d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub weightF()
 
Dim UneCellule As Range
 
Range(F10, F100).Select
 
For Each UneCellule In Selection
    If UneCellule.Value = 1 Then
       Cells(107, F).Value = Sum(UneCellule.Offset(-1, 0))
    End If
Next
 
End Sub