ajouter 1 à cellule de la feuille précédente etc ... Résolu/Fermé

Question

Bonjour,
Je souhaite ajouter 1 à la cellulel A1 de la feuille 1 sur la cellule A1 de la feuille 2, et ainsi de suite
Je n'ai pas trouvé de macro correspondante et ne sais pas en créer tout seul.
Merci d'avance

Gyrus · Answer

Bonjour,

Formule dans Feuil2!A1 :
=Feuil1!A1 +1

A+

roroberto · Answer

Merci pour la réponse rapide.
La formule fonctionne bien sur la feuille2 mais pas sur les autres.
Quand j'ai 50 en A1 de feuille1 je retrouve bien 51 en A1 de feuille2 et 51 également en feuille3 (au lieu de 52) 51 aussi 51sur les autres.
En fait la formule, lors de la copie sur les feuilles, fait toujours référence à la feuille1 et non la feuille précédente à celle sur laquelle on la copie.
comment faire ?
Merci

Gyrus · Answer

Si tu as un grand nombre de feuilles, tu peux utiliser cette macro :
Sub Numerotation()Dim Ws As WorksheetDim Nom As String    Nom = Worksheets("Feuil1").Name    For Each Ws In Worksheets        If Ws.Name <> "Feuil1" Then            Ws.Range("A1").Formula = "=" & Nom & "!A1+1"            Nom = Ws.Name        End If    Next WsEnd Sub
A+

ccm81 · Answer

Bonjour à tous les deux

Un exemple
 http://www.cjoint.com/c/FJFrNbZ6rgn

Cdlmnt

roroberto · Answer

Merci à vous deux.
Impec
Bonne journée

Ajouter 1 à cellule de la feuille précédente etc ...

5 réponses

Discussions similaires