Macro, boite de message, En-tête

[C.H.U]

Bonjour,

Voici l'histoire. Je voudrais créer une macro qui affiche une boîte de dialogue permettant de rentrer des infos (A, B, C, D, ...) qui seront ensuite utilisée pour les en-tête et pied de page.

Pour le moment j'ai une macro qui remplis une bonne partie des En-tête et pied de page mais est-ce possible de le développer ?

Merci d'avance.

 

[PascalXLD]

Bonjour

tu peux les entrer en passant par des variables

exemple :

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

 

[C.H.U]

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

 

[jeromegmc]

Salut,

Petit correction, et ça devrait marcher mieux:

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

A+

 

[C.H.U]

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

Quelqu'aurait une solution ?

Merci d'avance

 

[jeffe]

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]

 

[C.H.U]

Superbe ça marche. Merci beaucoup Jeffe :woohoo: