macro pour créer feuille

[jeanclaude57]

Bonjour à tous

Je ne connais rien en vba

Voila, je voudrais une macro pour créer de nouvelles feuilles avec un nom en auto.

Je voudrais que la premiére feuille soit 7000 et qu'il s'incrémente automatiquement 7001 7002 etc.

Et surtout que dois je faire pour l'incorporer dans ma feuille pour que ça fonctionne.

Merci

 

[Bricofire]

Bonsoir Jean Claude 57

Ce que tu demandes est simple, ta question l'est nettement moins, pour démarrer, je te met en PJ un classeur qui te crée 100 feuilles T'en veux combien ?

Donc exerces-toi dessus et poses l'une après l'autre les questions pour savoir comment ça marche


Option Explicit
Sub Dragon()

Dim I As Integer

For I = 7000 To 7100
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = (I)
Next I
End Sub



Bonne soirée,

Bfr

éditer : Ben il est où le classeur ? :ermm:

Message édité par: bricofire, à: 27/09/2005 22:23

Message édité par: bricofire, à: 27/09/2005 22:23

 

[Bricofire]

Glup

Ben il est Là..... le classeur !

Message édité par: bricofire, à: 27/09/2005 22:26

 

[Bricofire]

Le Voilà :unsure: [file name=Plop.zip size=5770]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Plop.zip[/file]


Euh..., moi je lis pas assez, donc pour le lancer tu vas dans

Outils, Macro, Macro (avec la flècje à droite), cliques sur dragon et éxécuter !

Message édité par: bricofire, à: 27/09/2005 22:32

 

[jeanclaude57]

Merci ok ça fonctione super