Discussion :

[lenul78570]

Bonjour à Tous

Je ne sais pas si je suis au bon endroit pour poser cette question, si je me suis trompé de forum, merci de m'indiquer le bon !

J'ai un classeur qui comprend 12 feuilles (janvier à décembre).
Pour le mois de février la cellule A2 doit afficher le résultat de janvier! A2+février!A1.
Donc sur la feuille "février" en A2, j'ai entré la formule suivante :
=A1+janvier!A2.
Avec ce principe sur la feuille "mars", je dois remplacer "janvier!" par "février!" et ainsi de suite sur toutes mes feuilles.
Pour éviter cette correction existe-il une formule du type:
=A1+feuille(-1)A2 ?
Vous remerciant de votre aide
Lenul

[sabzzz]

bonjour Lenul,

je ne voie qu'une solution c'est de faire une fonction personnalisée (vba)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A1+INDIRECT(FeuillePrécédente()&"!A2")

si la formule est mit sur la premiere feuille la formule retourne #VALEUR!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function FeuillePrécédente() As String
Application.Volatile
FeuillePrécédente = ActiveSheet.Previous.Name
End Function

edit: attention! les feuilles mois ne doivent pas etre déplacées sinon il y aura des erreurs de calcul.

[lenul78570]

Bonjour Isabelle,

Merci pour ton aide.

j'ai donc mis ta formule en A2,sur feuille "février":

=A1+INDIRECT(FeuillePrécédente()&"!A2")

Cette formule me renvoi ; #NOM?

En commentaire sur cette erreur j'ai :
"Cette formule contient du texte non reconnu"

Tu vois pourquoi?...

[sabzzz]

re bonjour,

à quel place as-tu coller la Function ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function FeuillePrécédente() As String
Application.Volatile
FeuillePrécédente = ActiveSheet.Previous.Name
End Function

[lenul78570]

Oups...

Je croyais que c'était la fonction OU la formule..............
Je ne sais pas ou placer cette fonction!
Lenul

[sabzzz]

re bonjour,

je sais que cela peut paraître un peu compliqué pour la première fois, mais rassure toi, ce n'est pas si pire que ça, et tout un monde de possibilité s'ouvre à toi.

Excel donne accès à 2 logiciels distincts, tous 2 capables d’interagir avec les objets d’Excel. le premier est Excel lui-même, le second est VBA.

une fonction personnalisée doit être mit dans un module de visuel basic,
pour accéder à la fenêtre visuel basic appuis sur les touches Alt+F11

regarde bien comment est structuré l’arborescence (à gauche)
il y a le nom VBAProject(Nom de ton classeur) c'est comme ça que l'on nomme les projets associés au classeur et sous ce nom il y a le nom des feuilles du classeur, et en dernier le nom ThisWorkBook.

pour insérer un module fait un clic droit sur le VBAProject(Nom de ton classeur) et sélectionne « Insértion, Module »

et tu colles la function suivante sur la page à droite, tu fermes visuel basic et tu es de retour sur le classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function FeuillePrécédente() As String
Application.Volatile
FeuillePrécédente = ActiveSheet.Previous.Name
End Function

ta nouvelle fonction sera disponible à partir du menu, Insertion, Fonction, catégorie : Personnalisées

ps/ à partir de vba, si tu fais Fichier, Enregistrer cela enregistre le VBAProject actif et son classeur,
idem si tu fait Fichier, Enregistrer à partir du classeur cela enregistre le classeur et son VBAProject.

suggestion de lecture :
http://heureuxoli.developpez.com/off...age=page3#L3-B