Comment faire afficher le nom de chaque feuille en VBA?
Résolu
XGuarden
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012
-
21 févr. 2006 à 14:32
nanougat Messages postés 40 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 26 octobre 2007 - 21 févr. 2006 à 15:21
nanougat Messages postés 40 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 26 octobre 2007 - 21 févr. 2006 à 15:21
A voir également:
- Comment faire afficher le nom de chaque feuille en VBA?
- Afficher un tableau php en html - Conseils pratiques -PHP
- Afficher userform vba ✓ - Forum Visual Basic
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
- [Vba] aller chercher des données dans une feuille excel ✓ - Forum Visual Basic
3 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
21 févr. 2006 à 15:01
21 févr. 2006 à 15:01
pour 2004 ?
For k = 1 To ActiveWorkbook.Sheets.Count
MsgBox ActiveWorkbook.Sheets(k).Name
Next l
Manu
For k = 1 To ActiveWorkbook.Sheets.Count
MsgBox ActiveWorkbook.Sheets(k).Name
Next l
Manu
XGuarden
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012
21 févr. 2006 à 14:38
21 févr. 2006 à 14:38
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
La nouvelle version est prevue pour 2004
nanougat
Messages postés
40
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
26 octobre 2007
21 févr. 2006 à 15:21
21 févr. 2006 à 15:21
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
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
