lister les onglets existants

[Yaka1975]

Salut à tous !

Petit soucis d'efficacité :
Sur la feuille récap d'un fichier, je voudrais lister les onglets existants de ce même fichier (+ màj auto évidemment si ajout d'u nouvel onglet... et "cherry on the cake" en excluant l'onglet récap !).

Queslqu'un a une idée?

merci du coup de main!

 

[pierrejean]

Re : lister les onglets existants

bonjour Yaka1975

A mettre dans le module de la feuille Recap

Private Sub Worksheet_Activate()
ligne = 1
 Range("A1:A" & Range("A1").End(xlDown).Row).ClearContents
 For n = 1 To Sheets.Count
   If Sheets(n).Name <> "Recap" Then
     Cells(ligne, 1) = Sheets(n).Name
     ligne = ligne + 1
   End If
 Next n
End Sub

 

[Yaka1975]

Re : lister les onglets existants

Merci Pierrejean !!

efficace et rapide !! ca marche impec'

Comment dois-je faire si je veux exclure d'autres feuilles... comment les insérer dans le code ? (je suis un vrai bleu en VB !)

 

[pierrejean]

Re : lister les onglets existants

Re

Private Sub Worksheet_Activate()
exclure = "Recap,Feuil2,"
ligne = 1
 Range("A1:A" & Range("A1").End(xlDown).Row).ClearContents
 For n = 1 To Sheets.Count
   If InStr(exclure, Sheets(n).Name & ",") = 0 Then
     Cells(ligne, 1) = Sheets(n).Name
     ligne = ligne + 1
   End If
 Next n
End Sub

 

[Yaka1975]

Re : lister les onglets existants

Un petit dernier pour la route... comment commencer la liste en A3 au lieu de A1.. j'ai tenté de le modfier dans le code... mais sans autre effet que le crasher !

Sinon, l'exclusion marche très bien.

Tu preferes les bonbons, le chocolat, ou une bonne bouteille 🙂

 

[pierrejean]

Re : lister les onglets existants

Re

......
ligne=3
......

les bonbons le chocolat(noir) et les bonnes bouteilles !!!
Non je plaisante