ajout de feuilles dans un document par messagbox

[bbmarcus]

Bonjour à tous,

je traville sur un prog qui me permet de créer un test simpa tout simple....
je cherche comment, après avoir fait apparaitre une messagbox demandant le nombre de participants, on utilise ce nombre pour créer leur nombre identique de feuille ou de document.

Merci pour votre aide et @+

BBmarcus

 

[Arnaud]

salut,

un truc de ce style devrais convenir :

Dim NBPaticipant As Integer
NBPaticipant = InputBox("Nombre de participants ???")

For i = 1 To NBPaticipant
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
Next i

 

[Gaetan]

Salut bbmarcus

ptite idee rapide : il me semble que lorsque qu'on clique sur ok ds la msgbox on peut lui donner des instructions... tu crées une petite boucle lui disant d'ajouter des feuilles pour i=1 à x. x étant la variable que tu auras rentré....
voila j'espere que tu pourras faire qqchose...!
bonne journée
Gaetan.

 

[bbmarcus]

Whoua ! c'est génial !

merci à tout les deux!
Encore une petite question: est-ce que je peux créer ces feuilles en tant que copie d'une feuille-type?

Merci pour cette petite indication...

BBmarcus

 

[Arnaud]

re,

remplace

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)

par

ActiveWorkbook.Sheets("lenomdetafeuille").Copy After:=Worksheets(Worksheets.Count)

 

[bbmarcus]

Merci Arnaud, tu m'as fais gagné du temps !(je suis nul....c'était logique...)

Encore merci pour l'attention porté à mes messages.

@ une prochaine fois !

BBmarcus