Créer et renommer plusieurs pages à partir de texte [Résolu/Fermé]

Signaler
-
 Cécile -
Bonjour,


Je souhaite créer plusieurs pages et les renommer . 

Par exemple je veux que la 1ère page soit nommée "Folio1", la seconde "Folio2" , etc.


Est-ce qu'il est plus simple de créer une boucle ou de faire appel à des cellules d'une autre page qui contiennent les futures noms de mes pages ? 



Je sais que pour créer ma 1ère page je dois coder:


'Créer 1ére page

Add.Sheet


et je ne me souviens plus comment faire pour la suite.

3 réponses

Qu'est-ce que "Byte" exactement
1
Merci

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

CCM 60511 internautes nous ont dit merci ce mois-ci

Existe-t-il une alternative à "Byte"?
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 497
Oui.
Pourquoi? 255 ne te suffisent pas?
C'est par curiosité étant donné que je ne connaissais pas ce code , je voulais donc savoir s'il était possible de réaliser cette fonction autrement.
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 497
Lis bien, et en entier, ce tutoriel sur les variables...
Ok merci beaucoup
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 497
Bonjour,

Avec une petite boucle.
Exemple pour ajouter 10 feuilles :

Sub Ajout_Feuilles()
Dim x As Byte

For x = 1 To 10
    ThisWorkbook.Worksheets.Add After:=Sheets(ThisWorkbook.Worksheets.Count)
    ActiveSheet.Name = "folio " & x
Next
End Sub

Merci c'est parfait !
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 497
Mais de rien.
A+