macro avec condition

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

Bonsoir,

Voici une proposition, dans un module mettre :

Code:

---

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

Bonsoir Nako13,

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

Merci encore

Oui c'est possible ! :)

Code:

---

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+

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

Bonne soirée