automatiser les calculs

Bonjour,

J'ai une ligne avec des formules( Matricielles et d'autres). Je souhaite faire le meme calcul sur les autres lignes. il y a que le numero de la ligne qui change dans les formules mais les formules restent les meme.

En fait j'ai un gros classeur avec des disaines de colonnes et des milliers de lignes. mettre des formules directement, ça prend énormement de temps pour les calculs, c'est pour cette raison je dois mettre une macro pour automatiser le calcul. mon fichier joint, c'est juste pour comprendre le principe. Ne prenez pas en compte les erreurs de calcul car c est un exmple.

Toutes suggestions seront les bienvenues !

Merci d'avance

Bonjour,


Pour recopier simplement des formules , tu peux t'inspirer de la fonction suivante.

Je parst du postulat que la 1ere formule commence à la ligne 6 et qu'il faut recopier autant qu'il y a de lignes ( en correspondance avec ton fichier ).

Dans mon exemple, on recopie des formules des colonnes C ,D, E et F càd 3> 6

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub recopie_formule()   nb_ligne = Range("B6").CurrentRegion.Rows.Count   For Each colonne In Array(3, 4, 5 , 6) Cells(6, colonne).Copy: ActiveSheet.Paste Range(Cells(7, colonne), Cells(6 + nb_ligne, colonne)) Next End Sub

---

ça ne fonctionnera que si tes formules sont 'régulières' , càd qu'elle s'applique aux colonnes de la ligne courante , sinon , il faudra faire des recopie autrement

End Sub

Merci bc, Comment je peux mentionner le debut et la fin des formules des colonnes à copier sans ercire ds le code "For Each colonne In Array(3, 4, 5 , 6)" car j ai une disaines de colonnes à copier.
et Comment je peux faire ses calculs sur la feuille 2 au lieu qu'il soit sur la meme feuille 1 en gardant les meme en tete avec leurs couleurs et la première ligne dont on a copier les formules.

meme des indications, ça peut m'aider, je vous remercie encore une fois.