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

aslan001 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention - 14 déc. 2016 à 22:51

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

Afficher la suite

A voir également:

Incrémenter des cellules depuis la feuille précédante
Verrouiller cellule excel sans verrouiller la feuille - Guide
Comment faire un livret avec des feuilles a4 - Guide
Formule excel pour additionner plusieurs cellules - Guide
Bruler feuille de laurier - Guide
Feuille de pointage excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 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!

aslan001 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

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.

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 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?

aslan001 Messages postés 3 Date d'inscription Statut Membre Dernière intervention > yg_be Messages postés 23541 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 ?

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 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?

Discussions similaires

Les feuilles Diddl

Feuille de score belote

feuille excel de gestion belote

comment avoir une page blanche pour écrire

Votre réponse

Discussions similaires