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

Fermé

aslan001 Messages postés 3 Date d'inscription mercredi 14 décembre 2016 Statut Membre Dernière intervention 14 décembre 2016 - 14 déc. 2016 à 19:48
yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 - 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

A voir également:

Incrémenter des cellules depuis la feuille précédante
Excel additionner des cellules - Guide
Verrouiller des cellules excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Aller à la ligne dans une cellule excel - Guide
Feuille a5 - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481
Modifié par yg_be le 14/12/2016 à 20:10

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 mercredi 14 décembre 2016 Statut Membre Dernière intervention 14 décembre 2016
14 déc. 2016 à 21:11

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 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481
14 déc. 2016 à 21:45

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 mercredi 14 décembre 2016 Statut Membre Dernière intervention 14 décembre 2016 > yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024
14 déc. 2016 à 22:14

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 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481
14 déc. 2016 à 22:51

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

Reporter valeur sur autre feuille avec critere

Feuille de score belote

Discussions similaires

Newsletters