Compter valeurs si date identique

[Bab06]

Bonsoir, je bloques sur un petit programme,

Sur un fichier comptenant deux feuilles, une avec ma saisie de donnéés (Données)

Date de l'inspection (Date du jour de l'inspection, il y en aura plusieurs par jours)
Non de l'inspecteur
Inspection produit 1 (soit conforme = 100, soit non conforme = 0)
Inspection produit 2 (soit conforme = 100, soit non conforme = 0)
Inspection produit 3 (soit conforme = 100, soit non conforme = 0)


Une autre feuille avec un recapitulatif de mes données pour connaitre l'evolution (Bilan) :

Date de l'inspection
Nombre d'inspection pour cette date
% d'inspection produit 1 (qui devrait etre la somme de toutes les cellules inspection produit 1 de la meme date divisé par le nombre d'intervention pour cette date)
% d'inspection produit 2 (IDEM que 1)
% d'inspection produit 3 (IDEM que 1)

Mon probleme se situe sur le % d'inspection produit

voici mon code

Sub Remplir()

Dim searchstring, searchchar, mypos, derligne, i, AEZ, MAEZ, KAM, qte, AEZ1, AEZ2

AEZ = 0
AEZ1 = 0
AEZ2 = 0
MAEZ = 0
KAM = 0
qte = 0

For i = 2 To 120 'Nombre total de date possible

Sheets("Bilan").Select
searchchar = Cells(i, 2).Value 'Date d'inspection
qte = Cells(i, 3).Value 'Nombre d'inspection pour cette date


Sheets("Données").Select

For Each cell In Range("A2:A1500") 'Liste de date d'inspection
searchstring = cell.Text
mypos = InStr(searchstring, searchchar)

If mypos > 0 Then
AEZ1 = AEZ + ActiveCell.Offset(0, 3).Value 'Inspection produit 1
MAEZ1 = MAEZ + ActiveCell.Offset(0, 4).Value 'Inspection produit 2
KAM1 = KAM + ActiveCell.Offset(0, 5).Value 'Inspection produit 3

End If

Next

AEZ2 = AEZ1 / qte 'Somme de tout les inspection produit 1 / Nombre d'inspection sur cette date
MAEZ2 = MAEZ / qte 'Somme de tout les inspection produit 2/ Nombre d'inspection sur cette date

'KAM = KAM / qte 'Somme de tout les inspection produit 3/ Nombre d'inspection sur cette date

Sheets("Bilan").Cells(i, 4).Value = AEZ2
Sheets("bilan").cells(i, 5).Value = MAEZ2
Sheets("bilan").cells(i, 6.Value = KAM2

Next

End Sub


Mais ca ne marche pas ... si vous pouviez me donner votre avis SVP
Merci d'avance.

 

[ROGER2327]

Re : Compter valeurs si date identique

Bonjour Bab06

Il sera plus facile de vous répondre quand on aura sous les yeux un petit classeur de test contenant le code VBA et un échantillon de données (bidonnées, bien sûr, rien de confidentiel). Personnellement, je n'ai pas envie de le fabriquer avant de pouvoir chercher une solution.
Bon courage et à bientôt.​

ROGER2327
#2264