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