Dans une série de feuilles reporter une formule

Fermé
nulenvba Messages postés 6 Date d'inscription samedi 19 janvier 2013 Statut Membre Dernière intervention 15 février 2013 - 2 févr. 2013 à 15:41
nulenvba Messages postés 6 Date d'inscription samedi 19 janvier 2013 Statut Membre Dernière intervention 15 février 2013 - 2 févr. 2013 à 16:34
Bonjour,

J'arrive à passer d'une feuille à l'autre avec For next en transportant des valeurs d'une feuille à l'autre mais je n'arrive pas à le faire pour des formules
Worksheets(i + 1).Select : Range("A3").Select
ActiveCell.FormulaR1C1 = Worksheets(i).Range("L3").Value
mais je voudrais aussi faire apparaître dans A3 la formule A3 ="feuil i"! L3

Si j'écris Worksheets(i + 1).Select : Range("A3").Select
ActiveCell.FormulaR1C1 = "='Feuil1'!RC" cela marche mais seulement avec la Feuil1

Quelle écriture fonctionne pour que cela marche avec Feuil2, Feuil3 etc... sans avoir à réécrire la routine?

Au sein d'une même feuille je n'ai aucun de problème pour utiliser la propriété formula
Range("E3").Select: Range("E3").Formula = "=B3+D3-C3"
Selection.AutoFill Destination:=Range("E3:E110")

tout cela est une question d'écriture et de vocabulaire informatique mais je tourne en rond. Pouvez vous m'aider?

A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
2 févr. 2013 à 16:01
Bonjour,

1er:
Range("A3").Select
ActiveCell.Formula = "='Feuil" & i & "'!L3"


2eme:
ActiveCell.FormulaR1C1 = "='Feuil" & i & "'!RC"

ou

ActiveCell.Formula = "='Feuil" & i & "'!RC"


Bonne suite
0
nulenvba Messages postés 6 Date d'inscription samedi 19 janvier 2013 Statut Membre Dernière intervention 15 février 2013
2 févr. 2013 à 16:34
merci
0