SebastienE
XLDnaute Nouveau
Bonjour à tous,
Etant débutant en VBA, je galère à finaliser ma macro.
Je récupère des datas d'un fichier lamba avec les infos suivantes: Num Pièce / Date / Temps de cycle
Je voudrais que ma macro génère un tableau récapitulatif (tableau en F1:H6 par exemple) qui récapitule chaque date, le nombre de pièces faites par date, et le temps de cycle par date.
Voici l'état de ma macro, et je n'arrive pas à trouver le bout!:
Calcul moyenne Tcy par jour de production
Cells(1, 6).Value = "Date"
Cells(1, 7).Value = "Nb pieces"
Cells(1, 8).Value = "Moy Tcy"
Nbp = Cells(24, 1).Value 'Nb pièces total
d = Cells(2, 2).Value 'Date'
n = 1
a = 1
s = 2
g= 2
While a < Nbp
While d = Cells(a + 1, 2).Value
a = a + 1
Wend
Cells(g, 6) = d 'indique la date
Cells(g, 7) = a - n ' calcul le nombre de pièces faites en fonction de la date
Cells(g, 8).FormulaR1C1 = "=AVERAGE(R[" & a & "]C[-5]:R[" & n & "]C[-5])" 'calcul la moyenne du tps de cycle en fonction de la date
s = s + 1
n = a + 1
d = Cells(n, 2).Value
g = g + 1
Wend
Dans le fichier envoyé, voici le draft, ainsi que le tableau jaune qui correspond aux valeurs attendues!
Merci par avance pour votre aide.
Etant débutant en VBA, je galère à finaliser ma macro.
Je récupère des datas d'un fichier lamba avec les infos suivantes: Num Pièce / Date / Temps de cycle
Je voudrais que ma macro génère un tableau récapitulatif (tableau en F1:H6 par exemple) qui récapitule chaque date, le nombre de pièces faites par date, et le temps de cycle par date.
Voici l'état de ma macro, et je n'arrive pas à trouver le bout!:
Calcul moyenne Tcy par jour de production
Cells(1, 6).Value = "Date"
Cells(1, 7).Value = "Nb pieces"
Cells(1, 8).Value = "Moy Tcy"
Nbp = Cells(24, 1).Value 'Nb pièces total
d = Cells(2, 2).Value 'Date'
n = 1
a = 1
s = 2
g= 2
While a < Nbp
While d = Cells(a + 1, 2).Value
a = a + 1
Wend
Cells(g, 6) = d 'indique la date
Cells(g, 7) = a - n ' calcul le nombre de pièces faites en fonction de la date
Cells(g, 8).FormulaR1C1 = "=AVERAGE(R[" & a & "]C[-5]:R[" & n & "]C[-5])" 'calcul la moyenne du tps de cycle en fonction de la date
s = s + 1
n = a + 1
d = Cells(n, 2).Value
g = g + 1
Wend
Dans le fichier envoyé, voici le draft, ainsi que le tableau jaune qui correspond aux valeurs attendues!
Merci par avance pour votre aide.