1 pièce(s) jointe(s)
Concaténation d'une formule dans une boucle for
Bonjour,
Je travaille actuellement sur un tableau contenant pour chaque semaine (en colonne), le temps moyen passé au téléphone et le taux d'appels décrochés, et en ligne la liste des techniciens). Et les deux dernières colonnes sont la moyenne pour le temps et le taux
Pièce jointe 382684
Cependant ce tableau n'est pas fixe, j'ai créé une procédure qui met à jour le tableau par rapport aux données d'une nouvelle semaine en décalant les 2 colonnes cette procédure marche très bien jusqu'à ce que je procède à l'écriture de la formule moyenne dans une boucle en concaténation (pour parcourir une colonne sur 2)
Code:
1 2 3 4 5 6 7 8 9 10 11 12
|
FinBas = Range("A1048576").End(xlUp).Row
DebutMoy = FinACD - 1 'Fin ACD correspond à la fin du tableau avec toutes les semaines
Moyenne = ""
For i = 4 To FinBas
Moyenne = "=MOYENNE("
For j = 2 To FinACD - 1 Step 2
Moyenne = Moyenne & LettreColonne(j) & i & ";"
Next
Moyenne = Left(Moyenne, Len(Moyenne) - 1) & ")"
Cells(i, FinACD + 1) = Moyenne 'Ligne qui bug
Next |
Lorsque je fais pas à pas, avant la ligne qui bug, Moyenne vaut la formule que je cherche, mais l'erreur renvoyée est la 1004.
Je sais pas si j'ai assez bien expliqué mon problème, je répondrai à vos questions s'il manque des informations !
Merci d'avance !