Salut a tous et a toutes,voila mon pb je dois remplir 744 cellules d un tableau excel en faisant plusieurs tri d affile....mais le pb c est que mon code est bcp bcp trop long...


Voila une des parties que je dois copie 744 fois

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Worksheets("requete_ticket_horaire").Activate
nomb = 0
 
For i = 2 To 65000
    If Cells(i, 8).Value Like "SLI8T1" And _
       Cells(i, 15).Value Like "7" And _
       Cells(i, 16).Value Like "1" Then
 
        nomb = nomb + 1
 
    End If
Next
Worksheets("SLI8T1").Activate
Range("C12") = nomb
c un tri pour savoir le nombre de "ticket"(pour mon cas) par jour et par heure...avez vous une simplification pour une la repetition?