Discussion :

[antoinernould]

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



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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[parmi]

Bonjour,

J'essaierais en utilisant l'adresse des cellules et en me servant de FormulaLocal (dans ton cas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
........
Moyenne = Moyenne & Cells(i, j).address & ";"
........
    Cells(i, FinACD + 1).FormulaLocal = Moyenne 'Ligne qui bug

Regarde tout de même ce que retourne Moyenne avant de l'écrire -> avec Msgbox ou Debug.Print

[antoinernould]

J'ai oublié de préciser que la fonction LettreColonne permet de retourner une lettre lorsque l'on lui donne un chiffre, juste pour préciser.

Je vais tester ta façon parmi je te tiens au courant !

Merci en tout cas !

[antoinernould]

Re,

Du coup la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, FinACD + 1).FormulaLocal = Moyenne

renvoie la même erreur :

Erreur d'éxécution '438' (ça change de 1004) : Propriété ou méthode non gérée par cet objet...

[antoinernould]

Trouvé !

J'ai remplacé le Cells par un range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
FinBas = Range("A1048576").End(xlUp).Row
Moyenne = ""
For i = 4 To FinBas
    Moyenne = "=MOYENNE("
    For j = 2 To FinACD - 1 Step 2
    Moyenne = Moyenne & Cells(i, j).Address & ";"
    Next
    Moyenne = Left(Moyenne, Len(Moyenne) - 1) & ")"
    MsgBox Moyenne
    Range(LettreColonne(FinACD + 1) & i).FormulaLocal = Moyenne
Next

Merci Parmi !