Discussion :

[youlig]

Bonjour à Tous,

Je possède des connaissances très limitées en langage vba et je souhaiterais écrire une macro qui à partir de la valeur d'une case sur une feuille elle me crée un nombre de feuilles égales à cette valeur et que ces feuilles soient nommées "Page A", "Page B"... Est ce que quelqu'un pourrait m'aider ?

Merci d'avance

[nako13]

Bonsoir,

Voici une proposition, dans un module mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub creationpage()
' En A1 de la Feuil1 le nombre de page
For i = Sheets("Feuil1").Range("A1").Value To 1 Step -1
Sheets.Add
ActiveSheet.Name = "Page " & Split(Columns(i).Address(ColumnAbsolute:=False), ":")(1)
Next i
 
End Sub

Cordialement

[youlig]

Bonsoir Nako13,

Super !!! Merci
Est ce possible que les pages se mettent à la fin des onglets et non pas au début ?

Merci encore

[nako13]

Oui c'est possible !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub creationpage()
' En A1 de la Feuil1 le nombre de page
For I = Sheets("Feuil1").Range("A1").Value To 1 Step -1
Sheets.Add
ActiveSheet.Move After:=Sheets("Feuil1")
ActiveSheet.Name = "Page " & Split(Columns(I).Address(ColumnAbsolute:=False), ":")(1)
Next I
 
End Sub

A+

[youlig]

Merci encore pour ton dérangement.
Je note la discussion comme résolu.

Bonne soirée