Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton numéro de page
'------------------------- for each sh in activewindow.selectedSheets with sh with .pageSetup .LeftHeader = "&P sur &N" end with end with Next '-------------------------
Tu désires autre chose ?
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton numéro de page
'-------------------------
for each sh in activewindow.selectedSheets
with sh
with .pageSetup
.LeftHeader = "&P sur &N"
end with
end with
Next
'-------------------------
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton numéro de page
'------------------------- for each sh in activewindow.selectedSheets with sh with .pageSetup .LeftHeader = "&P sur &N" end with end with Next '-------------------------
Tu désires autre chose ?
Lulu la Nantaise
Ben tout simplement parce que je veux des Pieds de page différents et qu'en plus je veux faire des renvois à des pages, et biensur le nombre de page est variable... Estce que je peux insérer donc les N) de pages dans une cellule avec ton code VBA ? Merci de ton aide, Lulu "MichDenis" a écrit dans le message de news:
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton numéro de page
'------------------------- for each sh in activewindow.selectedSheets with sh with .pageSetup .LeftHeader = "&P sur &N" end with end with Next '-------------------------
Tu désires autre chose ?
Ben tout simplement parce que je veux des Pieds de page différents et qu'en
plus je veux faire des renvois à des pages, et biensur le nombre de page est
variable...
Estce que je peux insérer donc les N) de pages dans une cellule avec ton
code VBA ?
Merci de ton aide,
Lulu
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ulObbZLPHHA.4372@TK2MSFTNGP04.phx.gbl...
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton
numéro de page
'-------------------------
for each sh in activewindow.selectedSheets
with sh
with .pageSetup
.LeftHeader = "&P sur &N"
end with
end with
Next
'-------------------------
Ben tout simplement parce que je veux des Pieds de page différents et qu'en plus je veux faire des renvois à des pages, et biensur le nombre de page est variable... Estce que je peux insérer donc les N) de pages dans une cellule avec ton code VBA ? Merci de ton aide, Lulu "MichDenis" a écrit dans le message de news:
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton numéro de page
'------------------------- for each sh in activewindow.selectedSheets with sh with .pageSetup .LeftHeader = "&P sur &N" end with end with Next '-------------------------
Tu désires autre chose ?
MichDenis
Tu colles ceci dans le ThisWorkbook de ton classeur et sur chaque feuille imprimée tu devrais avoir le numéro de la page sur le nombre total de pages imprimés.
'--------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh .Activate With .PageSetup If TypeName(Selection) = "Range" Then If Selection.Cells.Count > 1 Then .PrintArea = Selection.Address Else .PrintArea = Sh.UsedRange.Address End If End If .LeftFooter = "" .LeftFooter = "Page(s) &P" End With .PrintOut .PageSetup.PrintArea = "" End With Next
End Sub '---------------------------------
"Lulu la Nantaise" a écrit dans le message de news: % Ben tout simplement parce que je veux des Pieds de page différents et qu'en plus je veux faire des renvois à des pages, et biensur le nombre de page est variable... Estce que je peux insérer donc les N) de pages dans une cellule avec ton code VBA ? Merci de ton aide, Lulu "MichDenis" a écrit dans le message de news:
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton numéro de page
'------------------------- for each sh in activewindow.selectedSheets with sh with .pageSetup .LeftHeader = "&P sur &N" end with end with Next '-------------------------
Tu désires autre chose ?
Tu colles ceci dans le ThisWorkbook de ton classeur et
sur chaque feuille imprimée tu devrais avoir le numéro de la page
sur le nombre total de pages imprimés.
'---------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
.Activate
With .PageSetup
If TypeName(Selection) = "Range" Then
If Selection.Cells.Count > 1 Then
.PrintArea = Selection.Address
Else
.PrintArea = Sh.UsedRange.Address
End If
End If
.LeftFooter = ""
.LeftFooter = "Page(s) &P"
End With
.PrintOut
.PageSetup.PrintArea = ""
End With
Next
End Sub
'---------------------------------
"Lulu la Nantaise" <nospam@nospam.fr> a écrit dans le message de news:
%23S5G7pLPHHA.1248@TK2MSFTNGP02.phx.gbl...
Ben tout simplement parce que je veux des Pieds de page différents et qu'en
plus je veux faire des renvois à des pages, et biensur le nombre de page est
variable...
Estce que je peux insérer donc les N) de pages dans une cellule avec ton
code VBA ?
Merci de ton aide,
Lulu
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ulObbZLPHHA.4372@TK2MSFTNGP04.phx.gbl...
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton
numéro de page
'-------------------------
for each sh in activewindow.selectedSheets
with sh
with .pageSetup
.LeftHeader = "&P sur &N"
end with
end with
Next
'-------------------------
Tu colles ceci dans le ThisWorkbook de ton classeur et sur chaque feuille imprimée tu devrais avoir le numéro de la page sur le nombre total de pages imprimés.
'--------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh .Activate With .PageSetup If TypeName(Selection) = "Range" Then If Selection.Cells.Count > 1 Then .PrintArea = Selection.Address Else .PrintArea = Sh.UsedRange.Address End If End If .LeftFooter = "" .LeftFooter = "Page(s) &P" End With .PrintOut .PageSetup.PrintArea = "" End With Next
End Sub '---------------------------------
"Lulu la Nantaise" a écrit dans le message de news: % Ben tout simplement parce que je veux des Pieds de page différents et qu'en plus je veux faire des renvois à des pages, et biensur le nombre de page est variable... Estce que je peux insérer donc les N) de pages dans une cellule avec ton code VBA ? Merci de ton aide, Lulu "MichDenis" a écrit dans le message de news:
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton numéro de page
'------------------------- for each sh in activewindow.selectedSheets with sh with .pageSetup .LeftHeader = "&P sur &N" end with end with Next '-------------------------
Tu désires autre chose ?
Trirème
Salut Lulu Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement Trirème
Bonjour à tous, Est-il possible de mettre dans une cellule le N° de la page ? Merci beaucoup, Lulu
Salut Lulu
Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules
complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une
cellule. Tu obtiendra les renvois que tu veux
Cordialement
Trirème
Bonjour à tous,
Est-il possible de mettre dans une cellule le N° de la page ?
Merci beaucoup,
Lulu
Salut Lulu Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement Trirème
Bonjour à tous, Est-il possible de mettre dans une cellule le N° de la page ? Merci beaucoup, Lulu
jps
bonjour lulu en complément, copie d'une function que nous devons à l'incontournable pascal alias papou :
Function NumeroPageCellule() Dim VPC As Integer, HPC As Integer Dim VPB As VPageBreak, HPB As HPageBreak Dim NumPage As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then HPC = ActiveSheet.HPageBreaks.Count + 1 VPC = 1 Else VPC = ActiveSheet.VPageBreaks.Count + 1 HPC = 1 End If NumPage = 1 For Each VPB In ActiveSheet.VPageBreaks If VPB.Location.Column > ActiveCell.Column Then Exit For NumPage = NumPage + HPC Next VPB For Each HPB In ActiveSheet.HPageBreaks If HPB.Location.Row > ActiveCell.Row Then Exit For NumPage = NumPage + VPC Next HPB NumeroPageCellule = NumPage End Function
Il te suffit ensuite d'entrer la formule =NumeroPageCellule() dans la cellule où tu veux afficher ton No de page.
HTH jps
"Trirème" a écrit dans le message de news:
Salut Lulu Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement Trirème
Bonjour à tous, Est-il possible de mettre dans une cellule le N° de la page ? Merci beaucoup, Lulu
bonjour lulu
en complément, copie d'une function que nous devons à l'incontournable
pascal alias papou :
Function NumeroPageCellule()
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim NumPage As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In ActiveSheet.VPageBreaks
If VPB.Location.Column > ActiveCell.Column Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Location.Row > ActiveCell.Row Then Exit For
NumPage = NumPage + VPC
Next HPB
NumeroPageCellule = NumPage
End Function
Il te suffit ensuite d'entrer la formule =NumeroPageCellule() dans la
cellule où tu veux afficher ton No de page.
HTH
jps
"Trirème" <NoOne@EvryOuer.fr> a écrit dans le message de news:
O5kci0MPHHA.324@TK2MSFTNGP06.phx.gbl...
Salut Lulu
Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des
formules complémentaires à installer. Il y a notamment une fonction
NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement
Trirème
Bonjour à tous,
Est-il possible de mettre dans une cellule le N° de la page ?
Merci beaucoup,
Lulu
bonjour lulu en complément, copie d'une function que nous devons à l'incontournable pascal alias papou :
Function NumeroPageCellule() Dim VPC As Integer, HPC As Integer Dim VPB As VPageBreak, HPB As HPageBreak Dim NumPage As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then HPC = ActiveSheet.HPageBreaks.Count + 1 VPC = 1 Else VPC = ActiveSheet.VPageBreaks.Count + 1 HPC = 1 End If NumPage = 1 For Each VPB In ActiveSheet.VPageBreaks If VPB.Location.Column > ActiveCell.Column Then Exit For NumPage = NumPage + HPC Next VPB For Each HPB In ActiveSheet.HPageBreaks If HPB.Location.Row > ActiveCell.Row Then Exit For NumPage = NumPage + VPC Next HPB NumeroPageCellule = NumPage End Function
Il te suffit ensuite d'entrer la formule =NumeroPageCellule() dans la cellule où tu veux afficher ton No de page.
HTH jps
"Trirème" a écrit dans le message de news:
Salut Lulu Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement Trirème
Bonjour à tous, Est-il possible de mettre dans une cellule le N° de la page ? Merci beaucoup, Lulu
Lulu la Nantaise
Merci beaucoup, mais ça m'a planté tout excel... C'est pas grave, je réinstalle et je vous tiens au courant! A+ Lulu
"Trirème" a écrit dans le message de news:
Salut Lulu Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement Trirème
Bonjour à tous, Est-il possible de mettre dans une cellule le N° de la page ? Merci beaucoup, Lulu
Merci beaucoup, mais ça m'a planté tout excel...
C'est pas grave, je réinstalle et je vous tiens au courant!
A+
Lulu
"Trirème" <NoOne@EvryOuer.fr> a écrit dans le message de news:
O5kci0MPHHA.324@TK2MSFTNGP06.phx.gbl...
Salut Lulu
Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des
formules complémentaires à installer. Il y a notamment une fonction
NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement
Trirème
Bonjour à tous,
Est-il possible de mettre dans une cellule le N° de la page ?
Merci beaucoup,
Lulu
Merci beaucoup, mais ça m'a planté tout excel... C'est pas grave, je réinstalle et je vous tiens au courant! A+ Lulu
"Trirème" a écrit dans le message de news:
Salut Lulu Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement Trirème
Bonjour à tous, Est-il possible de mettre dans une cellule le N° de la page ? Merci beaucoup, Lulu
Lulu la Nantaise
Merveilleux "jps" a écrit dans le message de news:
bonjour lulu en complément, copie d'une function que nous devons à l'incontournable pascal alias papou :
Function NumeroPageCellule() Dim VPC As Integer, HPC As Integer Dim VPB As VPageBreak, HPB As HPageBreak Dim NumPage As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then HPC = ActiveSheet.HPageBreaks.Count + 1 VPC = 1 Else VPC = ActiveSheet.VPageBreaks.Count + 1 HPC = 1 End If NumPage = 1 For Each VPB In ActiveSheet.VPageBreaks If VPB.Location.Column > ActiveCell.Column Then Exit For NumPage = NumPage + HPC Next VPB For Each HPB In ActiveSheet.HPageBreaks If HPB.Location.Row > ActiveCell.Row Then Exit For NumPage = NumPage + VPC Next HPB NumeroPageCellule = NumPage End Function
Il te suffit ensuite d'entrer la formule =NumeroPageCellule() dans la cellule où tu veux afficher ton No de page.
HTH jps
"Trirème" a écrit dans le message de news:
Salut Lulu Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement Trirème
Bonjour à tous, Est-il possible de mettre dans une cellule le N° de la page ? Merci beaucoup, Lulu
Merveilleux
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uHkvP5SPHHA.4244@TK2MSFTNGP04.phx.gbl...
bonjour lulu
en complément, copie d'une function que nous devons à l'incontournable
pascal alias papou :
Function NumeroPageCellule()
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim NumPage As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In ActiveSheet.VPageBreaks
If VPB.Location.Column > ActiveCell.Column Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Location.Row > ActiveCell.Row Then Exit For
NumPage = NumPage + VPC
Next HPB
NumeroPageCellule = NumPage
End Function
Il te suffit ensuite d'entrer la formule =NumeroPageCellule() dans la
cellule où tu veux afficher ton No de page.
HTH
jps
"Trirème" <NoOne@EvryOuer.fr> a écrit dans le message de news:
O5kci0MPHHA.324@TK2MSFTNGP06.phx.gbl...
Salut Lulu
Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des
formules complémentaires à installer. Il y a notamment une fonction
NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu
veux
Cordialement
Trirème
Bonjour à tous,
Est-il possible de mettre dans une cellule le N° de la page ?
Merci beaucoup,
Lulu
Merveilleux "jps" a écrit dans le message de news:
bonjour lulu en complément, copie d'une function que nous devons à l'incontournable pascal alias papou :
Function NumeroPageCellule() Dim VPC As Integer, HPC As Integer Dim VPB As VPageBreak, HPB As HPageBreak Dim NumPage As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then HPC = ActiveSheet.HPageBreaks.Count + 1 VPC = 1 Else VPC = ActiveSheet.VPageBreaks.Count + 1 HPC = 1 End If NumPage = 1 For Each VPB In ActiveSheet.VPageBreaks If VPB.Location.Column > ActiveCell.Column Then Exit For NumPage = NumPage + HPC Next VPB For Each HPB In ActiveSheet.HPageBreaks If HPB.Location.Row > ActiveCell.Row Then Exit For NumPage = NumPage + VPC Next HPB NumeroPageCellule = NumPage End Function
Il te suffit ensuite d'entrer la formule =NumeroPageCellule() dans la cellule où tu veux afficher ton No de page.
HTH jps
"Trirème" a écrit dans le message de news:
Salut Lulu Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement Trirème
Bonjour à tous, Est-il possible de mettre dans une cellule le N° de la page ? Merci beaucoup, Lulu
Lulu la Nantaise
J'ai réinstallé EXCEL et tout refonctionne.... jps m'a donné une macro qui me convient fort bien, je regarderai ultérieurement ce que propose "morefunc" ultérieurement. Merci beaucoup, Lulu "Trirème" a écrit dans le message de news:
Salut Lulu Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement Trirème
Bonjour à tous, Est-il possible de mettre dans une cellule le N° de la page ? Merci beaucoup, Lulu
J'ai réinstallé EXCEL et tout refonctionne....
jps m'a donné une macro qui me convient fort bien, je regarderai
ultérieurement ce que propose "morefunc" ultérieurement.
Merci beaucoup,
Lulu
"Trirème" <NoOne@EvryOuer.fr> a écrit dans le message de news:
O5kci0MPHHA.324@TK2MSFTNGP06.phx.gbl...
Salut Lulu
Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des
formules complémentaires à installer. Il y a notamment une fonction
NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement
Trirème
Bonjour à tous,
Est-il possible de mettre dans une cellule le N° de la page ?
Merci beaucoup,
Lulu
J'ai réinstallé EXCEL et tout refonctionne.... jps m'a donné une macro qui me convient fort bien, je regarderai ultérieurement ce que propose "morefunc" ultérieurement. Merci beaucoup, Lulu "Trirème" a écrit dans le message de news:
Salut Lulu Tu trouvera sur le site de Laurent Longre (http://xcell05.free.fr/) des formules complémentaires à installer. Il y a notamment une fonction NUMPAGE() à insérer dans une cellule. Tu obtiendra les renvois que tu veux
Cordialement Trirème
Bonjour à tous, Est-il possible de mettre dans une cellule le N° de la page ? Merci beaucoup, Lulu
Lulu la Nantaise
Merci beaucoup de t'être penché sur mon cas, j'ai trouvé mon bonheur avec la macro de jps. A + Lulu "MichDenis" a écrit dans le message de news:
Tu colles ceci dans le ThisWorkbook de ton classeur et sur chaque feuille imprimée tu devrais avoir le numéro de la page sur le nombre total de pages imprimés.
'--------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh .Activate With .PageSetup If TypeName(Selection) = "Range" Then If Selection.Cells.Count > 1 Then .PrintArea = Selection.Address Else .PrintArea = Sh.UsedRange.Address End If End If .LeftFooter = "" .LeftFooter = "Page(s) &P" End With .PrintOut .PageSetup.PrintArea = "" End With Next
End Sub '---------------------------------
"Lulu la Nantaise" a écrit dans le message de news: % Ben tout simplement parce que je veux des Pieds de page différents et qu'en plus je veux faire des renvois à des pages, et biensur le nombre de page est variable... Estce que je peux insérer donc les N) de pages dans une cellule avec ton code VBA ? Merci de ton aide, Lulu "MichDenis" a écrit dans le message de news:
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton numéro de page
'------------------------- for each sh in activewindow.selectedSheets with sh with .pageSetup .LeftHeader = "&P sur &N" end with end with Next '-------------------------
Tu désires autre chose ?
Merci beaucoup de t'être penché sur mon cas, j'ai trouvé mon bonheur avec la
macro de jps.
A +
Lulu
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uPmH5gMPHHA.1604@TK2MSFTNGP05.phx.gbl...
Tu colles ceci dans le ThisWorkbook de ton classeur et
sur chaque feuille imprimée tu devrais avoir le numéro de la page
sur le nombre total de pages imprimés.
'---------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
.Activate
With .PageSetup
If TypeName(Selection) = "Range" Then
If Selection.Cells.Count > 1 Then
.PrintArea = Selection.Address
Else
.PrintArea = Sh.UsedRange.Address
End If
End If
.LeftFooter = ""
.LeftFooter = "Page(s) &P"
End With
.PrintOut
.PageSetup.PrintArea = ""
End With
Next
End Sub
'---------------------------------
"Lulu la Nantaise" <nospam@nospam.fr> a écrit dans le message de news:
%23S5G7pLPHHA.1248@TK2MSFTNGP02.phx.gbl...
Ben tout simplement parce que je veux des Pieds de page différents et
qu'en
plus je veux faire des renvois à des pages, et biensur le nombre de page
est
variable...
Estce que je peux insérer donc les N) de pages dans une cellule avec ton
code VBA ?
Merci de ton aide,
Lulu
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ulObbZLPHHA.4372@TK2MSFTNGP04.phx.gbl...
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton
numéro de page
'-------------------------
for each sh in activewindow.selectedSheets
with sh
with .pageSetup
.LeftHeader = "&P sur &N"
end with
end with
Next
'-------------------------
Merci beaucoup de t'être penché sur mon cas, j'ai trouvé mon bonheur avec la macro de jps. A + Lulu "MichDenis" a écrit dans le message de news:
Tu colles ceci dans le ThisWorkbook de ton classeur et sur chaque feuille imprimée tu devrais avoir le numéro de la page sur le nombre total de pages imprimés.
'--------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh .Activate With .PageSetup If TypeName(Selection) = "Range" Then If Selection.Cells.Count > 1 Then .PrintArea = Selection.Address Else .PrintArea = Sh.UsedRange.Address End If End If .LeftFooter = "" .LeftFooter = "Page(s) &P" End With .PrintOut .PageSetup.PrintArea = "" End With Next
End Sub '---------------------------------
"Lulu la Nantaise" a écrit dans le message de news: % Ben tout simplement parce que je veux des Pieds de page différents et qu'en plus je veux faire des renvois à des pages, et biensur le nombre de page est variable... Estce que je peux insérer donc les N) de pages dans une cellule avec ton code VBA ? Merci de ton aide, Lulu "MichDenis" a écrit dans le message de news:
| Est-il possible de mettre dans une cellule le N° de la page ?
Pourquoi ne pas utliser l'en-tête et le pied de page pour insérer ton numéro de page
'------------------------- for each sh in activewindow.selectedSheets with sh with .pageSetup .LeftHeader = "&P sur &N" end with end with Next '-------------------------
