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




.
Répondre avec citation





Partager