Discussion :

[Ghost0000]

Bonjour,

J'arrive à ouvrir la boite de dialogue permettant de modifier certaines propriétés sur une page.
Cependant, j'aimerai que lors d'un clic sur un bouton, cela ouvre bien sur la boite de dialogue, mais avec l'onglet "En-tête/Pied de page" sélectionné. (Car la boite de dialogue s'ouvre avec l'onglet "Page" d'activé...)

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Rapport").Activate
Application.Dialogs(xlDialogPageSetup).Show
'--> Ici il faudrait insérer la partie du code permettant d'avoir l'onglet "En-tête/Pied de page" activé...
Sheets("MDP").Activate
Application.ScreenUpdating = True
End Sub

Voila, le reste je sais pas comment faire pour ce bout de code ...

[cerede2000]

Bonjour à toi,

Je ne suis pas sur que tu puisse aller sélectionner l'onglet directement à l'ouverture du DialogPage.

Si le but est de pouvoir renseigner l'entête ou le pied de page il sera peut être plus simple de te faire un UserForm qui ira directement renseigné entête et pied de page

[Ghost0000]

Merci de ta réponse !!

J'ai cherché sur internet, et je n'ai rien vu me permettant de changer d'onglet à partir de cette boite de dialogue excel... (ce qui est vraiment bizarre d'ailleurs...) : Si quelqu'un possède une solution ?

Ok pour l'userform, mais c'est quel bout de code permettant de lire / ecrire dans ces en-tête/fond de page à partir de textbox ?

[cerede2000]

Regarde ici

[Ghost0000]

C'est un peu compliqué, mon userform ressemble à ça :



Ce qui me donne ce code :

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
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.LeftHeader = TextBox1.Value
ActiveSheet.PageSetup.CenterHeader = TextBox2.Value
ActiveSheet.PageSetup.RightHeader = TextBox3.Value
ActiveSheet.PageSetup.LeftFooter = TextBox4.Value
ActiveSheet.PageSetup.CenterFooter = TextBox5.Value
ActiveSheet.PageSetup.RightFooter = TextBox6.Value
End Sub
 
Private Sub CommandButton2_Click()
Unload Me
End Sub
 
Private Sub UserForm_Initialize()
TextBox1.Value = ActiveSheet.PageSetup.LeftHeader
TextBox2.Value = ActiveSheet.PageSetup.CenterHeader
TextBox3.Value = ActiveSheet.PageSetup.RightHeader
TextBox4.Value = ActiveSheet.PageSetup.LeftFooter
TextBox5.Value = ActiveSheet.PageSetup.CenterFooter
TextBox6.Value = ActiveSheet.PageSetup.RightFooter
End Sub

Cela m'affiche du code VBA dans mes textbox, y a-t-il un moyen de convertir en version "compréhensible" ?

[cerede2000]

En quoi c'est compliqué. Ton USF est parfait

Pour le code :
Entête :
Gauche :

Code :

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

ActiveSheet.PageSetup.LeftHeader = TxtBoxLeftHeader.Value

Milieu :

Code :

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

ActiveSheet.PageSetup.CenterHeader = TxtBoxCenterHeader.Value

Droite :

Code :

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

ActiveSheet.PageSetup.RightHeader = TxtBoxRightHeader.Value

Je te laisse faire le pied de page

Poste ton fichier Excel avec ton USF que l'on puisse voir.

[parmi]

Bonjour,

Nul besoin d'utiliser le Dialog si tu as un Userform
Avec le lien proposé par cerede2000, tu vas retrouver les "paramètres" pour arriver à tes fins.
Il te suffit alors de passer par PageSetup pour utiliser les données entrées dans ton Userform

Code :

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

1
2
3
4
5
6
7
8
9
 
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "Le Titre"  'ou textbox1.text
        .RightHeader = ""
        .LeftFooter = "&F"  'Nom du classeur
        .CenterFooter = ""
        .RightFooter = "&P/&N"  'numérotation de pages
    End With