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
Pour additionner la colonne a:a de la feuil3 et le mettre dans son pied de page lors de l'impression
à copier dans le ThisWorkbook de ton classeur. adapte le nom de la feuille où la somme doit apparaître.
'---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet, Rg As Range
For Each Sh In ActiveWindow.SelectedSheets If UCase(Sh.Name) = UCase("Feuil3") Then With Sh Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) With .PageSetup .LeftFooter = Application.Sum(Rg) End With End With End If Next
End Sub '----------------------------
"oca" a écrit dans le message de news:
bonjour, est-il possible de faire un calcul dans le pied de page ? (page papier, lors de l'impression)
la somme des valeurs d'une colonne par exemple ?
merci de votre aide
Olivier
Pour additionner la colonne a:a de la feuil3
et le mettre dans son pied de page lors de l'impression
à copier dans le ThisWorkbook de ton classeur.
adapte le nom de la feuille où la somme doit apparaître.
'----------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet, Rg As Range
For Each Sh In ActiveWindow.SelectedSheets
If UCase(Sh.Name) = UCase("Feuil3") Then
With Sh
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
With .PageSetup
.LeftFooter = Application.Sum(Rg)
End With
End With
End If
Next
End Sub
'----------------------------
"oca" <ol.castets.nospam@wanadoo.fr> a écrit dans le message de news:
Ot27CfYFHHA.3668@TK2MSFTNGP02.phx.gbl...
bonjour,
est-il possible de faire un calcul dans le pied de page ? (page papier, lors
de l'impression)
Pour additionner la colonne a:a de la feuil3 et le mettre dans son pied de page lors de l'impression
à copier dans le ThisWorkbook de ton classeur. adapte le nom de la feuille où la somme doit apparaître.
'---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet, Rg As Range
For Each Sh In ActiveWindow.SelectedSheets If UCase(Sh.Name) = UCase("Feuil3") Then With Sh Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) With .PageSetup .LeftFooter = Application.Sum(Rg) End With End With End If Next
End Sub '----------------------------
"oca" a écrit dans le message de news:
bonjour, est-il possible de faire un calcul dans le pied de page ? (page papier, lors de l'impression)
la somme des valeurs d'une colonne par exemple ?
merci de votre aide
Olivier
oca
super et merci beaucoup de votre aide
olivier
"MichDenis" a écrit dans le message de news:
Pour additionner la colonne a:a de la feuil3 et le mettre dans son pied de page lors de l'impression
à copier dans le ThisWorkbook de ton classeur. adapte le nom de la feuille où la somme doit apparaître.
'---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet, Rg As Range
For Each Sh In ActiveWindow.SelectedSheets If UCase(Sh.Name) = UCase("Feuil3") Then With Sh Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) With .PageSetup .LeftFooter = Application.Sum(Rg) End With End With End If Next
End Sub '----------------------------
"oca" a écrit dans le message de news:
bonjour, est-il possible de faire un calcul dans le pied de page ? (page papier, lors de l'impression)
la somme des valeurs d'une colonne par exemple ?
merci de votre aide
Olivier
super et merci beaucoup de votre aide
olivier
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uuTDh8ZFHHA.4636@TK2MSFTNGP04.phx.gbl...
Pour additionner la colonne a:a de la feuil3
et le mettre dans son pied de page lors de l'impression
à copier dans le ThisWorkbook de ton classeur.
adapte le nom de la feuille où la somme doit apparaître.
'----------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet, Rg As Range
For Each Sh In ActiveWindow.SelectedSheets
If UCase(Sh.Name) = UCase("Feuil3") Then
With Sh
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
With .PageSetup
.LeftFooter = Application.Sum(Rg)
End With
End With
End If
Next
End Sub
'----------------------------
"oca" <ol.castets.nospam@wanadoo.fr> a écrit dans le message de news:
Ot27CfYFHHA.3668@TK2MSFTNGP02.phx.gbl...
bonjour,
est-il possible de faire un calcul dans le pied de page ? (page papier,
lors
de l'impression)
Pour additionner la colonne a:a de la feuil3 et le mettre dans son pied de page lors de l'impression
à copier dans le ThisWorkbook de ton classeur. adapte le nom de la feuille où la somme doit apparaître.
'---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet, Rg As Range
For Each Sh In ActiveWindow.SelectedSheets If UCase(Sh.Name) = UCase("Feuil3") Then With Sh Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) With .PageSetup .LeftFooter = Application.Sum(Rg) End With End With End If Next
End Sub '----------------------------
"oca" a écrit dans le message de news:
bonjour, est-il possible de faire un calcul dans le pied de page ? (page papier, lors de l'impression)
