Mise en page

[J.-P.]

Bonjour le forum,

Je cherche comment en selectionnant tous les onglets, que ma mise en page
ce fasse sur toute les feuilles en même temp.

Merci de votre aide.

J.-P.

 

[Lebonetletruand]

Re : Mise en page

Bonjour,

Je te conseille l'enregistreur de macro pour la mise en page. Tu reprends le texte de la macro proposée par Excel et l'intégres à ce code

Sub Miseenpage()

For Each Feuille In WorkSheets
' intégrer ton code ici

Next
End Sub

En espérant avoir répondu à ta requète
Bonsoir

 

[YANN-56]

Re : Mise en page

Bonsoir à vous,

Je dirais comme ceci pour éviter certaines déconvenues:

Private Sub CommandButton1_Click(), 'Ou autre évènement.
Dim FEUILLE As Worksheet

For Each FEUILLE In ThisWorkbook.Worksheets 'Boucle sur toutes les feuilles
              With FEUILLE.PageSetup
               '……………… Ta mise en page.
             End With
Next
End Sub

Amicalement.

Yann

 

[J.-P.]

Re : Mise en page

Merci pour le code ,mais courrier vous me le mettre dans mon fichier joint car chez moi il ne fonctionne pas.

Merci beaucoup.

 

[YANN-56]

Re : Mise en page

Je vous fais un paquet? ... C'est pour offrir?

 

[youky(BJ)]

Re : Mise en page

Bonjour la Brute, salut Yann,

J-P essai tout de même de presser la touche CTRL en selectionnant les onglets.
Ceux-ci seront selectionné et ensuite à toi de jouer sur la mise en page (marge et autres)
La zone d'impression ne sera pas accessible.
Sur ton fichier masque la colonne(celle qui à des FAUX) cela te gagneras de la place.
Bruno

 

[YANN-56]

Re : Mise en page

P.S.
Il faut aussi traduire:

mais courrier vous me le mettre dans mon fichier joint

Par:

Mais; pourriez-vous me le mettre dans mon fichier joint.

 

[bartsho]

Re : Mise en page

bonjour

j'ai fais la macro de mis en page ci dessous (en tête automatique donnée par la valeur de la cellule excel indiquée (ici D38 par exemple)).

J'aimerais arriver à faire la même chose pour "un contrôle": j'aimerais que le resultat que me renvoie la valeur de la cellule excel indiquée (tjs D38) soit celui du "controle" associée à cette cellule (menu déroulant)...

Merci d'avance

Sub MiseEnPage()

For Each Feuille In Worksheets

With Feuille.PageSetup
.RightHeader = range"D38".value
End With
Next
End Sub[/I][/I]

 

[Pierrot93]

Re : Mise en page

Bonjour,

essaye ceci :

.RightHeader = Sheets("NomFeuille").ComboBox1.value

le mieux eût été de créer ton propre fil...

bon après midi
@+