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.
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.