INDIRECT - actualiser si modification de la source

Bonjour,

Dans une feuille "cible", je récupère les valeurs de la feuille précédente par :

Code:

---

1 2 3

Function NomFeuilPrec() As String If Not ActiveSheet.Index = 1 Then NomFeuilPrec = Worksheets(ActiveSheet.Index - 1).name End Function

---

et la formule :

Citation:

---

=INDIRECT("'"&NomFeuilPrec()&"'!L"&LIGNE(A7))

---

Si je modifie une valeur de la feuille précédente, les formules de la feuille cible ne s'actualisent pas (sauf bien sûr en appuyant sur la touche F9)

Question : Comment actualiser automatiquement les formules ? Faut-il ajouter une procédure Worksheet_Change(ByVal Target As Range) ? Et y ajouter DoEvents ??

En vous remerciant par avance pour vos lumières,
Cdt

Bonjour jpma75

Tu peux an ajoutant

Code:

---

Application.Volatile

---

Code:

---

1 2 3 4

Function NomFeuilPrec()AsString Application.Volatile If Not ActiveSheet.Index = 1 Then NomFeuilPrec = Worksheets(ActiveSheet.Index - 1).name EndFunction

---

J'espère qu'il n'y aura pas trop d'effets de bord ;)

A+

Bonjour Bruno,

Merci pour ta proposition que j'ai appliquée mais qui (manifestement) n'actualise pas les formules.

Cdt

Bonsoir jpm475

En fait, après test, il y a une grosse erreur dans la fonction initiale 🤔

En effet, si sur la feuille 3 tu as une cellule avec ta fonction et que sur la feuille 2 tu fais une modification
et bien la feuille calculée est la feuille 1 car la feuille active est la 2

Voici donc un code qui fonctionnera parfaitement 😜

Code:

---

1 2 3 4 5 6 7 8

Function NomFeuilPrec() As String Dim NomF As String ' Exécute la fonction lors de tout recalcul Application.Volatile ' Récupérer le nom de la feuille qui appelle la fonction NomF = Application.Caller.Worksheet.Name ' Déterminer la feuille précédente If Not ActiveSheet.Index = 1 Then NomFeuilPrec = Worksheets(Sheets(NomF).Index - 1).Name End Function

---

A+

Bonsoir Bruno,

Magnifique !!

Merci beaucoup !

Cdt
jpma75