Inserer automatiquement le nom de la feuille dans une formule se trouvant sur la page
12 réponses
Ramses Seth
Bonjour
Après avoir longuement regardé votre forum, j'ai trouvé quelques
explications mais pas pour faire "exactement" ce que je souhaite sans
utiliser Visual Basic.
En effet j'ai une feuille pour chaque semaine, identique en format et
présentation. Ma formule est la suivante
C1=Somme(Feuil1:Feuil10!A1) pour la feuille 10. C'est la même formule pour
la feuille 13 qui donne C1=Somme(Feuil:Feuil13!A1) sauf que c'est le numéro
de la feuille sur laquelle se trouve la formule qui change. Jusque là, je
sais faire. Le problème est que j'ai des dizaines de formules de ce genre
par feuille et ce n'est pas toujours moi qui fait les formules, d'où des
erreurs que je pourrais ne pas voir. Existe t-il une formule pour spécifier
à la formule de prendre la feuille sur laquelle elle se trouve, ce qui me
permettrait de faire une copie de la dernière semaine pour la semaine en
cours, avec la formule mise à jour sans avoir le #ref!.???
P.S: je ne peux créer toutes mes feuilles à l'avance car je rajoute parfois
des colonnes selon les mois où les périodes.
Si vous pouviez m'éclairer, cela fait 3 mois que je cherche en vain avec
l'aide d'Excel .
J'ai essayé vos différents formules avec Visual Basic mais lorsque je copie colle une nouvelle feuille et que je la calcule toutes les cellules des autres pages utilisant la même fonction sont erronées ou bien il faut les recalculer ou bien sont toutes identiques... Je crois que je n'y arriverais jamais... vivement une nouvelle version d'Excel !!
;-)
R.S.
Merci encore à ceux qui m'ont répondu.
J'ai essayé vos différents formules avec Visual Basic mais
lorsque je copie colle une nouvelle feuille et que je la
calcule toutes les cellules des autres pages utilisant la
même fonction sont erronées ou bien il faut les recalculer
ou bien sont toutes identiques... Je crois que je n'y
arriverais jamais... vivement une nouvelle version
d'Excel !!
J'ai essayé vos différents formules avec Visual Basic mais lorsque je copie colle une nouvelle feuille et que je la calcule toutes les cellules des autres pages utilisant la même fonction sont erronées ou bien il faut les recalculer ou bien sont toutes identiques... Je crois que je n'y arriverais jamais... vivement une nouvelle version d'Excel !!
;-)
R.S.
Merci encore à ceux qui m'ont répondu.
Frédéric Sigonneau
Bonsoir,
En effet, en ce qui concerne ma proposition, je dirais que je l'ai insuffisamment testée avant de la poster :) Essaye avec cette version modifiée, ça devrait mieux correspondre à ton attente :
Function AutoConso3D(PremièreFeuille As String, Cellule As String) Dim FeuilleFin$ Application.Volatile FeuilleFin = Application.Caller.Parent.Name AutoConso3D = Evaluate("SUM('" & PremièreFeuille _ & ":" & FeuilleFin & "'!" & Cellule & ")") End Function
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
J'ai essayé vos différents formules avec Visual Basic mais lorsque je copie colle une nouvelle feuille et que je la calcule toutes les cellules des autres pages utilisant la même fonction sont erronées ou bien il faut les recalculer ou bien sont toutes identiques... Je crois que je n'y arriverais jamais... vivement une nouvelle version d'Excel !!
;-)
R.S.
Merci encore à ceux qui m'ont répondu.
Bonsoir,
En effet, en ce qui concerne ma proposition, je dirais que je l'ai
insuffisamment testée avant de la poster :)
Essaye avec cette version modifiée, ça devrait mieux correspondre à ton attente
:
Function AutoConso3D(PremièreFeuille As String, Cellule As String)
Dim FeuilleFin$
Application.Volatile
FeuilleFin = Application.Caller.Parent.Name
AutoConso3D = Evaluate("SUM('" & PremièreFeuille _
& ":" & FeuilleFin & "'!" & Cellule & ")")
End Function
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
J'ai essayé vos différents formules avec Visual Basic mais
lorsque je copie colle une nouvelle feuille et que je la
calcule toutes les cellules des autres pages utilisant la
même fonction sont erronées ou bien il faut les recalculer
ou bien sont toutes identiques... Je crois que je n'y
arriverais jamais... vivement une nouvelle version
d'Excel !!
En effet, en ce qui concerne ma proposition, je dirais que je l'ai insuffisamment testée avant de la poster :) Essaye avec cette version modifiée, ça devrait mieux correspondre à ton attente :
Function AutoConso3D(PremièreFeuille As String, Cellule As String) Dim FeuilleFin$ Application.Volatile FeuilleFin = Application.Caller.Parent.Name AutoConso3D = Evaluate("SUM('" & PremièreFeuille _ & ":" & FeuilleFin & "'!" & Cellule & ")") End Function
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
J'ai essayé vos différents formules avec Visual Basic mais lorsque je copie colle une nouvelle feuille et que je la calcule toutes les cellules des autres pages utilisant la même fonction sont erronées ou bien il faut les recalculer ou bien sont toutes identiques... Je crois que je n'y arriverais jamais... vivement une nouvelle version d'Excel !!
