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

bgump1 · 23 Avril 2009

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 · 23 Avril 2009

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

Bonjour,

Ceci peut-être:

Code:

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

Caillou

bgump1 · 23 Avril 2009

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

Merci bcp, ça marche nikel !!!!

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

bgump1

XLDnaute Nouveau

Caillou

XLDnaute Impliqué

bgump1

XLDnaute Nouveau

Discussions similaires