[VBA] Récupérer le titre des onglets dans une cellule

[bgump1]

Bonjour,

J'aimerais faire un programme sous VBA qui me récupère les intitulés des onglets Excel dans la cellule A1 de chaque onglet. Je précise que je souhaite un programme capable aussi de traiter des noms de feuilles autres que "Sheet1" (pour ne pas utiliser de Range("Sheet" & i )).

Par exemple, on prendra comme nom d'onglet "foot", "tennis", "basket", "hand"

Merci d'avance pour vos réponses

 

[Caillou]

Re : [VBA] Récupérer le titre des onglets dans une cellule

Bonjour,

Ceci peut-être:

Sub bgump1()
  Dim f As Worksheet
  
  For Each f In ActiveWorkbook.Worksheets
    f.Range("A1") = f.Name
  Next
End Sub

Caillou

 

[bgump1]

Re : [VBA] Récupérer le titre des onglets dans une cellule

Merci bcp, ça marche nikel !!!!