Vous souhaiterez peut-être un moyen de suivre le nombre de fois qu’une feuille de calcul particulière est utilisée. Il existe de nombreuses façons d’accomplir cela. Un moyen simple consiste simplement à stocker le décompte dans la feuille de calcul elle-même.

Cliquez avec le bouton droit sur un onglet de feuille de calcul, puis choisissez Afficher le code dans le menu contextuel. Excel affiche l’éditeur Visual Basic, où vous devez coller le code suivant:

Private Sub Worksheet_Activate()

Range("A1").Select 'customize Range     ActiveCell = ActiveCell + 1     Range("B1") = "times opened" 'customize Range End Sub

Ce code incrémente la valeur de la cellule A1 chaque fois que la feuille de calcul est activée. Vous pouvez modifier les emplacements des cellules où la macro écrit ses informations, en fonction de vos besoins.

Une approche plus approfondie consiste à créer une macro qui incrémente les références nommées dans le classeur. Considérez la macro suivante:

Function IncrementEventCounter(sName As String, sht As Object)

On Error Resume Next     If sht.Names(sName) Is Nothing Then _       ThisWorkbook.Names.Add "'" & sht.Name & "'!" & sName, "1", False     On Error GoTo 0     With ThisWorkbook.Names("'" & sht.Name & "'!" & sName)

.RefersTo = Val(Mid(.Value, 2)) + 1     End With End Function

Cette fonction est conçue pour être appelée à partir d’une macro différente, déclenchée par l’événement qui devrait entraîner l’incrémentation du compteur d’utilisation.

Par exemple, si vous souhaitez garder une trace de chaque fois que la feuille de calcul est activée, vous utiliserez la macro suivante dans le cadre de l’objet ThisWorkbook:

Private Sub Workbook_SheetActivate(ByVal sh As Object)

IncrementEventCounter "Activated", sh End Sub

La macro incrémente un compteur nommé «Activé» pour la feuille de calcul. Il le fait en appelant la macro IncrementEventCounter, avec le nom du compteur et le nom de la feuille de calcul. Si, à la place, vous vouliez compter le nombre de fois qu’une feuille de calcul a été modifiée, vous pouvez utiliser la macro suivante dans le cadre de l’objet ThisWorkbook:

Private Sub Workbook_SheetChange(ByVal sh As Object, _   ByVal Target As Excel.Range)

IncrementEventCounter "Changed", sh End Sub

La seule différence entre cette macro et la précédente est qu’elle incrémente un compteur nommé «Modifié». Pour voir les valeurs des compteurs, entrez simplement une formule dans une cellule qui fait référence au compteur. Par exemple, vous pouvez entrer = Changé pour voir la valeur du compteur Changé, ou = Activé pour voir la valeur du compteur Activé. La valeur de chaque compteur différera d’une feuille à l’autre, puisque les compteurs sont maintenus feuille par feuille.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2497) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Counting_the_Times_a_Worksheet_is_Used [Compter les fois qu’une feuille de travail est utilisée].