créer des feuilles (suite...)

[alexandre]

La routine suivante fonctionne à peu près...

Sub Copie
combien = InputBox("Combien de feuille identiques voulez vous ?")
Sheets("HuHu").Select
While combien > 1
combien = combien - 1
Sheets("HuHu").Copy After:=Sheets(Sheets.Count)
Wend
End Sub

(HuHu étant le nom de la feuille à copier)

Cependant au-delà de 20 copies... la macro plante.... ! Incompréhensible pour le néophyte que je suis.


De plus, ma feuille "modèle" portant le nom '1', j'aurais souhaité que les copies se nomment automatiquement 2,3,4,5, etc....


Une solution ?

Encore merci

 

[zon]

Bonjour à tous,


Alexandre, tu n'indiques pas ton message d'erreur, d'aprés ce code c certainement parce qu'une feuille porte déjà le nom que celle que tu es en train de créer..

Pour avoir, les noms de feuilles 1,2 .., il suffit de nommer la feuille que tu viens de créer par la variable Combien



Sub Copie
dim combien as byte
combien = InputBox("Combien de feuille identiques voulez vous ?")
While combien > 1
combien = combien - 1
Sheets("HuHu").Copy After:=Sheets(Sheets.Count)
activesheet.name=combien
Wend
End Sub


A+++

 

[Sebb]

Voleur de couleur ! c'est mon code !!! Huhu )

 

[Jacques]

Bonsoir Alexandre,

Quelle version d'Excel utilises-tu?

Car il me semble me souvenir qu'avec Excel 97, lorsque l'on fait une copie d'une feuille son numéro interne est 1, puis la seconde copie est 11 puis la 3ème est 111 ect... alors que si on insère une feuille elle prend en interne le n° 1, puis 2, ....

Ce n'est plus le cas avec Excel 2000 ou 2002

L'explication de ton problème vient peut-être de là.

Pour ton info, j'utilise Excel 2000 et j'ai fait un essai de ta macro avec 35 copies et ça ne s'est pas planté.

Bonne soirée