Discussion :

[etranger5]

Bonjour,

Je souhaite mettre le contenu d'une cellule (D16) en en-tête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub TEST()
   ActiveSheet.PageSetup.LeftHeader = Range("D16").Value
End Sub

Pour le moment, pas de problème, ça marche.

Par contre, j'aimerai mettre la cellule (D16) qui correspond au "nom du client" en gras, avec la police "Malgun Gothic" en taille "18"

Merci, j'en suis pas très loin mais je n'y arrive pas, j'ai testé plusieurs choses mais me manque qqch.

[Marc-L]

Bonjour !

Et en activant l'Enregistreur de macro avant d'opérer manuellement, cela donne quoi ?

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[etranger5]

Bonjour !

Et en activant l'Enregistreur de macro avant d'opérer manuellement, cela donne quoi ?

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

C'est ça le problème, ça me donne un nombre de lignes trop important. J'ai essayé de ne prendre que ce dont j'avais besoin mais la macro ne voulait plus fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub test2()
'
' test2 Macro
'
 
'
    Selection.Font.Bold = True
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = "&""Malgun Gothic,Gras""&18MOI" ' VOILA CE DONT J'AI BESOIN MAIS LE PROBLÈME C'EST CE QUI SUIT EN BAS, J'AI TENTÉ DE L'EFFACER MAIS LA MACRO NE MARCHAIT PLUS.
        .CenterHeader = ""
        .RightHeader = "Q/EN/12/L"
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.702651515151515)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .Zoom = 63
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    Range("D16").Select ' POUR REVENIR SUR LA CELLULE
End Sub

Je veux juste ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Malgun Gothic,Gras""&18"

[Marc-L]

Supprimer - ou mettre en commentaire - les lignes de code n°7, 8, 11 à 39, 41 & 42
puis exécuter en mode pas à pas si nécessaire …

[etranger5]

Supprimer - ou mettre en commentaire - les lignes de code n°7, 8, 11 à 39, 41 & 42
puis exécuter en mode pas à pas si nécessaire …

C'est presque ça mais pas encore. Je t'explique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub TEST()
'
   ActiveSheet.PageSetup.LeftHeader = Range("D16").Value
    With ActiveSheet.PageSetup
        .LeftHeader = "&""Malgun Gothic,Gras""&18 MOI"
    End With
   
End Sub

Sur la cellule, quand j'ai fait un "enregistrement de macro", en en-tête il y avait déjà écrit "MOI". Et donc de ce fait, il ne prend pas en compte la cellule D16 et me copie directement MOI en en-tête en taille 18 gras avec la police adapté.

Je pense qu'il faudrait remplacer le MOI par "D16" mais ça me met une erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.LeftHeader = "&""Malgun Gothic,Gras""&18 Mettre à cet endroit la cellule D16 avec la bonne syntaxe mais je n'y arrive pas."

Merci

[unparia]

Bonjour
Je trouve vraiment désolant que tout cela se réduise à la "difficulté" (???) élémentaire suivante :
Concaténer une chaîne de caractères, ce qu'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"&""Malgun Gothic,Gras""&18 "

avec la valeur d'une variable, ce qu'est la propriété .text de la cellule D16
Une discussion ouverte pour cela !!!
Il y a là de l'abus très net.

EDIT que personne (et surtout pas etranger5) ne vienne me dire : "élémentaire pour toi, mais pas pour tous", hein ...
Débutant ou pas débutant (et surtout si débutant) : ouvrir son aide interne VBA à la rubrique &, opérateur et lire, ainsi que la rubrique &, opérateur, exemple est un strict minimum et concaténer est ce que tout débutant a appris en général dans la toute première heure de son apprentissage