Copie d'un bloc (valeur format formule)

bonjour

bonjour

en FEUIL!1 j'ai un bloc ( A2 : d8 ")

ce bloc je le copie ( x ) fois - le nombre de copie est determiné

par la valeur situé dans la feuil! FORMATION en F16

j'ai essayé d'affecter a mon bouton l'une et l'autre des 2 solutions

que mon proposé CLAUDE et RAJA

Sub Macro1()

With Sheets("POULES")

.Range("a2:d8").Copy

For i = 1 To Sheets("FORMATION").Range("F16") - 1

.Range("a2").Offset(i * 8, 0).PasteSpecial

.Range("a2").Offset(i * 8, 0).Value = i + 1

Next

End With

End Sub

Sub essai()

Dim Lg As Integer, Nb As Integer

Lg = 2

Nb = 0

Application.ScreenUpdating = False

Range("L:o").Copy Destination:=Range("a1")

Range("a1") = Range("FORMATION!f16")

For i = 1 To Sheets("FORMATION").Range("F16")

Range("formation!a2:d8").Copy Destination:=Range("a" & Lg)

Range("a" & Lg) = Nb + 1

Lg = Lg + 8

Nb = Nb + 1

Next

End Sub

dans les 2 cas ca me copie le bloc mais uniquement le format

mais pas les formules

pouvez vous m'aidez

https://www.excel-pratique.com/~files/doc/ESSAI_test2.xls

amicalement

raymond

Bonjour Alric,

quand tu fais un collage spécial, tu dois lui fournir ce que tu veux coller :

.Range("b2").Offset(i * 8, 0).PasteSpecial Paste:=xlPasteValues
.Range("b2").Offset(i * 8, 0).PasteSpecial Paste:=xlFormula

Bonjour,

Dans ma solution, complète les formules dans le modèle (feuille FORMATION)

ou complète le 1er bloc et copie-le à la place du modèle.

Claude.

merci pour vos reponses

c'est ok

amicalement

raymond