Bonjour à tous et toutes,

Je sollicite votre aide car étant plus que novice sur excel je me retrouve bloqué avec un tableau et des formules VBA.

En effet j'ai un tableau qui comptabilise en F9:F404 un nombre de courrier et en G9:G4 la date de saisie.
Je souhaite faire une somme conditionnée à la date sur la colonne suivante mais je n'y parviens pas j'ai testé formulaR1C1 mais en vain. voici ma tentative désespérée créée en mettant des codes bout à bout:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Value <> "" Then
Cells(Target.Row, 7).Value = Now
Cells(Target.Row, 7).Offset(0, -1).Value = 1
d = Cells(10, 9).Value
Dim x As Long
Dim i As Integer
Dim j As Integer
For i = 0 To 30
For j = 9 To 39
x = d + i
Cells(j, 8).Select
ActiveCell.Formula = [sumif(g9:g404,"x",f9:f404)]
Next j
Next i
End If
End Sub
Pouvez vous me venir en aide ? Par avance merci.