Discussion :

[jpma75]

Bonjour,

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

Code :

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

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

et la formule :

=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

[Invité]

Bonjour jpma75

Tu peux an ajoutant

Code :

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

Application.Volatile

Code :

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

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+

[jpma75]

Bonjour Bruno,

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

Cdt

[Invité]

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 :

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

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+

[jpma75]

Bonsoir Bruno,

Magnifique !!

Merci beaucoup !

Cdt
jpma75