Discussion :

[braquin]

Bonjour,

Je poste sur ce forum car je n'arrive pas à étendre un calcul sur plusieurs feuilles d'un même classeur.
Je m'explique :

Je possède 6 feuilles appelées 2003, 2004, 2005, 2006, 2007, 2008.
Dans la case B23 se trouve l'année propre à chaque feuille.

Je rentre manuellement le chiffre 2003 dans la case B23 de la feuille 2003.
Je passe sur la feuille 2004, j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
Sub annee()
 
    Range("B23").Select
    ActiveCell.FormulaR1C1 = "='2003'!RC+1"
    Range("B24").Select
End Sub

La case B23 de la feuille 2004 deviens bien le chiffre 2004, mais l'exécution de la même macro sur les autres feuilles continu de me faire le calcul (2003 + 1)

Comment puis je donc étendre mon calcul sur les autres feuilles de mon classeur? Je pose la questions car par la suite je serai confronté à la réalisation de taux de variation entre toutes les années et je serais dès lors confronté au même problème.

Cordialement

[laetitia]

bonjour braquin le forum essai comme cela donne le nom de la feuille

Code :

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

1
2
3
4
5
6
7
8
Sub es()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Sheets
 ws.Activate
 [b23] = ws.Name
 Next ws
 End Sub

[braquin]

tout fonctionne,

merci pour la rapidité de réponse