[Encore et encore déplacé .Net --> VBA] insérer feuilles excel et les nomer [Résolu]

Messages postés
94
Date d'inscription
mardi 11 mai 2010
Statut
Membre
Dernière intervention
3 avril 2011
- - Dernière réponse : Jacky1002
Messages postés
94
Date d'inscription
mardi 11 mai 2010
Statut
Membre
Dernière intervention
3 avril 2011
- 10 mai 2010 à 09:21
bonjour a tous

je suis en train de créer un fichier de gestion de pièces détachées et j'ai besoin d'une astuce.

je dois créer plusieurs centaines de feuilles (300 pour l'instant) dans un meme classeur

le problème cest que je ne veux pas les nommer "Feuil1" "Feuil2"... mais "0001", "0002", .....,"0300". Chaque feuille correspond en fait à une "fiche pièce"

comment insérer ces 300 feuilles et les nommer en évitant de cliquer 1 fois pour insérer la feuille, 2 fois pour modifier le nom et taper 4 caractère par feuille en gros comment éviter 900 clic et 1200 caractères à taper.

merci de votre aide (je suis démoralisé a l'idée d'un tel travail.)
Jacky
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
116
Date d'inscription
jeudi 14 décembre 2006
Statut
Membre
Dernière intervention
29 août 2013
3
Merci
Je l'ai fait pour te soulager de ce fardeau et ca marche, n'oublie pas d'accepter la réponse
Sub ajoutfeuilles()
For i = 1 To 300
Sheets.Add After:=Sheets(Sheets.Count)
If i > 0 And i < 10 Then
ActiveSheet.Name = "000" & i
End If
If i > 9 And i < 100 Then
ActiveSheet.Name = "00" & i
End If
If i > 99 And i < 301 Then
ActiveSheet.Name = "0" & i
End If
Next

Dire « Merci » 3

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

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

Commenter la réponse de houtas
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61
0
Merci
Salut
Avant de te lancer la dedans, vérifie le nombre maxi de feuille qu'un classeur sait gérer.
Sinon, enregistre une macro pendant que tu insères une feuille et tu auras la syntaxe.
Il n'y aura plus qu'à la coupler à une boucle For-Next et gérer son nom avec Format

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Commenter la réponse de cs_Jack
Messages postés
116
Date d'inscription
jeudi 14 décembre 2006
Statut
Membre
Dernière intervention
29 août 2013
0
Merci
par curiosité je voulais connaitre la limite en nb de feuilles, et y'en a pas, selon Microsoft Nombre maximal de feuilles par classeur Limité par la quantité de mémoire disponible
http://office.microsoft.com/fr-fr/excel/HP051992911036.aspx
pour le cas ou tu aurais besoin d'en créer plus suffit de changer les bornes
Commenter la réponse de houtas
Messages postés
94
Date d'inscription
mardi 11 mai 2010
Statut
Membre
Dernière intervention
3 avril 2011
0
Merci
mille mercis houtas

à une prochaine pour un autre dépannage.
Commenter la réponse de Jacky1002