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

aslan001 Messages postés 3 Statut Membre -  
yg_be Messages postés 24281 Statut Contributeur -
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

A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
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
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
yg_be Messages postés 24281 Statut Contributeur 1 584
 
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
aslan001 Messages postés 3 Statut Membre > yg_be Messages postés 24281 Statut Contributeur
 
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
yg_be Messages postés 24281 Statut Contributeur 1 584
 
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

Discussions similaires

Les feuilles Diddl
TiiteBaakaa -
soso -

8 réponses
Feuille de score belote
nulleeninfo -
brucine -

7 réponses
feuille excel de gestion belote
SiFaSiLa -
frank -

2 réponses
grille de points pour belote
portos54 -
antoine.let -

7 réponses