Macro pour copier et numéroter les pages d'un carnet

pierrejean à dit:

bonjour Oceane

Salut Staple 🙂
Salut Bruno 🙂

Ma version (qui respecte l'original)

Nb : me suis bien 'amusé'

Cliquez pour agrandir...

Océane à dit:

Merci BrunoM45
C'est ce qu'il me fallait. Un détail : on se retrouve tjrs avec 2 feuilles de plus que la Cde, mais c'est pas grave qui peut le plus peut le moins.
Bonne fête de la musique.

Cliquez pour agrandir...

Sub CopieFeuille()
  Dim NbF As Integer, Num As Integer
  NbF = Sheets("Numérotation").Range("G9").Value
  For Num = 0 To [B][COLOR=blue]NbF - 1
[/COLOR][/B]    Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Feuil" & 2 + Num
    ActiveSheet.Range("A1").Value = 2 + Num
    ActiveSheet.Range("A21").Value = 127 + Num
  Next
End Sub

Sub CopieFeuille()
  Dim NbF As Integer, Num As Integer
  NbF = Sheets("Numérotation").Range("G9").Value
  For Num = 0 To [COLOR=blue][B]NbF - 2
[/B][/COLOR]    Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Feuil" & 2 + Num
    ActiveSheet.Range("A1").Value = 2 + Num
    ActiveSheet.Range("A21").Value = 127 + Num
  Next
End Sub

JCGL à dit:

Bonjour à tous,
Bonjour aux amis du Fil 🙂,

Pierre, si je puis me permettre, lance une correction orthographique sur ta feuille 1.

Au plaisir de te croiser ici ou à Grenoble 😉

A++ aux amis 🙂
A+ à tous

Cliquez pour agrandir...

BrunoM45 à dit:

Salut PierreJean,
Pierre,

Avec le code on se retrouve effectivement avec, pour moi 1 feuille en trop !

Dans la feuille Numérotation on doit saisir le nombre de copie, sachant que le "Reçu 1" existe déjà, si on saisi 1, c'est que l'on veut le "Reçu 2", non !?

Bref, il faut modifier le code comme suit

Code:

Sub CopieFeuille()
  Dim NbF As Integer, Num As Integer
  NbF = Sheets("Numérotation").Range("G9").Value
  For Num = 0 To [B][COLOR=blue]NbF - 1
[/COLOR][/B]    Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Feuil" & 2 + Num
    ActiveSheet.Range("A1").Value = 2 + Num
    ActiveSheet.Range("A21").Value = 127 + Num
  Next
End Sub

Sinon si le nombre saisi = numéro de reçu, alors

Code:

Sub CopieFeuille()
  Dim NbF As Integer, Num As Integer
  NbF = Sheets("Numérotation").Range("G9").Value
  For Num = 0 To [COLOR=blue][B]NbF - 2
[/B][/COLOR]    Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Feuil" & 2 + Num
    ActiveSheet.Range("A1").Value = 2 + Num
    ActiveSheet.Range("A21").Value = 127 + Num
  Next
End Sub

Voilà 😉

Cliquez pour agrandir...

For m = 16 To 18
nom = "Text Box " & m
Sheets(n).Shapes(nom).Select
Selection.Formula = "Numérotation!D" & CInt(Replace(Sheets(n).Name, "Feuille", "")) + 1
With Selection.Font
.FontStyle = "Gras"

Cliquez pour agrandir...