numéroter les x pages

Bonjour Gilles

Il faudrait avoir le nombre de feuilles présentes dans le classeur et le
nombre de feuilles copiées + une cellule vierge..
Mais il serait plus simple si tu publiais la macro ici.

Salutations
JJ

"gilles" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:05fd01c49c7f$ed6b7a40$a501280a@phx.gbl...
bonjour à tous
un classeur xl97 ou xp
une macro qui me copie des feuilles selon qu. définiespar
des cellules
je souhaiterais indiquer sur chaque feuille page 1 de x
par une macro, sauf une feuille
KEKUN saurait-il m'orienter la dessus?
merci d'avance
à+
gilles (72)

Bonsour ®, Gilles

Sub Macro1()
With ActiveSheet.PageSetup
.RightFooter = "page : &P de &N"
End With
End Sub

amitiés à Hienriette... ;-)))

@+

-----Message d'origine-----
bonjour à tous
un classeur xl97 ou xp
une macro qui me copie des feuilles selon qu.
définiespar

des cellules
je souhaiterais indiquer sur chaque feuille page 1 de x
par une macro, sauf une feuille
KEKUN saurait-il m'orienter la dessus?
merci d'avance
à+
gilles (72)
.

salut modeste
merci pour ta réponse
En fait ce n'est pas ce que je cherche, car je souhaite
insérer les n) de page en pied de page mais que la feuil1
soit page 1 , la feuil2 page 2....ainsi de suite sachant
que je connais pas le nombre de feuilles que j'airai à
chaque utilisation du fichier
vaste débat izn'tit?
à +
gilles

-----Message d'origine-----
Bonsour ®, Gilles

Sub Macro1()
With ActiveSheet.PageSetup
.RightFooter = "page : &P de &N"
End With
End Sub

amitiés à Hienriette... ;-)))

@+

-----Message d'origine-----
bonjour à tous
un classeur xl97 ou xp
une macro qui me copie des feuilles selon qu.
définiespar

des cellules
je souhaiterais indiquer sur chaque feuille page 1 de x
par une macro, sauf une feuille
KEKUN saurait-il m'orienter la dessus?
merci d'avance
à+
gilles (72)
.

.

Sub recalage_onglets() 'C'est la macro qui fait toute la
manip
ActiveWorkbook.Save
'enlève le message d'alerte à la suppression d'onglets
Application.DisplayAlerts = False
'début de la procédure
'plateforme
Sheets("recap").Select
If [ac5] < 0 Then
Sheets("plateforme").Delete 'feuil1(2) marche pas
faire seulement sur les feuilles d'origine
Else
nbVoulu = [ac5]
For i = 1 To nbVoulu
Sheets("plateforme").Select
Sheets("plateforme").Copy after:=Sheets("plateforme")
Next
End If
'axes et niveaux
Sheets("recap").Select
If [ac6] < 0 Then
Sheets("axes").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac6]
For i = 1 To nbVoulu
Sheets("axes").Select
Sheets("axes").Copy after:=Sheets("axes")
Next i
End If
'decaiss
Sheets("recap").Select
If [ac7] < 0 Then
Sheets("decaiss").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac7]
For i = 1 To nbVoulu
Sheets("decaiss").Select
Sheets("decaiss").Copy after:=Sheets("decaiss")
Next i
End If

'piste
Sheets("recap").Select
If [ac8] < 0 Then
Sheets("piste").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac8]
For i = 1 To nbVoulu
Sheets("piste").Select
Sheets("piste").Copy after:=Sheets("piste")
Next i
End If
'massifs
Sheets("recap").Select
If [ac9] < 0 Then
Sheets("massifs").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac9]
For i = 1 To nbVoulu
Sheets("massifs").Select
Sheets("massifs").Copy after:=Sheets("massifs")
Next i
End If
'libre
Sheets("recap").Select
If [ac10] < 0 Then
Sheets("libre").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac10]
For i = 1 To nbVoulu
Sheets("libre").Select
Sheets("libre").Copy after:=Sheets("libre")
Next i
End If
'dalle
Sheets("recap").Select
If [ac11] < 0 Then
Sheets("dalle").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac11]
For i = 1 To nbVoulu
Sheets("dalle").Select
Sheets("dalle").Copy after:=Sheets("dalle")
Next i
End If
'fosse tr
Sheets("recap").Select
If [ac12] < 0 Then
Sheets("fosseTR").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac12]
For i = 1 To nbVoulu
Sheets("fosseTR").Select
Sheets("fosseTR").Copy after:=Sheets("fosseTR")
Next i
End If
'fosse pigme
Sheets("recap").Select
If [ac13] < 0 Then
Sheets("fosse pigmé").Delete 'feuil1(2) marche pas
faire seulement sur les feuilles d'origine
Else
nbVoulu = [ac13]
For i = 1 To nbVoulu
Sheets("fosse pigmé").Select
Sheets("fosse pigmé").Copy after:=Sheets("fosse pigmé")
Next i
End If
'fosse déportée
Sheets("recap").Select
If [ac14] < 0 Then
Sheets("fosse déportée").Delete 'feuil1(2) marche
pas faire seulement sur les feuilles d'origine
Else
nbVoulu = [ac14]
For i = 1 To nbVoulu
Sheets("fosse déportée").Select
Sheets("fosse déportée").Copy after:=Sheets("fosse
déportée")
Next i
End If
'ferraill
Sheets("recap").Select
If [ac15] < 0 Then
Sheets("ferraill").Delete 'feuil1(2) marche pas
faire seulement sur les feuilles d'origine
Else
nbVoulu = [ac15]
For i = 1 To nbVoulu
Sheets("ferraill").Select
Sheets("ferraill").Copy after:=Sheets("ferraill")
Next i
End If
'mur
Sheets("recap").Select
If [ac16] < 0 Then
Sheets("mur").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac16]
For i = 1 To nbVoulu
Sheets("mur").Select
Sheets("mur").Copy after:=Sheets("mur")
Next i
End If
'tranchee
Sheets("recap").Select
If [ac17] < 0 Then
Sheets("tranchee").Delete 'feuil1(2) marche pas
faire seulement sur les feuilles d'origine
Else
nbVoulu = [ac17]
For i = 1 To nbVoulu
Sheets("tranchee").Select
Sheets("tranchee").Copy after:=Sheets("tranchee")
Next i
End If 'canivo
Sheets("recap").Select
If [ac18] < 0 Then
Sheets("canivo").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac18]
For i = 1 To nbVoulu
Sheets("canivo").Select
Sheets("canivo").Copy after:=Sheets("canivo")
Next i
End If
'charp
Sheets("recap").Select
If [ac19] < 0 Then
Sheets("charp").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac19]
For i = 1 To nbVoulu
Sheets("charp").Select
Sheets("charp").Copy after:=Sheets("charp")
Next i
End If
'tubes
Sheets("recap").Select
If [ac20] < 0 Then
Sheets("tube").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac20]
For i = 1 To nbVoulu
Sheets("tube").Select
Sheets("tube").Copy after:=Sheets("tube")
Next i
End If
'connex
Sheets("recap").Select
If [ac21] < 0 Then
Sheets("conex").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac21]
For i = 1 To nbVoulu
Sheets("conex").Select
Sheets("conex").Copy after:=Sheets("conex")
Next i
End If
'sertissage
Sheets("recap").Select
If [ac22] < 0 Then
Sheets("sertissage").Delete 'feuil1(2) marche pas
faire seulement sur les feuilles d'origine
Else
nbVoulu = [ac22]
For i = 1 To nbVoulu
Sheets("sertissage").Select
Sheets("sertissage").Copy after:=Sheets("sertissage")
Next i
End If
'raccord boulonné
Sheets("recap").Select
If [ac23] < 0 Then
Sheets("racc boulon").Delete 'feuil1(2) marche pas
faire seulement sur les feuilles d'origine
Else
nbVoulu = [ac23]
For i = 1 To nbVoulu
Sheets("racc boulon").Select
Sheets("racc boulon").Copy after:=Sheets("racc boulon")
Next i
End If
'raccord malt
Sheets("recap").Select
If [ac24] < 0 Then
Sheets("racc malt").Delete 'feuil1(2) marche pas
faire seulement sur les feuilles d'origine
Else
nbVoulu = [ac24]
For i = 1 To nbVoulu
Sheets("racc malt").Select
Sheets("racc malt").Copy after:=Sheets("racc malt")
Next i
End If
'extremite hta
Sheets("recap").Select
If [ac25] < 0 Then
Sheets("extr hta").Delete 'feuil1(2) marche pas
faire seulement sur les feuilles d'origine
Else
nbVoulu = [ac25]
For i = 1 To nbVoulu
Sheets("extr hta").Select
Sheets("extr hta").Copy after:=Sheets("extr hta")
Next i
End If
'install bt
Sheets("recap").Select
If [ac26] < 0 Then
Sheets("instal bt").Delete 'feuil1(2) marche pas
faire seulement sur les feuilles d'origine
Else
nbVoulu = [ac26]
For i = 1 To nbVoulu
Sheets("instal bt").Select
Sheets("instal bt").Copy after:=Sheets("instal bt")
Next i
End If
'racc bt
Sheets("recap").Select
If [ac27] < 0 Then
Sheets("racc bt").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac27]
For i = 1 To nbVoulu
Sheets("racc bt").Select
Sheets("racc bt").Copy after:=Sheets("racc bt")
Next i
End If
'vierge
Sheets("recap").Select
If [ac28] < 0 Then
Sheets("vierge").Delete 'feuil1(2) marche pas faire
seulement sur les feuilles d'origine
Else
nbVoulu = [ac28]
For i = 1 To nbVoulu
Sheets("vierge").Select
Sheets("vierge").Copy after:=Sheets("vierge")
Next i
End If
'création_liste_des_feuilles_avec_liens_hypertextes

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
On Error Resume Next
Sheets("Sommaire").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Sommaire"
[A1] = "Liste des onglets du classeur"

For i = 2 To Sheets.Count
If Sheets(i).Name <> "zaza" Then
If Val(Application.Version) > 8 Then
ActiveSheet.Hyperlinks.Add Anchor:=[A65536].End(xlUp)
(2), _
Address:="", SubAddress:="'" & Sheets(i).Name & "'!
A1", _
TextToDisplay:=Sheets(i).Name
Else
Range([A65536].End(xlUp)(2).Address) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=[A65536].End(xlUp)
(1), _
Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1"
End If
End If
Next i

With Rows("1:1")
.RowHeight = 40
.VerticalAlignment = xlCenter
End With
[E2].Activate
ActiveWindow.DisplayGridlines = False

' copie_liens_et_couleur Macro
' Macro enregistrée le 16/04/2004 par LeroyG
'
Sheets("Sommaire").Select
Range("A2:A25").Select
Range("A25").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("recap").Select
Range("A4").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=7
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Range("A33").Select
ActiveWindow.LargeScroll Down:=-1


' zoneimp Macro
' Macro enregistrée le 04/05/2004 par LEROY Gilles
'
Sheets("sommaire").Select
ActiveWindow.SmallScroll Down:=32
Range("A1:G53").Select
Range("G53").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$53"

' num_pages Macro
' Macro enregistrée le 04/05/2004 par LEROY Gilles
'
Sheets("sommaire").Select

Range("M2").Select
ActiveCell.FormulaR1C1 = "1"
Range("M3").Select
ActiveCell.FormulaR1C1 = "2"
Range("G2").Select
ActiveCell.FormulaR1C1 = ""
Range("M2:M3").Select
Selection.AutoFill Destination:=Range("M2:M51"),
Type:=xlFillDefault
Range("M2:M51").Select
ActiveWindow.LargeScroll Down:=-2
Range("G3").Select
ActiveCell.FormulaR1C1 = ""
Range("G2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-6]<>"""",RC[6],"""")"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G51"),
Type:=xlFillDefault
Range("G2:G51").Select
ActiveWindow.SmallScroll Down:=-30
Range("G1").Select
ActiveCell.FormulaR1C1 = "Page:"
Range("G1").Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
' deplactnum Macro
' Macro enregistrée le 04/05/2004 par LEROY Gilles
'
Sheets("sommaire").Select
Range("G1:G51").Select
ActiveWindow.LargeScroll Down:=-2
Selection.Cut Destination:=Range("E1:E51")
Range("E1:E51").Select

With Selection
.HorizontalAlignment = xlGeneral
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1").Select
' nompiedpagesommaire Macro
' Macro enregistrée le 05/05/2004 par LeroyG
'
ActiveWindow.LargeScroll Down:=1
Range("A52").Select
ActiveCell.FormulaR1C1 = "=CELL(""filename"",R[-51]C)"

With Selection.Font
.Name = "Arial"
.Size = 6
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A52").Select
ActiveWindow.LargeScroll Down:=-1
Range("A1").Select
Selection.Font.Bold = True

'compte le nombre de pages
Sheets("recap").Select
x = Worksheets.Count
Sheets("recap").[aa31].Value = x & " pages"


Exit Sub
GesErr:
Application.DisplayAlerts = False
Sheets("Sommaire").Delete
Application.DisplayAlerts = True

End Sub

Ctte macro recopie chaque onglet en autant d'exemplaire
que le définit une cellule, ou le supprime si la cellule
indique 0
Elle crée ensuite une page sommaire avec des liens
hypertexte
Je me suis appuyé sur des codes proposés par le mpfe ou
des sites de ses membres
ça marche nickel mais je peux me retouver avec 50 pages
non numérotées, et c'est ça que je souhaite faire
Si tu as une idée

merci d'avance
à+
gilles (72)


.