Incrémenter des cellules depuis la feuille précédante

aslan001 Messages postés 3 Statut Membre -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je m'amuse depuis quelques jours avec les Macros du programme Excel mais je n'ai pas trouvé de réponses à cette question

Comment pouvons nous incrémenter du contenu de cellules d'une page précédente avec un Macros. L'idée serai de pouvoir toujours additionner le contenu de la cellule de la feuille avant celle qui est active.

Merci de votre aide à tous

1 réponse

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    Exemple: 
    Option Explicit
Sub aslan001()
Dim cell As Range
For Each cell In Sheets("B").UsedRange
    cell = cell + Sheets(Sheets("B").Index - 1).Cells(cell.Row, cell.Column)
Next cell
End Sub
    bon amusement!
    0
    1. aslan001 Messages postés 3 Statut Membre
       
      Pour commencer, merci de ta réponse si rapide.

      Par contre, je ne suis pas trop sur de la formule. Je cherche quelque chose chose qui peut m'aider à, par exemple, si je travail dans la feuille 14, il me cherche les info de la feuille 13, par contre le lendemain, je travail sur la feuille 15 et lors de mes calcul, il me cherche les info de la feuille 14.
      0
    2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      Pour t'amuser, tu peux adapter mon exemple, qui utilisait la feuille B comme feuille courante.
      Ceci utilise la feuille active comme feuille courante: 
      Option Explicit
Sub aslan001()
Dim cell As Range
Dim cursh As Worksheet, prevsheet As Worksheet
Set cursh = ActiveSheet
Set prevsheet = Sheets(cursh.Index - 1)
For Each cell In cursh.UsedRange
    cell = cell + prevsheet.Cells(cell.Row, cell.Column)
Next cell
End Sub
      Tu préfères ainsi?
      0
      1. aslan001 Messages postés 3 Statut Membre > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
         
        Je préfère ainsi. par contre, je vais essayer de simplifier ma formule, je veux essayer de prendre juste la valeur de la cellule M47 de la page précédente pour pouvoir l'ajouter dans la feuille active. Que devrais-je faire pour que sa fonctionne ?
        0
    3. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      Tu veux ajouter la valeur de la cellule M47 de la page précédente à toutes les cellules de la feuille active?
      Tu as réussi à comprendre le code que je t'ai proposé? Tu ne vas pas t'amuser longtemps si tu ne comprends pas, Qu'en penses-tu?
      Je te suggère d'essayer d'adapter le code que j'ai proposé au nouvel exercice que tu décris. D'accord?
      0