Discussion :

[alex_elder1_1]

merci bcp de votre aide a tous les deux merci

[alex_elder1_1]

je l'avais aps defini en fait dc je l'ai active c con comme probleme merci tous les deux

[ouskel'n'or]

Tu peux mettre

Code :

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

Worksheets("Print preview").Range("A1").CurrentRegion.delete

Tu testes mais ce devrait être OK

Autant que possible, évite les "Select"

[alex_elder1_1]

ok je vais retenir la lecon merci ouskel'n'or

[alex_elder1_1]

nvelle question je dois lors de l'impression avoir le numero de page mais ce numero qd je le modifie ds les options est automatiquement 1 alors que je cherchais par exemple la feuille 17. y a t'il une commande pour mettre le numero de page en pied de page s'il vous plait merci

[alex_elder1_1]

dsl de vous embeter c la derniere fois pourriez vous m'aider s'il vous plait

[ouskel'n'or]

Hello, comme je l'ai dit, pour avoir les N° de pages automatiques, tu dois indiquer toute ta plage dans le Setup et indiquer le nombre de pages que tu souhaites lui voir définir.

.FitToPagesWide = 1
.FitToPagesTall = 18

J'ai essayé mon code... Quand on ajoute la ligne

" .PrintTitleRows = "$1:$1"

curieusement le nombre de lignes par page n'est plus respecté (!#§¤#&!!!) Peut-être en le plaçant avant de définir le nbre de pages.
Tu testes, je regarde de mon côté

PS - J'avais effacé mon code, celui de Bruno me paraissant plus intéressant, mais je l'ai remis mais corrige cette ligne

Code :

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

1
2
3
4
5
    If NoPage <> 0 Then
        With Plage
            .PrintOut From:=NoPage, To:=NoPage, Copies:=1, Collate:=True
        End With
    End If

[alex_elder1_1]

le probleme c'est que j'ai mis le code de bruno parce que ca me permet de definir une page avec 23 caracteres pour imprimer ce que je vux donc et pas une page avec tout le contenu. c pour ca que ca ne tient pas compte du nombre de pages.

[alex_elder1_1]

ca ne met pas le num de page ca met 176 le title rows dsl en fait il me faut le numero de page

[Invité]

Ce qu'il faut c'est mettre à jour l'entête de page, avec le numéro saisi

Code :

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

1
2
3
4
5
6
With ActiveSheet.PageSetup
  .PrintTitleRows = "$1:$1"
  .LeftHeader = ""
  .CenterHeader = ""
  .RightHeader = "Page : " & NumPge
End With

Voilà

[ouskel'n'or]

Mon code ne te fait pas imprimer toutes les pages, il fait la mise en page de toute ta plage, puis, imprime la page sélectionnée, avec son N° de page. Mais je te laisse avec Bruno qui a l'air de savoir

[alex_elder1_1]

encore merci a tous les deux