Liste des noms de feuilles
Résolu/Fermé
john deere
-
24 avril 2008 à 15:24
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 24 avril 2008 à 16:44
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 24 avril 2008 à 16:44
A voir également:
- Liste des noms de feuilles
- Liste déroulante excel - Guide
- Les noms des animaux - Télécharger - Études & Formations
- Liste de diffusion whatsapp - Guide
- Gertrude a préparé la liste des affaires à prendre pour l'excursion. juliette a modifié cette liste en utilisant le mode suivi des modifications proposé par le traitement de texte. - Guide
- Liste déroulante en cascade - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
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
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
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
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
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
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
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