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

[Pierre Fauconnier]

Bonjour

Tant qu'à utiliser VBA, utilise un fonction qui te renvoie directement la valeur de la cellule

Code :

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

1
2
3
Function A1MoisPrecedent()
  A1MoisPrecedent = Worksheets(ActiveSheet.Index - 1).Range("a1")
End Function

(A coller dans un module standard de ton classeur

Tu utiliseras cette fonction de la manière suivante

=A1+A1MoisPrecedent()

Pour que cela fonctionne, j'ai supposé que tes feuilles se suivaient dans l'ordre des mois de l'année (janvier, février, ...)


Cela étant, il est probable que tu aies, dans chaque feuille, une cellule identifiant le mois ou un jour du mois. Dès lors, tu peux t'en tirer avec une formule.

Dans l'exemple suivant, j'ai mis une date en C1 dans chaque feuille, reprenant le 1 du mois de la feuille concernée.

=A1+INDIRECT(TEXTE(DATE(2010;MOIS(C1)-1;1);"mmmm") & "!a1")

[lenul78570]

Bonjour Isabelle et Pierre

Merci Isabelle de tes précieux conseils, j'ai suivi tes indications et cela fonctionne à merveille.
Merci à toi aussi Pierre, mais la proposition d'Isabelle correspond plus à mon besoin car je dois appliquer cette méthode à un très grand nombre de cellules
Bonne journée
Lenul