hello

je sollicite votre aide car je veux créer un code vba qui peut être utilisé pour calculer le nombre d'occurrence de x par semaine dans un tableau, ainsi que de sauvegarder le nombre d'occurrence de x dans autre classeur Feuil2 et sur chaque semaine on attribue sa nombre d'occurrence de x, A l'avance merci .

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
18
19
20
21
22
23
24
25
26
27
28
29
Sub x_semaine_test()
 
StartDate = #2/1/2017#
Endate = #12/31/2017#
 
Dim Li As Integer
Dim i As Integer
Dim j As Integer
j = 0
 
Li = Sheets("Feuil1").Cells(Rows.Count, 56).End(xlUp).Row
 
For k = 6 To 59
For i = 6 To Li
 
If Worksheets("Feuil1").Cells(i, 2).Value = "x" And Format(Worksheets("Feuil1").Cells(i, 56).Value, "ww") = Format(StartDate, "ww") Then
 
j = j + 1
Worksheets("Feuil2").Cells(k, 7).Value = j
End If
 
Next i
 
j = 0
StartDate = StartDate + 7
If StartDate > Endate Then Exit For
Next k
 
End Sub