Incrémenter une cellule de feuille en feuille

bonjour,

J'aimerais faire dans une cellule une sorte de compteur:

je m'explique:

Feuil1!A1=1

Feuil2!A1=2

Feuil3!A1=3

etc

Mais pas forcément en commençant par un.. par exemple pour des numéros de série qui se suivent.. suis je obligée de créer une liste ??

Bonjour,

Vous pouvez insérer la macro suivante.

Sub indice()

Dim i As Integer

For i = 1 To Worksheets.Count

Worksheets(i).Range("a1").Value = i

Next i

End Sub

Pour insérer la macro vous faites:

Alt + F11 - Insertion module - dans le module qui s'ouvre vous insérez la macro ci-dessus.

Puis dans la feuille de calcul vous faites:

Outils - Macro - Macros, et vous cliquez sur la macro

ps: Pour les n° de série qui se suivent, disons à partir de 10, vous rajoutez en troisième et 4ème ligne:

Dim s As Integer

s = 9

puis à la place de Worksheets(i).Range("a1").Value = i, vous indiquez Worksheets(i).Range("a1").Value = s+1

Bonjour, Salut gauguin,

Une formule à essayer dans la cellule A1 de chaque feuille, à condition que les feuilles se prénomment comme Feuil1,Feuil2,Feuil3 etc et le classeur soit déjà enregistré . :

=DROITE(CELLULE("nomfichier"))