bonsoir a tout le forum
2 petites questions sur ce sujet
je sais que cela a deja ete pose
mais je n'ai pas retrouve de trace
1 dans un texte (en tete de page) peu t on changer sa couleur
2 dans le pied de page (partie centrale ) je voudrais faire
apparaitre le resultat d'une formule d'une cellule est ce possible
merci
bonne nuit
andre
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
Bonjour André,
| 1 dans un texte (en tete de page) peu t on changer sa couleur
Non
| 2 dans le pied de page (partie centrale ) je voudrais faire | apparaitre le resultat d'une formule d'une cellule est ce possible
OUI et voici un exemple : Si tu veux imprimer la somme de la colonne A1:A10 à chaque fois que tu imprimes la feuille "Feuil1"
copie ce qui suit dans le ThisWorkbook : '---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets If Sh.Name = "Feuil1" Then With Sh.PageSetup .LeftFooter = Application.Sum(Range("Feuil1!A1:A20")) End With End If Next
End Sub '----------------------------
La formule utilisée peut être diverse....et plus complexe en utilisant la fonction Evaluate.
Salutations!
"andre" a écrit dans le message de news: bonsoir a tout le forum 2 petites questions sur ce sujet je sais que cela a deja ete pose mais je n'ai pas retrouve de trace 1 dans un texte (en tete de page) peu t on changer sa couleur 2 dans le pied de page (partie centrale ) je voudrais faire apparaitre le resultat d'une formule d'une cellule est ce possible merci bonne nuit andre
Bonjour André,
| 1 dans un texte (en tete de page) peu t on changer sa couleur
Non
| 2 dans le pied de page (partie centrale ) je voudrais faire
| apparaitre le resultat d'une formule d'une cellule est ce possible
OUI et voici un exemple : Si tu veux imprimer la somme de la colonne A1:A10
à chaque fois que tu imprimes la feuille "Feuil1"
copie ce qui suit dans le ThisWorkbook :
'----------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
If Sh.Name = "Feuil1" Then
With Sh.PageSetup
.LeftFooter = Application.Sum(Range("Feuil1!A1:A20"))
End With
End If
Next
End Sub
'----------------------------
La formule utilisée peut être diverse....et plus complexe en utilisant
la fonction Evaluate.
Salutations!
"andre" <andre260@cegetel.net> a écrit dans le message de news: mn.256c7d642059494e.51150@cegetel.net...
bonsoir a tout le forum
2 petites questions sur ce sujet
je sais que cela a deja ete pose
mais je n'ai pas retrouve de trace
1 dans un texte (en tete de page) peu t on changer sa couleur
2 dans le pied de page (partie centrale ) je voudrais faire
apparaitre le resultat d'une formule d'une cellule est ce possible
merci
bonne nuit
andre
| 1 dans un texte (en tete de page) peu t on changer sa couleur
Non
| 2 dans le pied de page (partie centrale ) je voudrais faire | apparaitre le resultat d'une formule d'une cellule est ce possible
OUI et voici un exemple : Si tu veux imprimer la somme de la colonne A1:A10 à chaque fois que tu imprimes la feuille "Feuil1"
copie ce qui suit dans le ThisWorkbook : '---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets If Sh.Name = "Feuil1" Then With Sh.PageSetup .LeftFooter = Application.Sum(Range("Feuil1!A1:A20")) End With End If Next
End Sub '----------------------------
La formule utilisée peut être diverse....et plus complexe en utilisant la fonction Evaluate.
Salutations!
"andre" a écrit dans le message de news: bonsoir a tout le forum 2 petites questions sur ce sujet je sais que cela a deja ete pose mais je n'ai pas retrouve de trace 1 dans un texte (en tete de page) peu t on changer sa couleur 2 dans le pied de page (partie centrale ) je voudrais faire apparaitre le resultat d'une formule d'une cellule est ce possible merci bonne nuit andre
andre
Le 05/04/2006, michdenis a supposé :
Bonjour André,
1 dans un texte (en tete de page) peu t on changer sa couleur
Non
2 dans le pied de page (partie centrale ) je voudrais faire apparaitre le resultat d'une formule d'une cellule est ce possible
OUI et voici un exemple : Si tu veux imprimer la somme de la colonne A1:A10 à chaque fois que tu imprimes la feuille "Feuil1"
copie ce qui suit dans le ThisWorkbook : '---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets If Sh.Name = "Feuil1" Then With Sh.PageSetup .LeftFooter = Application.Sum(Range("Feuil1!A1:A20")) End With End If Next
End Sub '----------------------------
La formule utilisée peut être diverse....et plus complexe en utilisant la fonction Evaluate.
Salutations!
merci michdenis bonne journee
andre
"andre" a écrit dans le message de news: bonsoir a tout le forum 2 petites questions sur ce sujet je sais que cela a deja ete pose mais je n'ai pas retrouve de trace 1 dans un texte (en tete de page) peu t on changer sa couleur 2 dans le pied de page (partie centrale ) je voudrais faire apparaitre le resultat d'une formule d'une cellule est ce possible merci bonne nuit andre
Le 05/04/2006, michdenis a supposé :
Bonjour André,
1 dans un texte (en tete de page) peu t on changer sa couleur
Non
2 dans le pied de page (partie centrale ) je voudrais faire
apparaitre le resultat d'une formule d'une cellule est ce possible
OUI et voici un exemple : Si tu veux imprimer la somme de la colonne A1:A10
à chaque fois que tu imprimes la feuille "Feuil1"
copie ce qui suit dans le ThisWorkbook :
'----------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
If Sh.Name = "Feuil1" Then
With Sh.PageSetup
.LeftFooter = Application.Sum(Range("Feuil1!A1:A20"))
End With
End If
Next
End Sub
'----------------------------
La formule utilisée peut être diverse....et plus complexe en utilisant
la fonction Evaluate.
Salutations!
merci michdenis
bonne journee
andre
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.256c7d642059494e.51150@cegetel.net... bonsoir a tout le forum
2 petites questions sur ce sujet
je sais que cela a deja ete pose
mais je n'ai pas retrouve de trace
1 dans un texte (en tete de page) peu t on changer sa couleur
2 dans le pied de page (partie centrale ) je voudrais faire
apparaitre le resultat d'une formule d'une cellule est ce possible
merci
bonne nuit
andre
1 dans un texte (en tete de page) peu t on changer sa couleur
Non
2 dans le pied de page (partie centrale ) je voudrais faire apparaitre le resultat d'une formule d'une cellule est ce possible
OUI et voici un exemple : Si tu veux imprimer la somme de la colonne A1:A10 à chaque fois que tu imprimes la feuille "Feuil1"
copie ce qui suit dans le ThisWorkbook : '---------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets If Sh.Name = "Feuil1" Then With Sh.PageSetup .LeftFooter = Application.Sum(Range("Feuil1!A1:A20")) End With End If Next
End Sub '----------------------------
La formule utilisée peut être diverse....et plus complexe en utilisant la fonction Evaluate.
Salutations!
merci michdenis bonne journee
andre
"andre" a écrit dans le message de news: bonsoir a tout le forum 2 petites questions sur ce sujet je sais que cela a deja ete pose mais je n'ai pas retrouve de trace 1 dans un texte (en tete de page) peu t on changer sa couleur 2 dans le pied de page (partie centrale ) je voudrais faire apparaitre le resultat d'une formule d'une cellule est ce possible merci bonne nuit andre
