Mais quand je récupère la valeur de la cellule J4, je n'arrive pas à lui
appliquer le format souhaité.
.RightHeader = Format(Worksheets("RapDoc").Range("J4"))
.RightHeader = Format(Worksheets("RapDoc").Range("J4").Value)
.RightHeader = Sheets("RapDoc").Range("J4").Value
Il y a aussi cette façon de faire qui est intéressante :
'------------------------------------------------------------- Sub test()
Dim Police As String Dim Taille As String Dim Texte As String
'****VARIABLES À DÉFINIR SELON TES BESOINS**** Police = "Algerian" Taille = 12 Texte = Worksheets("RapDoc").Range("J4").Value Style = "Gras italique" ' OU "Normal italique" 'OU "normal" 'ou "italique" '***********************************************
With Feuil1 With .PageSetup .CenterFooter = "&""" & Police & "," & _ Style & """&" & Taille & "& " & Texte End With .PrintPreview End With End Sub '-------------------------------------------------------------
MichD -------------------------------------------- "J@@" a écrit dans le message de groupe de discussion : imiej3$krk$
Bonjour MichD Là, tout passe, sauf le format, qui ne se règle pas.
Bon je pars au boulot, je n'ai pas accès à aioe là-bas, je fais des essais et je reviens dans une 12aine d'heures. merci pour l'aide @+ J@@
Il y a aussi cette façon de faire qui est intéressante :
'-------------------------------------------------------------
Sub test()
Dim Police As String
Dim Taille As String
Dim Texte As String
'****VARIABLES À DÉFINIR SELON TES BESOINS****
Police = "Algerian"
Taille = 12
Texte = Worksheets("RapDoc").Range("J4").Value
Style = "Gras italique" ' OU "Normal italique"
'OU "normal" 'ou "italique"
'***********************************************
With Feuil1
With .PageSetup
.CenterFooter = "&""" & Police & "," & _
Style & """&" & Taille & "& " & Texte
End With
.PrintPreview
End With
End Sub
'-------------------------------------------------------------
MichD
--------------------------------------------
"J@@" a écrit dans le message de groupe de discussion : imiej3$krk$1@speranza.aioe.org...
Bonjour MichD
Là, tout passe, sauf le format, qui ne se règle pas.
Bon je pars au boulot, je n'ai pas accès à aioe là-bas, je fais des
essais et je reviens dans une 12aine d'heures.
merci pour l'aide
@+
J@@
Il y a aussi cette façon de faire qui est intéressante :
'------------------------------------------------------------- Sub test()
Dim Police As String Dim Taille As String Dim Texte As String
'****VARIABLES À DÉFINIR SELON TES BESOINS**** Police = "Algerian" Taille = 12 Texte = Worksheets("RapDoc").Range("J4").Value Style = "Gras italique" ' OU "Normal italique" 'OU "normal" 'ou "italique" '***********************************************
With Feuil1 With .PageSetup .CenterFooter = "&""" & Police & "," & _ Style & """&" & Taille & "& " & Texte End With .PrintPreview End With End Sub '-------------------------------------------------------------
MichD -------------------------------------------- "J@@" a écrit dans le message de groupe de discussion : imiej3$krk$
Bonjour MichD Là, tout passe, sauf le format, qui ne se règle pas.
Bon je pars au boulot, je n'ai pas accès à aioe là-bas, je fais des essais et je reviens dans une 12aine d'heures. merci pour l'aide @+ J@@
Je suis bien d'accord... aurais-je droit quand même aux indulgences de Mgr ?
MichD
--------------------------------------------
"Mgr T. Plubanni" a écrit dans le message de groupe de discussion : 4d8d11bc$0$7711$ba4acef3@reader.news.orange.fr...
heu...disons .CenterFooter et n'en parlons plus....
T. P.
"MichD" <michdenis@hotmail.com> a écrit dans le message de news:
imina7$a3f$1@speranza.aioe.org...
OUPS, j'aurai dû utiliser .RightHeader au lieu de .CenterHead pour
correspondre aux besoins de ta question.
Bonjour isabelle impeccable :-) j'ai passé la journée (ou presque) à faire des tas d'essais, mais pas celui-là !! Je n'ai lu nulle part de mode d'emploi de ces espaces... Faut jouer au loto ;-) Encore merci amicalement @+ J@@
Le 25/03/2011 08:05, isabelle a écrit :
bingo c'est un & + espace qu'il nous manquais, au lieu de &10" il faut metre &10& "
OK Isabelle Merci pour cette aide je suis un peu (très) perplexe.
Bon je pars au boulot, je n'ai pas accès à aioe là-bas, je fais des essais et je reviens dans une 12aine d'heures. merci pour l'aide @+ J@@
Le 25/03/2011 02:34, isabelle a écrit :
jamais vu cela non plus, c'est vraiment bizarre ce truc, même chose pour 1g1 et 10g1 mais à une taille différente donc les chiffres avant le texte indique la taille et le & joue un rôle différent
Code de format Description &E Aligne à gauche les caractères qui suivent. &C Centre les caractères qui suivent. &D Aligne à droite les caractères qui suivent. &L Active ou désactive l'impression du double souligné. &X Active ou désactive l'impression des exposants. &Y Active ou désactive l'impression des indices. &G Active ou désactive l'impression du gras. &I Active ou désactive l'impression de l'italique. &S Active ou désactive l'impression du souligné. &B Active ou désactive l'impression du barré. &J Imprime la date du jour. &H Imprime l'heure du jour. &N Imprime le nom du document. &A Imprime le nom de l'onglet du classeur. &P Imprime le numéro de page. &P+nombre Imprime le numéro de page majoré du nombre spécifié. &P-nombre Imprime le numéro de page diminué du nombre spécifié. && Imprime un et commercial. & "nom_police" Imprime les caractères qui suivent dans la police spécifiée. N'oubliez pas de spécifier les guillemets dactylographiques. &nn Imprime les caractères qui suivent dans la taille de police spécifiée. Spécifiez une taille en points sous la forme d'un nombre à deux chiffres. &T Imprime le nombre total de pages contenues dans le document.
Après 300 000 essais : - OK s'il y a du texte en j4 - en-tête vide s'il y a des chiffres ex: 888 ou 2010-2011 - OK s'il y 1 lettre au début : a888 ou a2010-2011 - Très bizarre : --s'il y a une lettre au milieu : 2010a2011, cela donne une entête qui en 3 signes couvre 25 lignes et toute la largeur de la feuille (paysage) ???? --s'il y a une lettre à la fin : 888a, seul le a est visible, 13 lignes sur 4 colonnes ???
Qu'est ce qui coince? Jamais vu cela-[ toute aide sera appréciée, même entrelardée. merci J@@
Le 24/03/2011 19:01, J@@ a écrit :
Bonjour Isabelle
Cela fonctionne, mais seulement s'il y a du texte dans J4. Si j'ai un chiffre, ou par exemple 2010-2011 : j'obtiens une zone vide, même si je formate J4 en texte.
Bonjour isabelle
impeccable :-)
j'ai passé la journée (ou presque) à faire des tas d'essais, mais pas
celui-là !!
Je n'ai lu nulle part de mode d'emploi de ces espaces...
Faut jouer au loto ;-)
Encore merci
amicalement
@+
J@@
Le 25/03/2011 08:05, isabelle a écrit :
bingo
c'est un & + espace qu'il nous manquais,
au lieu de &10" il faut metre &10& "
OK Isabelle
Merci pour cette aide
je suis un peu (très) perplexe.
Bon je pars au boulot, je n'ai pas accès à aioe là-bas, je fais des
essais et je reviens dans une 12aine d'heures.
merci pour l'aide
@+
J@@
Le 25/03/2011 02:34, isabelle a écrit :
jamais vu cela non plus, c'est vraiment bizarre ce truc,
même chose pour 1g1 et 10g1 mais à une taille différente
donc les chiffres avant le texte indique la taille
et le & joue un rôle différent
Code de format Description
&E Aligne à gauche les caractères qui suivent.
&C Centre les caractères qui suivent.
&D Aligne à droite les caractères qui suivent.
&L Active ou désactive l'impression du double souligné.
&X Active ou désactive l'impression des exposants.
&Y Active ou désactive l'impression des indices.
&G Active ou désactive l'impression du gras.
&I Active ou désactive l'impression de l'italique.
&S Active ou désactive l'impression du souligné.
&B Active ou désactive l'impression du barré.
&J Imprime la date du jour.
&H Imprime l'heure du jour.
&N Imprime le nom du document.
&A Imprime le nom de l'onglet du classeur.
&P Imprime le numéro de page.
&P+nombre Imprime le numéro de page majoré du nombre spécifié.
&P-nombre Imprime le numéro de page diminué du nombre spécifié.
&& Imprime un et commercial.
& "nom_police" Imprime les caractères qui suivent dans la police
spécifiée. N'oubliez pas de spécifier les guillemets dactylographiques.
&nn Imprime les caractères qui suivent dans la taille de police
spécifiée. Spécifiez une taille en points sous la forme d'un nombre à
deux chiffres.
&T Imprime le nombre total de pages contenues dans le document.
Après 300 000 essais :
- OK s'il y a du texte en j4
- en-tête vide s'il y a des chiffres ex: 888 ou 2010-2011
- OK s'il y 1 lettre au début : a888 ou a2010-2011
- Très bizarre :
--s'il y a une lettre au milieu : 2010a2011, cela donne une entête qui
en 3 signes couvre 25 lignes et toute la largeur de la feuille
(paysage) ????
--s'il y a une lettre à la fin : 888a, seul le a est visible, 13
lignes sur 4 colonnes ???
Qu'est ce qui coince?
Jamais vu cela-[
toute aide sera appréciée, même entrelardée.
merci
J@@
Le 24/03/2011 19:01, J@@ a écrit :
Bonjour Isabelle
Cela fonctionne, mais seulement s'il y a du texte dans J4.
Si j'ai un chiffre, ou par exemple 2010-2011 : j'obtiens une zone
vide,
même si je formate J4 en texte.
Bonjour isabelle impeccable :-) j'ai passé la journée (ou presque) à faire des tas d'essais, mais pas celui-là !! Je n'ai lu nulle part de mode d'emploi de ces espaces... Faut jouer au loto ;-) Encore merci amicalement @+ J@@
Le 25/03/2011 08:05, isabelle a écrit :
bingo c'est un & + espace qu'il nous manquais, au lieu de &10" il faut metre &10& "
OK Isabelle Merci pour cette aide je suis un peu (très) perplexe.
Bon je pars au boulot, je n'ai pas accès à aioe là-bas, je fais des essais et je reviens dans une 12aine d'heures. merci pour l'aide @+ J@@
Le 25/03/2011 02:34, isabelle a écrit :
jamais vu cela non plus, c'est vraiment bizarre ce truc, même chose pour 1g1 et 10g1 mais à une taille différente donc les chiffres avant le texte indique la taille et le & joue un rôle différent
Code de format Description &E Aligne à gauche les caractères qui suivent. &C Centre les caractères qui suivent. &D Aligne à droite les caractères qui suivent. &L Active ou désactive l'impression du double souligné. &X Active ou désactive l'impression des exposants. &Y Active ou désactive l'impression des indices. &G Active ou désactive l'impression du gras. &I Active ou désactive l'impression de l'italique. &S Active ou désactive l'impression du souligné. &B Active ou désactive l'impression du barré. &J Imprime la date du jour. &H Imprime l'heure du jour. &N Imprime le nom du document. &A Imprime le nom de l'onglet du classeur. &P Imprime le numéro de page. &P+nombre Imprime le numéro de page majoré du nombre spécifié. &P-nombre Imprime le numéro de page diminué du nombre spécifié. && Imprime un et commercial. & "nom_police" Imprime les caractères qui suivent dans la police spécifiée. N'oubliez pas de spécifier les guillemets dactylographiques. &nn Imprime les caractères qui suivent dans la taille de police spécifiée. Spécifiez une taille en points sous la forme d'un nombre à deux chiffres. &T Imprime le nombre total de pages contenues dans le document.
Après 300 000 essais : - OK s'il y a du texte en j4 - en-tête vide s'il y a des chiffres ex: 888 ou 2010-2011 - OK s'il y 1 lettre au début : a888 ou a2010-2011 - Très bizarre : --s'il y a une lettre au milieu : 2010a2011, cela donne une entête qui en 3 signes couvre 25 lignes et toute la largeur de la feuille (paysage) ???? --s'il y a une lettre à la fin : 888a, seul le a est visible, 13 lignes sur 4 colonnes ???
Qu'est ce qui coince? Jamais vu cela-[ toute aide sera appréciée, même entrelardée. merci J@@
Le 24/03/2011 19:01, J@@ a écrit :
Bonjour Isabelle
Cela fonctionne, mais seulement s'il y a du texte dans J4. Si j'ai un chiffre, ou par exemple 2010-2011 : j'obtiens une zone vide, même si je formate J4 en texte.
Bonjour MichD Voila qui marche parfaitement. merci à toi et à l'onction de Mgr Amicalement J@@
Le 25/03/2011 08:32, MichD a écrit :
Il y a aussi cette façon de faire qui est intéressante :
'------------------------------------------------------------- Sub test()
Dim Police As String Dim Taille As String Dim Texte As String
'****VARIABLES À DÉFINIR SELON TES BESOINS**** Police = "Algerian" Taille = 12 Texte = Worksheets("RapDoc").Range("J4").Value Style = "Gras italique" ' OU "Normal italique" 'OU "normal" 'ou "italique" '***********************************************
With Feuil1 With .PageSetup .CenterFooter = "&"""& Police& ","& _ Style& """&"& Taille& "& "& Texte End With .PrintPreview End With End Sub '-------------------------------------------------------------
MichD -------------------------------------------- "J@@" a écrit dans le message de groupe de discussion : imiej3$krk$
Bonjour MichD Là, tout passe, sauf le format, qui ne se règle pas.
Bon je pars au boulot, je n'ai pas accès à aioe là-bas, je fais des essais et je reviens dans une 12aine d'heures. merci pour l'aide @+ J@@
Bonjour MichD
Voila qui marche parfaitement.
merci à toi et à l'onction de Mgr
Amicalement
J@@
Le 25/03/2011 08:32, MichD a écrit :
Il y a aussi cette façon de faire qui est intéressante :
'-------------------------------------------------------------
Sub test()
Dim Police As String
Dim Taille As String
Dim Texte As String
'****VARIABLES À DÉFINIR SELON TES BESOINS****
Police = "Algerian"
Taille = 12
Texte = Worksheets("RapDoc").Range("J4").Value
Style = "Gras italique" ' OU "Normal italique"
'OU "normal" 'ou "italique"
'***********************************************
With Feuil1
With .PageSetup
.CenterFooter = "&"""& Police& ","& _
Style& """&"& Taille& "& "& Texte
End With
.PrintPreview
End With
End Sub
'-------------------------------------------------------------
MichD
--------------------------------------------
"J@@" a écrit dans le message de groupe de discussion : imiej3$krk$1@speranza.aioe.org...
Bonjour MichD
Là, tout passe, sauf le format, qui ne se règle pas.
Bon je pars au boulot, je n'ai pas accès à aioe là-bas, je fais des
essais et je reviens dans une 12aine d'heures.
merci pour l'aide
@+
J@@
Bonjour MichD Voila qui marche parfaitement. merci à toi et à l'onction de Mgr Amicalement J@@
Le 25/03/2011 08:32, MichD a écrit :
Il y a aussi cette façon de faire qui est intéressante :
'------------------------------------------------------------- Sub test()
Dim Police As String Dim Taille As String Dim Texte As String
'****VARIABLES À DÉFINIR SELON TES BESOINS**** Police = "Algerian" Taille = 12 Texte = Worksheets("RapDoc").Range("J4").Value Style = "Gras italique" ' OU "Normal italique" 'OU "normal" 'ou "italique" '***********************************************
With Feuil1 With .PageSetup .CenterFooter = "&"""& Police& ","& _ Style& """&"& Taille& "& "& Texte End With .PrintPreview End With End Sub '-------------------------------------------------------------
MichD -------------------------------------------- "J@@" a écrit dans le message de groupe de discussion : imiej3$krk$
Bonjour MichD Là, tout passe, sauf le format, qui ne se règle pas.
Bon je pars au boulot, je n'ai pas accès à aioe là-bas, je fais des essais et je reviens dans une 12aine d'heures. merci pour l'aide @+ J@@
"MichD" <michdenis@hotmail.com> a écrit dans le message de news: imj612$cqd$1@speranza.aioe.org...
Je suis bien d'accord... aurais-je droit quand même aux indulgences de Mgr ?
MichD
--------------------------------------------
"Mgr T. Plubanni" a écrit dans le message de groupe de discussion : 4d8d11bc$0$7711$ba4acef3@reader.news.orange.fr...
heu...disons .CenterFooter et n'en parlons plus....
T. P.
"MichD" <michdenis@hotmail.com> a écrit dans le message de news:
imina7$a3f$1@speranza.aioe.org...
OUPS, j'aurai dû utiliser .RightHeader au lieu de .CenterHead pour
correspondre aux besoins de ta question.
