Bonjour Manon et André.
Il y a bien sûr la possibilité de faire une macro (attaché à l’événement qui vous plaira).
Exemple :
Range(Cells(1, 5), Cells(10, 6)).Formula = Cells(1, 5).Formula
Equivalent de
Range('E1:F10').Formula = Range('E1').Formula
Cela recopie la formule de la cellule E1 dans les cellules E1 :F10.
(E1 Supposé contenir =SI(cptes=7000;0)*SI(cptes=5500;0))
Avec Cells, il sera peut-être plus facile de faire varier la taille de la recopie.
Exemple si C1=NBVAL(A :A)
Range(Cells(1, 5), Cells(Cells(1,3), 6)).Formula = Cells(1, 5).Formula
recopiera un nombre de ligne égale à C1, c’est à dire le nombre des cellules qui ne sont pas vides dans la première colonne. (utile dans ce cas si les cellules sont adjacentes)
Remarque : L’exécution s’effectue dans la feuille active, mais on peut écrire
Worksheets('Feuil1'). Range('E1:F10').Formula = Range('E1').Formula
pour fixer l’exécution uniquement à la Feuil1.
Au revoir, à bientôt