Bonjour,
deux problème avec ce codes, (j'applique mes filtre sur des dates!)1)- la valeure qu'il retourne est toujours 1, j'ai essayé de changé les données (dates) avec des strings est il retournes les vraies valeures.
2)- quand il retourne les vraies valeures, il éffaces l'ancien résultat dans la même cellule, il recompte dans la même cellule plusieurs fois. Ici je pense que c'est un problème de boucles.
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
 
For i = 2 To 25
For j = 5 To 8
 
For c = 7 To 24
 
    maplage.AutoFilter Field:=c, Criteria1:='Sheets("Calcul").Cells(i,1)  'Sheets("Calcul").Cells(j, 1)
 
Next c
 
Sheets("Calcul").Cells(j, i) = Sheets("Feuil1").Range("A2", Sheets("Feuil1").Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells.Count
Sheets("Feuil1").ShowAllData
 
Next j
Next i