Discussion :

[PAJGGG]

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 ;-)

[Philippe Tulliez]

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

Code :

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

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

[jfontaine]

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 :

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

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

[Philippe Tulliez]

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

Code :

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

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

[PAJGGG]

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

[Philippe Tulliez]

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.

[PAJGGG]

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 !

[jfontaine]

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

[PAJGGG]

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 ?

[PAJGGG]

JFontaine,

Merci,

J'ai adapté ta formule en

Code :

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

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.