[Résolu]Automatisé le nom d'une feuille via une cellule sans passer par VBA

[mouaadiib]

Bonjour,

Alors voici mon chtit problème.
J'essaye d'automatiser des calculs et afin de palier au futur j'aimerai savoir si c'est possible d'automatiser mes calculs en pointant sur deux cellules qui auront le même nom que les feuilles
Je m'explique.
Actuellement, toutes mes feuilles se nomment : 2012, 2011, 2010 -> cela ne changera pas.

Création de deux cellules qui me permettront d'avoir du coup le nom des feuilles
Cellule A1 par exemple =ANNEE(AUJOURDHUI()) = 2012 today
Cellule B2 par example =ANNEE(AUJOURDHUI())-1 =2011

Ensuite j'ai donc des calculs qui se font actuellement comme cela
=SI(ET('2011'!A3=1;'2011'!A3<>"");1;0)
=SI(ET('2012'!A3<>1;'2012'!A3<>"");1;0)

J'aimerai donc remplacer :'2011'! par la cellule B2 pour l'année précédente et '2012'! par ma cellule A1

J'espère avoir été clair.
Merci pour vos futurs réponses et pour votre aide.

mouaadib

 

[Gorfael]

Re : Automatisé le nom d'une feuille via une cellule sans passer par VBA

Salut mouaadiib et le forum
Ce que je crois comprendre :
A1 : année en cours
B2 : année précédente
et tu veux remplacer tes années en "dur" par la valeur contenue dans ces cellules

=SI(indirect(B2 & "!A3")=1);1;0) 
=SI((indirect(A1 & "!A3")<>1)*(indirect(A1 & "!A3")<>"");1;0)

Attention : pas testé !
Indirect() transforme un texte en référence comprise par Excel
Si une cellule est égale à une valeur, elle est forcément différente du vide
La fonction ET peut être avantageusement remplacée par la multiplication : 0=Faux, tout ce qui n'est pas faux est vrai (ou si c'est Excel qui fournit, 1=Vrai) => la table de vérité de la multiplication et de ET sont les mêmes :
0*0/Faux ET Faux - 0*1/Faux ET Vrai => donnent 0 ou Faux
seul 1*1/Vrai ET Vrai donnent 1 ou Vrai
A+

 

[mouaadiib]

Re : Automatisé le nom d'une feuille via une cellule sans passer par VBA

Merci Gorfael pour ta réponse mais elle est en partie correcte pour mon problème
=SI((INDIRECT($B$1 & "!A3")=1);1;0)

avec cette formule si j'essaye de la descendre/coller(je ne sais pas le terme) pour avoir une suite comme quand on mets 1 2 et on tire on a la suite.
J'aimerai que cela fasse pareil.
Or avec cette formule j'ai toujours la cellule A3 vu que c'est entre "" je pense, or ce que j'aimerai c'est que lorsque je tire en descedant vers le bas j'ai respectivement:
C1 ->=SI((INDIRECT($B$1 & "!A3")=1);1;0)
C2 ->=SI((INDIRECT($B$1 & "!A4")=1);1;0)
C3 ->=SI((INDIRECT($B$1 & "!A5")=1);1;0)

.....voili voilou
Merci.

Modification à 14h09:
ALors je viens d'essayer une autre formule qui fonctionne mais qui pose le même problème que cité au dessus
=INDIRECT(ADRESSE(3;1;;;$A$1))

 

[chris]

Re : Automatisé le nom d'une feuille via une cellule sans passer par VBA

Bonjour

=SI(ET(INDIRECT($A$1&"!A"&LIGNE())<>1;INDIRECT($A$1&"!A"&LIGNE())<>"");1;0)

NB : je suis partie de la formule en A3

 

[mouaadiib]

Re : Automatisé le nom d'une feuille via une cellule sans passer par VBA

Merci chris.
C'est exactement ça.
Sinon pour les autres au cas où, il faut bien prévoir que par rapport à la ligne ou se trouve votre calcul c'est à partir de celle là que tous les autres découleront.
je sais pas si j'ai été clair, sinon il faut demander au trouveur de la solution pour plus d'explication.
En tous les cas thanks.