Macro pour toutes les feuilles d'un classeur

[Pierre67]

Bonjour aux spécialistes

j'ai un classeur avec 50 feuilles (de structure identique)

comment peut-on afficher dans chaque cellule A1 (de chaque feuille, le nombre de ligne du tableau présent dans ladite feuille ?
Mon VBA étant trop faible ?
merci à tous

 

[Robert]

Re : Macro pour toutes les feuilles d'un classeur

Bonjour Pierre, bonjour le forum,

Une proposition :

Sub Macro1()
Dim s As Worksheet
For Each s In Sheets
    s.Range("A1").Value = s.UsedRange.Rows.Count
Next s
End Sub

 

[Pierre67]

Re : Macro pour toutes les feuilles d'un classeur

merci pour la rapidité de la réponse et si je souhaite que cette macro se lance àl'ouverture du fichier ?

 

[Robert]

Re : Macro pour toutes les feuilles d'un classeur

Bonjour Pierre, bonjour le forum,

Place la macro ci-dessous dans le composant ThisWorkbook par Visual Basic Editor :

Private Sub Workbook_Open()
Dim s As Worksheet
For Each s In Sheets
    s.Range("A1").Value = s.UsedRange.Rows.Count
Next s
End Sub

 

[Pierre67]

Re : Macro pour toutes les feuilles d'un classeur

exaspérent les gens qui savent tout aussi vite
Merci Cher mai

 

[Robert]

Re : Macro pour toutes les feuilles d'un classeur

Bonjour Pierre, bonjour le forum,

Je disais exactement comme toi quand j'ai connu ce forum... Et tu n'es pas au bout de tes surprises quand tu vas découvrir les balèzes de chez balèze qui sévissent ici...