Macro, boite de message, En-tête

PascalXLD

XLDnaute Barbatruc

• 17 Février 2006

• #2

Bonjour

tu peux les entrer en passant par des variables

exemple :

monnom=inputbox('entrez le nom')
monprenom=inputbox('entrez le prénom')

 

Vote positif 0 Vote négatif

C

C.H.U

Guest

• 17 Février 2006

• #3

Voici ce que j'ai tapé:

With ActiveSheet.PageSetup
.LeftHeader = Mission = InputBox('Nom de la Filiale')

Le truc c'est qu'en réponse il me marque TRUE ...

J'ai du louper quelque chose :S

 

Vote positif 0 Vote négatif

J

jeromegmc

XLDnaute Occasionnel

• 17 Février 2006

• #4

Salut,

Petit correction, et ça devrait marcher mieux:

Code:

mission = InputBox('Nom de la Filiale')
With ActiveSheet.PageSetup
.LeftHeader = mission
End With

A+

 

Vote positif 0 Vote négatif

C

C.H.U

Guest

• 17 Février 2006

• #5

Merci. Et comment définir la taille de police car j'aessayé: '&8&Mission' j'arrive à 'ission'

Quelqu'aurait une solution ?

Merci d'avance

 

Vote positif 0 Vote négatif

jeffe

XLDnaute Impliqué

• 17 Février 2006

• #6

Bonjour, regarde si ca te vas [file name=chuentete.zip size=8279]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/chuentete.zip[/file]

 

Pièces jointes

• chuentete.zip

  8.1 KB · Affichages: 30

Vote positif 0 Vote négatif

C

C.H.U

Guest

• 17 Février 2006

• #7

Superbe ça marche. Merci beaucoup Jeffe :woohoo:

 

Vote positif 0 Vote négatif