Liste des noms de feuilles
Résolu/Fermé
john deere
-
24 avril 2008 à 15:24
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 24 avril 2008 à 16:44
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 24 avril 2008 à 16:44
A voir également:
- Liste des noms de feuilles
- Liste déroulante excel - Guide
- Nom de l'adresse ✓ - Forum Internet / Réseaux sociaux
- Liste de numéro de téléphone suspect 07 ✓ - Forum Mobile
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Annuaire inversé gratuit liste rouge - Forum Internet / Réseaux sociaux
4 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
24 avril 2008 à 16:37
24 avril 2008 à 16:37
Que je suis C...!
voilà la proc modifiée
Sub repertorier()
Dim cptr As Byte
nbre = ThisWorkbook.Sheets.Count
For cptr = 1 To nbre
test = Sheets(cptr).Name
Cells(cptr, 1) = Sheets(cptr).Name
Next
End Sub
voilà la proc modifiée
Sub repertorier()
Dim cptr As Byte
nbre = ThisWorkbook.Sheets.Count
For cptr = 1 To nbre
test = Sheets(cptr).Name
Cells(cptr, 1) = Sheets(cptr).Name
Next
End Sub
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
24 avril 2008 à 16:44
24 avril 2008 à 16:44
Félicitations! l'élève a dépassé le maître !!!
Et Géant Vert gagne un MAS-SEY-FER-GU-SON ! Yeah!
Bon, j'vais pas trop trainer, le délire est là.
Et Géant Vert gagne un MAS-SEY-FER-GU-SON ! Yeah!
Bon, j'vais pas trop trainer, le délire est là.
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
24 avril 2008 à 15:44
24 avril 2008 à 15:44
Salut tracteur vert,
Sub repertorier()
Dim liste() As String
Dim cptr As Byte
nbre = ThisWorkbook.Sheets.Count
For cptr = 1 To nbre
Cells(cptr, 1) = Sheets(cptr).Name
cptr = cptr + 1
Next
End Sub
michel
Sub repertorier()
Dim liste() As String
Dim cptr As Byte
nbre = ThisWorkbook.Sheets.Count
For cptr = 1 To nbre
Cells(cptr, 1) = Sheets(cptr).Name
cptr = cptr + 1
Next
End Sub
michel
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
24 avril 2008 à 16:33
24 avril 2008 à 16:33
Effectivement, y'a un truc: je regarde et te dis
24 avril 2008 à 16:38