En-tête : récupérer la valeur d'une cellule *et* lui appliquer un format [Excel 2000] VBA

salut J@@,

essaie comme ça,

.RightHeader = "&""Arial,Gras""&10" & Worksheets("RapDoc").Range("J4")

isabelle
------------------------------------------------------------------

Le 2011-03-24 23:37, J@@ a écrit :

Bonjour à tous/tes [Excel 2000]

Je voudrais récupérer dans l'entête la valeur de la cellule J4 de la
feuille RapDoc "et" lui appliquer un format (Arial, Gras, 10pts).

J'arrive à faire l'un "ou" l'autre, mais pas les 2.

Codé 'en dur', cela fonctionne :
.RightHeader = "&""Arial,Gras""&10Blablabla"

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

Comment faire svp?
merci
@+
J@@

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.

Que faire stp,
Merci
J@@

Le 24/03/2011 18:28, isabelle a écrit :

.RightHeader = "&""Arial,Gras""&10" & Worksheets("RapDoc").Range("J4")

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.

Que faire stp,
Merci
J@@

Le 24/03/2011 18:28, isabelle a écrit :

.RightHeader = "&""Arial,Gras""&10" & Worksheets("RapDoc").Range("J4")

Bonjour,

Essaie comme ceci :

.RightHeader = "&""Arial,Gras" & "10""" & Worksheets("RapDoc").Range("J4").Value)



MichD
--------------------------------------------

Je t'ai répondu dans ton autre fil.



MichD
--------------------------------------------

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.

isabelle
------------------------------------------------------------------

Le 2011-03-25 04:12, J@@ a écrit :

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.

Que faire stp,
Merci
J@@

Le 24/03/2011 18:28, isabelle a écrit :

.RightHeader = "&""Arial,Gras""&10" & Worksheets("RapDoc").Range("J4")

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@@

Le 25/03/2011 01:10, MichD a écrit :

Bonjour,

Essaie comme ceci :

.RightHeader = "&""Arial,Gras"& "10"""& Worksheets("RapDoc").Range("J4").Value



MichD
--------------------------------------------

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.

isabelle
------------------------------------------------------------------

Le 2011-03-25 04:12, J@@ a écrit :

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.

Que faire stp,
Merci
J@@

Le 24/03/2011 18:28, isabelle a écrit :

.RightHeader = "&""Arial,Gras""&10" & Worksheets("RapDoc").Range("J4")

Ce serait plutôt de cette façon : 2 exemples de syntaxe :

'----------------------------------------------
Sub test()

With Feuil1
With .PageSetup
'EXEMPLE 1
'Nom de la Police = "Courrier", en "Gras et italique"
'Grosseur des caractère = 20
'Couleur du texte "Rouge" (sur mon ordi)
.RightHeader = "&""Courier New,Gras italique""&20&K09-049" & Range("A1") _
Worksheets("RapDoc").Range("J4").Value

'EXEMPLE 2
'Nom de la police = "Arial", en gras seulement
'Grosseur de la police = 20
'.RightHeader = "&""Arial,Gras""&20& " & Range("a1") _
Worksheets("RapDoc").Range("J4").Value
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@@

Le 25/03/2011 01:10, MichD a écrit :

Bonjour,

Essaie comme ceci :

.RightHeader = "&""Arial,Gras"& "10"""& Worksheets("RapDoc").Range("J4").Value



MichD
--------------------------------------------

bingo
c'est un & + espace qu'il nous manquais,
au lieu de &10" il faut metre &10& "

.RightHeader = "&""Arial,Gras""&15& " & Selection

isabelle
------------------------------------------------------------------

Le 2011-03-25 12:09, J@@ a écrit :

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.

isabelle
------------------------------------------------------------------

Le 2011-03-25 04:12, J@@ a écrit :

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.

Que faire stp,
Merci
J@@

Le 24/03/2011 18:28, isabelle a écrit :

.RightHeader = "&""Arial,Gras""&10" &
Worksheets("RapDoc").Range("J4")