XL 2016 Rafraîchir la liste des onglets du classeur (LIRE.CLASSEUR(1))

Dranreb

XLDnaute Barbatruc

• 6 Septembre 2019

• #2

Bonjour.
Moi je supprimerais les formules et mettrais ce code dans Feuil1 (LISTE) :

VB:

Option Explicit
Private Sub Worksheet_Activate()
   Dim TNF(), L As Long
   ReDim TNF(1 To ThisWorkbook.Worksheets.Count, 1 To 1)
   For L = 1 To UBound(TNF): TNF(L, 1) = ThisWorkbook.Worksheets(L).Name: Next L
   With Me.ListObjects(1)
      If L <= .ListRows.Count Then .ListRows(L).Range.Resize(.ListRows.Count - L + 1).Delete xlShiftUp
      .DataBodyRange.Resize(UBound(TNF, 1)).Value = TNF
      End With
   End Sub

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Septembre 2019

• #3

Bonjour DionysOs, Bernard, bonjour le forum,

Autre méthode. J'ai créé un nom, LIST_ONG, dans le gestionnaire de noms avec la formule dynamique : =DECALER(LISTE!L3C1;;;NBVAL(LISTE!C1)-2).

 

Vote positif 0 Vote négatif

dionys0s

XLDnaute Impliqué

• 6 Septembre 2019

• #4

Bonjour Bernard, bonjour Robert.

Bernard, merci pour votre solution, même si je souhaitais éviter de passer par du VBA.

Robert, je n'ai pas observé de rafraîchissement des valeurs lors de modifications avec votre suggestion.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Septembre 2019

• #5

dionys0s à dit:

même si je souhaitais éviter de passer par du VBA

Cliquez pour agrandir...

Vous avez bien tenté de passer par du VBA avec vos procédure du module ThisWorkbook !
Ce qui ne conduit pas Excel à conclure que les formules doivent être réévaluées puisque leurs antécédents ne changent pas.

 

Vote positif 0 Vote négatif

dionys0s

XLDnaute Impliqué

• 6 Septembre 2019

• #6

Dranreb à dit:

Vous avez bien tenté de passer par du VBA avec vos procédure du module ThisWorkbook !

Cliquez pour agrandir...

Effectivement. Pour du code aussi générique, il fallait bien tenter le coup.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Septembre 2019

• #7

Bonjour dionys0s, Bernard, Robert,

Comme toutes les fonctions macros Excel 4.0 LIRE.CLASSEUR(1) ne se recalcule pas automatiquement.

Mais on peut la rendre volatile et la recalculer par la touche F9 en remplaçant LIRE.CLASSEUR(1) par LIRE.CLASSEUR(1)&T(ALEA())

A+

 

Vote positif 0 Vote négatif

dionys0s

XLDnaute Impliqué

• 9 Septembre 2019

• #8

Bonjour job75

Merci beaucoup pour cette astuce ! C'est brillant !

 

Vote positif 0 Vote négatif