Discussion :

[marcoole]

Bonsoir à tous,

J'ai crée une formule toute simple : la valeur de ma case F12 de la feuille 2 de mon classeur est égale à la différence entre la valeur de D12 de la feuille 2 et de la valeur de la case D12 de la feuille 1 de mon classeur (voir ci-joint la macro de la formule pour deux feuilles fl1 et fl2 du classeur).

Mon classeur contenant 30 feuilles (fl1,fl2,...,fl30), l'idée serait d'automatiser cette formule à l'ensemble des feuilles de mon classeur. Ce qui me pose un problème, c'est le fait qu'une des valeurs de ma formule se trouve dans une feuille précédente.

Merci d'avance pour votre aide

Code :

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

1
2
3
Sub formule()
Range("F12").FormulaR1C1 = "=RC[-2]-'fl1'!RC[-2]
End sub

[mercatog]

Code :

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

1
2
3
4
5
6
7
Sub formule()
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Worksheets
   If Left(sh.Name, 2) = "fl" And Val(Mid(sh.Name, 3)) > 1 Then sh.Range("F12").FormulaR1C1 = "=RC[-2]-'fl" & Val(Mid(sh.Name, 3)) - 1 & "'!RC[-2]"
Next sh
End Sub

[marcoole]

merci