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

Question

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

houtas · Accepted Answer

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

cs_Jack · Answer

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)

houtas · Answer

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

Jacky1002 · Answer

mille mercis houtas

à une prochaine pour un autre dépannage.

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

4 réponses

Votre réponse

Discussions similaires