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

Résolu
roroberto Messages postés 1 Statut Membre -  
 roroberto -
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

5 réponses

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Formule dans Feuil2!A1 :
    =Feuil1!A1 +1

    A+
    0
  2. roroberto
     
    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
    0
  3. Gyrus Messages postés 3360 Statut Membre 526
     
    Si tu as un grand nombre de feuilles, tu peux utiliser cette macro :
    Sub Numerotation()
    Dim Ws As Worksheet
    Dim 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 Ws
    End Sub

    A+
    0
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour à tous les deux

    Un exemple
    http://www.cjoint.com/c/FJFrNbZ6rgn

    Cdlmnt
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. roroberto
     
    Merci à vous deux.
    Impec
    Bonne journée
    0