Simplifier formule

[CAO]

Bonjour
J'ai un classeur de 53 onglets (1 par semaine ) et de 680 lignes et des colonnes de A à L
De H à L des valeurs numériques dont je calcule les données suivantes :
sur un 1 er onglet Synthése1 le MIn pour 1 semaine et pour chacune de mes 680 lignes(ex MIN('10'!$H8:$L8))
2 eme onglet Synthése2 le MIn pour 2 semaines et pour chacune de mes 680 lignes
3 eme onglet Synthése3 le MIn pour 4 semaines et pour chacune de mes 680 lignes
4 eme onglet Synthése3 le MIn pour 1 trimestre et pour chacune de mes 680 lignes
etc
la formule de Min dans les tableau synthéses est la suivante
MIN('10:14'!$H8:$L8)) (pour 4 semaines)
Seulement je dois changer les numéros de semaine toutes les semaines (La Palice..) et dans
chacun de mes onglets de synthèse ce qui est trés long et risque d'erreur
ne peux t-on pas créer un onglet table de ce type:

NOM periode
SEM 10
Mois 10:15
Qinz 10: 12
Trim 2 :15
et remplacer les formules comme suit
MIN(Mois!$H8:$L8))

Merci de votre aide

 

[EricS]

Bonjour,

essaie d'utiliser Indirect

exemple :

=INDIRECT(A1&'!A1') sur la feuil1 en cellule C1
avec feuil2 en cellule A1

affiche le contenu de feuil2!A1

A+

 

[cao]

Merci de ta réponse
Mais la formule sur plusieurs onglets ne marche pas
cela donne
si en A1 je mets
'7:10' pour indiquer que je veux les onglets de 7 à 10
Réponse
MIN(INDIRECT(A1&'!h8:l8'))-->#REF!

Voila la réponse que j'obtiens
Merci encore de ton aide

 

[pat1545.]

Salut ,

intéressant problème !!

Je vais suivre le fil car j'ai eu besoin de ça et jamais trouvé la soluce non plus

Patrick

 

[pat1545.]

Salut

=MIN(INDIRECT((A1&'!h8:L8'));INDIRECT((B1&'!h8:L8')))

fonctionne sur 2 feuilles et semble t il est conditionné par les 30 posibilité de min()


Patrick

 

[JeanMarie]

Bonsoir

Il y a pas beaucoup de solutions pour résoudre ce problème, INDIRECT n'accepte pas les feuilles multiples.

Néanmois, il y a une solution en utilisant du VBA, dans un module, coller cette function

Public Function Calcultexte(vCell As String) As Double
    Calcultexte = Evaluate(vCell)
End Function

Dans la cellule au lieu d'utiliser =MIN(INDIRECT(A1&'!h8:l8)), tu écris
=Calcultexte('MIN('&A1&'!h8:l8)')

@+Jean-Marie

Message édité par: JeanMarie, à: 06/02/2006 07:31