XL 2019 la liste des mes onglets !

[ph.vanne]

Bonjour a tous,
je voudrais simplement (!) pouvoir recuperer ,dans une feuille nommée "liste" , en colonne A , l'ensemble de mes nom d' onglets et en colonne B la valeur de la cellule D9 de chaque onglets ..
sachant que les onglets peuvent être supprimé , modifiés , créés ..
je n'ai rien trouver en "farfouillant" dans le forum
merci d avance

 

[JHA]

Bonjour à tous,

Un essai avec la fonction lire.classeur

JHA

 

[GALOUGALOU]

re ph.vanne, bonjour JHA, bonjour le forum
une autre solution par macro

Sub ListeDesOnglets()
Dim i As Integer
   Sheets("Liste").Range("A5").Select
    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(0, 1) = Sheets(i).Range("D9")
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub

cdt
galougalou

 

[ChTi160]

Bonjour le Fil

Sub ListeDesOnglets()
Dim i As Integer
'Peut être faut il aussi ajouter ceci 
Sheets("Liste").Range("A5").CurrentRegion.clearContents 
'on efface la plage pour recoller les nouvelles 'valeurs si feuilles ajoutées ou supprimées
   Sheets("Liste").Range("A5").Select
    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(0, 1) = Sheets(i).Range("D9")
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub

Bonne journée
Jean marie

 

[kiki29]

je n'ai rien trouvé en "farfouillant" dans le forum .....

Salut, une autre approche, sans VBA : ici , à adapter à ton contexte.

 

[ph.vanne]

bonjour ,
et merci a tous ! ce forum est toujours aussi créatif !!! un probleme = plusieurs solutions !!
j'ai finalement utilisé la solution de chti160 ,qui fonctionne parfaitement
une autre question ,si j'osais .. comment supprimer les feuilles dans VBA ? en effet ,après suppression dans le classeur ,elles apparaissent toujours quand on va dans l'explorateur de projet de vba ....??

 

[Eric C]

Bonjour le forum
Bonjour le fil

En théorie comme en pratique, une feuille supprimée dans un classeur n'apparaît plus dans le projet Vba ??
Bonne journée à toutes & à tous
@+ Eric c

 

[Eric C]

sinon, pour effacer une feuille par Vba :

Sub EffaceFeuille()
     Sheets("feuilX").Delete
 End Sub

   Ou sans demande de confirmation
  
   Sub EffaceFeuille()
  Application.DisplayAlerts = False
    Sheets("feuilX").Delete
    Application.DisplayAlerts = True
End Sub

@+ Eric c

 

[Phil69970]

Bonjour à tous

Comme le dis Eric:

En théorie comme en pratique, une feuille supprimée dans un classeur n'apparaît plus dans le projet Vba

Une feuille supprimé est bien une feuille ..... supprimé par contre une feuille masquée est bien toujours présente dans le classeur et VBA y compris si elle est "veryhidden" donc invisible dans le classeur (mais présente) et visible dans VBA

@Phil69970