Bonsoir
J'ai un souci avec la copie de formules. J'ai un classeur de 13 feuilles dont 12 sont réservées pour les mois et une pour les totaux mensuels. Cette feuille est composée de 120 lignes (1 par code article) et 12 colonnes (1 par mois) et donc 1440 cellules avec formules. C'est fastidieux et source d'erreurs.
J'ai fait un essai avec ce bout de code :
Ceci n'est valable que pour Janvier et le code 7010, ce qui m'oblige à changer manuellement les mois dans les 11 cellules suivantes de la ligne 5 et je vais devoir recommer en ligne 6 en pensant aussi à modifier le code en 7020.
Si vous avez la solution pour me faciliter la tâche je vous remercie d'avance.
J'ai un souci avec la copie de formules. J'ai un classeur de 13 feuilles dont 12 sont réservées pour les mois et une pour les totaux mensuels. Cette feuille est composée de 120 lignes (1 par code article) et 12 colonnes (1 par mois) et donc 1440 cellules avec formules. C'est fastidieux et source d'erreurs.
J'ai fait un essai avec ce bout de code :
Code:
Sheets("TOTAUX").Select
For i = 1 To 12
Cells(5, i).Select
Selection.FormulaArray = _
"=SUM(IF(Janv!R7C4:R85C4=7010,Janv!R7C5:R85C5-R7C6:R85C6))"
Next
Si vous avez la solution pour me faciliter la tâche je vous remercie d'avance.