copie de formule sur plusieurs feuilels

[MARION]

Bonsoir le forum
Comment faire pour copier les formules sur plusieurs feuilles en se réferents a un tableau
Je joins un petit fichier pour une meilleur compréhension.
Si vous pouvez a nouveau me donner un coup de main
Merci
A+ M

 

[andré]

Salut Marion,

Je ne vois d'autre solution qu'en récupérant dans chaque feuille le numéro inclus dans le nom de son onglet, puis de faire les liaisons sur base de la fonction INDIRECT.

Je t'ai fais un petit exemple en créant une feuille OF4 à partir de la feuille OF1 modifiée.

Si tu as besoin d'un mot d'explication complémentaire, je serai pour une grande partie de la journée devant mon PC, donc n'hésite pas.

Ândré.

 

[MARION]

Merci andre de cette propositon, je vais essayer de me debrouiller avec ses formules, et si j'ai des problèmes, alors je te recontacte
Gros bisous et merci encore
A+ M

 

[F.LAUNAY]

bonjour, ci joint du code pour creer autant de feuille que souhaité , ici 20
il suffit de modifier la valeur de limit
Public Sub ajoutfeuil() 'Création de nouvelles feuilles sous condition de limit
Dim fcount As Long, Limit As Long
Limit = 20
If Worksheets.Count < Limit Then
Do
fcount = Worksheets.Count
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
Loop While fcount < Limit
End If
End Sub
un autre bout de code pour copier les donnée permanentes, pour le reste
c'est beaucoup long
Public Sub extrait()
Feuil1.Activate
Range("a4").Activate
Feuil1.Range("A3").Copy Destination:=Feuil2.Range("A3")
Feuil1.Range("B3").Copy Destination:=Feuil2.Range("B6")
Feuil1.Range("c3").Copy Destination:=Feuil2.Range("B8")
Feuil1.Range("d3").Copy Destination:=Feuil2.Range("A11")
Feuil1.Range("e3").Copy Destination:=Feuil2.Range("B13")
Feuil1.Range("f3").Copy Destination:=Feuil2.Range("B15")
end sub