Recopie incrémentée d'une ligne de formule

Bonjour à tous,



Je cherche à recopier plusieurs formules (diffrentes) de la colonne B à BH, sachant qu'une première macro m'a ajouté des données en colonne A.

J'ai bien lu et essayé des bouts de macro avec autofill, mais ça ne fonctionne pas.

Auriez-vous des suggestions ?

Merci d'avance ;-)

Bonjour,
Petit exemple ci-dessous d'une recopie de cellules B2:B5 vers les cellules C2:M5

Code:

---

1 2 3 4 5

Dim sht As Worksheet, rngSource As Range, rngTarget Set sht = ThisWorkbook.Worksheets("Feuil1") Set rngSource = sht.Range("B2:B5") Set rngTarget = sht.Range("B2:M5") rngSource.AutoFill Destination:=rngTarget

---

Bonjour,

Ou se trouve ces formules? sur une ligne? doivent être créées par macro?

Exemple de copie de formule se trouvant en D1 jusqu'à la dernière ligne utilisée en colonne A

Code:

---

1 2	Range("D1").Copy Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial

---

Bonjour,
Une autre solution serait un simple Copier/Coller
Recopie de cellules B2:B5 vers les cellules C2:M5

Code:

---

1 2 3 4 5

Dim sht As Worksheet, rngSource As Range, rngTarget Set sht = ThisWorkbook.Worksheets("Feuil1") Set rngSource = sht.Range("B2:B5") Set rngTarget = sht.Range("C2:M5") rngSource.Copy rngTarget

---

Bonjour,

Merci de vos réponses.

En fait, une première partie de macro vient ajouter des données en colonne A de façon variable (dans la dernière cellule non remplie).
Ex : la macro est venue coller de nouvelles données de A50 à A60.

Je cherche donc maintenant à recopier les formules présentes en cellule B49 à BH49 vers B50 à BH60.

Le nombre de lignes à copier dépend de ce que j'ai en colonne A.

Est-ce plus clair ?!

Merci beaucoup

Bonjour,
Si ta macro recopie les cellules de B49 à BH49 vers B50 à BH60, je suppose qu'avec les réponses que l'on t'a apporté tu devrais pouvoir faire les adaptations.

ok, mais je ne veux pas écrire les références des cellules dans le code. Je sais que je travaille de la colonne B à BH... mais je ne sais pas sur quelles lignes !

Suis une grande débutante en VBA... ;-)

Mais si tu me dis que je dois pouvoir y arriver, je vais chercher !

Merci !

regardes la ligne 2 du code que je t'ai proposé plus haut

Elle fonctionne bien pour recopier la formule d'1 colonne ;)

Mais n'y a-t-il pas moyen de copier toutes les formules de la ligne pour les recopier en même temps ?

JFontaine,

Merci,

J'ai adapté ta formule en

Code:

---

1 2	Range("B645:BH645").Copy Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial

---

La macro copiera toujours la ligne 645, cela me va aussi.