Après une lecture attentive des différents posts sur ce forum, j'ai pu apprendre énormément de trucs et astuces pour la mise en forme de mes docs excel avec VBA
Je m'y connais un tout petit peu en VB donc j'ai utilisé vos solutions que j'ai essayé ensuite de modifier à ma sauce afin de faire quelque chose qui n'a pas (à ma connaissance) encore été demandé sur le forum, mais sans succès
J'aimerais effectivement, que sur chacun de mes pieds de page, un texte différent s'affiche
En gros le but du jeu serait de récupérer la valeur du numéro de page et en fonction de la valeur, la remplacer par un texte
Par exemple, remplacer le "1" de &P par "première page" , le 2 par "seconde page", sachant qu'en fait ce sont des noms de mois que je souhaite mettre là en bas ;
Mes codes fonctionnent mais dès que je demande un remplacement de la valeur chiffre de style "1" par une valeur texte du type "Janvier", la macro tourne et ne plante pas mais mon pied de page reste vide..
Si besoin de plus de précisions je me tiens à votre disposition, et merci d'avance pour votre aide
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 Mels,
Et pourquoi ne pas avoir publié ici, ton code qui fonctionne... nous pourrions nous attarder seulement sur ta problématique spécifique de ton code.
Salutations!
"mels" a écrit dans le message de news:
Bonjour à tous,
Après une lecture attentive des différents posts sur ce forum, j'ai pu apprendre énormément de trucs et astuces pour la mise en forme de mes docs excel avec VBA.
Je m'y connais un tout petit peu en VB donc j'ai utilisé vos solutions que j'ai essayé ensuite de modifier à ma sauce afin de faire quelque chose qui n'a pas (à ma connaissance) encore été demandé sur le forum, mais sans succès.
J'aimerais effectivement, que sur chacun de mes pieds de page, un texte différent s'affiche.
En gros le but du jeu serait de récupérer la valeur du numéro de page et en fonction de la valeur, la remplacer par un texte.
Par exemple, remplacer le "1" de &P par "première page" , le 2 par "seconde page", sachant qu'en fait ce sont des noms de mois que je souhaite mettre là en bas ;)
Mes codes fonctionnent mais dès que je demande un remplacement de la valeur chiffre de style "1" par une valeur texte du type "Janvier", la macro tourne et ne plante pas mais mon pied de page reste vide...
Si besoin de plus de précisions je me tiens à votre disposition, et merci d'avance pour votre aide !
Et pourquoi ne pas avoir publié ici, ton code qui fonctionne... nous pourrions nous attarder seulement sur ta problématique
spécifique de ton code.
Salutations!
"mels" <mels.1xes8s@no-mx.frbox.net> a écrit dans le message de news: mels.1xes8s@no-mx.frbox.net...
Bonjour à tous,
Après une lecture attentive des différents posts sur ce forum, j'ai pu apprendre énormément de trucs et astuces pour la mise en
forme de mes docs excel avec VBA.
Je m'y connais un tout petit peu en VB donc j'ai utilisé vos solutions que j'ai essayé ensuite de modifier à ma sauce afin de faire
quelque chose qui n'a pas (à ma connaissance) encore été demandé sur le forum, mais sans succès.
J'aimerais effectivement, que sur chacun de mes pieds de page, un texte différent s'affiche.
En gros le but du jeu serait de récupérer la valeur du numéro de page et en fonction de la valeur, la remplacer par un texte.
Par exemple, remplacer le "1" de &P par "première page" , le 2 par "seconde page", sachant qu'en fait ce sont des noms de mois que
je souhaite mettre là en bas ;)
Mes codes fonctionnent mais dès que je demande un remplacement de la valeur chiffre de style "1" par une valeur texte du type
"Janvier", la macro tourne et ne plante pas mais mon pied de page reste vide...
Si besoin de plus de précisions je me tiens à votre disposition, et merci d'avance pour votre aide !
Et pourquoi ne pas avoir publié ici, ton code qui fonctionne... nous pourrions nous attarder seulement sur ta problématique spécifique de ton code.
Salutations!
"mels" a écrit dans le message de news:
Bonjour à tous,
Après une lecture attentive des différents posts sur ce forum, j'ai pu apprendre énormément de trucs et astuces pour la mise en forme de mes docs excel avec VBA.
Je m'y connais un tout petit peu en VB donc j'ai utilisé vos solutions que j'ai essayé ensuite de modifier à ma sauce afin de faire quelque chose qui n'a pas (à ma connaissance) encore été demandé sur le forum, mais sans succès.
J'aimerais effectivement, que sur chacun de mes pieds de page, un texte différent s'affiche.
En gros le but du jeu serait de récupérer la valeur du numéro de page et en fonction de la valeur, la remplacer par un texte.
Par exemple, remplacer le "1" de &P par "première page" , le 2 par "seconde page", sachant qu'en fait ce sont des noms de mois que je souhaite mettre là en bas ;)
Mes codes fonctionnent mais dès que je demande un remplacement de la valeur chiffre de style "1" par une valeur texte du type "Janvier", la macro tourne et ne plante pas mais mon pied de page reste vide...
Si besoin de plus de précisions je me tiens à votre disposition, et merci d'avance pour votre aide !
Une sub comme ça devrait aller si tu n'as qu'une page par onglet :
Sub PdP With Sheets("Feuil1").PageSetup .LeftFooter = "Janvier" .CenterFooter = "" .RightFooter = "" End With end sub
Alors ?
michdenis
Bonjour Michael,
With Sheets("Feuil1").PageSetup .LeftFooter = "&N" End With
Il est impossible de remplacer "&N" par une fonction quelconque. En conséquence, le numéro de page "&N" fait parti du processus d'impression et il est impossible d'avoir une quelconque influence qui permettrait de substituer le numéro de page par le mois de l'année approprié.
Je ne vois pas pas comment tu pourrais arriver à tes fins avec cette façon de procéder.
Selon moi, la seule alternative exploitable, c'est d'effectuer une boucle sur des "PrintArea" prédéfini à l'avance dans la procédure. À chacun de ces "PrintArea" correspondrait un mois préféfini.
Salutations!
"Michael" a écrit dans le message de news:
Une sub comme ça devrait aller si tu n'as qu'une page par onglet :
Sub PdP With Sheets("Feuil1").PageSetup .LeftFooter = "Janvier" .CenterFooter = "" .RightFooter = "" End With end sub
Alors ?
Bonjour Michael,
With Sheets("Feuil1").PageSetup
.LeftFooter = "&N"
End With
Il est impossible de remplacer "&N" par une fonction quelconque. En conséquence, le numéro de page "&N" fait parti du processus
d'impression et il est impossible d'avoir une quelconque influence qui permettrait de substituer le numéro de page par le mois de
l'année approprié.
Je ne vois pas pas comment tu pourrais arriver à tes fins avec cette façon de procéder.
Selon moi, la seule alternative exploitable, c'est d'effectuer une boucle sur des "PrintArea" prédéfini à l'avance dans la
procédure. À chacun de ces "PrintArea" correspondrait un mois préféfini.
Salutations!
"Michael" <michael_bas@yahoo.fr> a écrit dans le message de news: eTHQ2QK2FHA.1032@TK2MSFTNGP12.phx.gbl...
Une sub comme ça devrait aller si tu n'as qu'une page par onglet :
Sub PdP
With Sheets("Feuil1").PageSetup
.LeftFooter = "Janvier"
.CenterFooter = ""
.RightFooter = ""
End With
end sub
With Sheets("Feuil1").PageSetup .LeftFooter = "&N" End With
Il est impossible de remplacer "&N" par une fonction quelconque. En conséquence, le numéro de page "&N" fait parti du processus d'impression et il est impossible d'avoir une quelconque influence qui permettrait de substituer le numéro de page par le mois de l'année approprié.
Je ne vois pas pas comment tu pourrais arriver à tes fins avec cette façon de procéder.
Selon moi, la seule alternative exploitable, c'est d'effectuer une boucle sur des "PrintArea" prédéfini à l'avance dans la procédure. À chacun de ces "PrintArea" correspondrait un mois préféfini.
Salutations!
"Michael" a écrit dans le message de news:
Une sub comme ça devrait aller si tu n'as qu'une page par onglet :
Sub PdP With Sheets("Feuil1").PageSetup .LeftFooter = "Janvier" .CenterFooter = "" .RightFooter = "" End With end sub
