Comment faire afficher le nom de chaque feuille en VBA?

Résolu
Signaler
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012
-
Messages postés
40
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
26 octobre 2007
-
Bonjours, je cherche simplement un moyen de faire une boucle qui affichera le nom de chaque feuille du fichier Excel en court d'utilisation.(avec VBA) Merci d'avance.

3 réponses

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
pour 2004 ?







For k = 1 To ActiveWorkbook.Sheets.Count

MsgBox ActiveWorkbook.Sheets(k).Name

Next l




Manu
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012

Mon Jeu Dragon Warrior 4 Online marche tres bien merci de m'aider quand j'en ai besoin
La nouvelle version est prevue pour 2004
Messages postés
40
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
26 octobre 2007

Bonjour



Si tu préfère cette macro elle t'écrit les noms sur la feuille sélectionnée au départ à partir de la cellule A1 :



Sub nomdefeuille()

Range("a1").Select

For Each sheet In Worksheets

nomdelafeuille = sheet.Name

ActiveCell.Value = nomdelafeuille

ActiveCell.Offset(1, 0).Select

Next sheet

End Sub