Impréssion sous conditions

Bonsoir,

J'ai un fichier avec plusieurs feuilles excel, je voudrai imprimer les feuilles a partir d'une feuille spécifique (par exemple: a partir de la feuille 5 et qui suit). Est-ce que il y a une macro qui me permettre de faire sa!!!

Merci.

A+

Salut le forum

Impression depuis la page 2 en mode Portrait

With Feuil1
    .PageSetup.Orientation = xlPortrait
    .PrintPreview From:=2
End With

Ou plutot imprimer certaines feuilles d'un classeur

Sub Imprime()
Dim t, i As Byte
t = Array("Feuil1", "Feuil2", "Feuil3") 'Noms des feuilles à imprimer
For i = 0 To UBound(t)
Sheets(t(i)).PrintOut
Next
End Sub

Mytå

Bonsoir,

Merci pour votre réponse, mais le bute c'est imprimer les feuilles visibles uniquement a partir de la dixième feuille du classeur (le classeur consiste de 10 feuilles visibles et à partir de la dixième feuilles 04 feuilles sont masquer, ces dernières s'affiche sous conditions)

A+

Merci pour votre aide

Bonsoir le forum,

Quelqu'un peut m'aider !!!!!!!!!!!!!!!!!!!

Merci

A+

Bonsoir

Pas très claires tes explications

galaxy201000 a écrit :

c'est imprimer les feuilles visibles uniquement a partir de la dixième feuille du classeur

Donc on imprime les feuilles visibles 11,12,13 etc...

Mais tu dis

galaxy201000 a écrit :

et à partir de la dixième feuilles 04 feuilles sont masquer

Donc les feuilles que tu veux imprimer sont masquées ?

Pourquoi tu n'utilises pas la solution de Mytå ?

Tu notes les feuilles que tu veux imprimer et tu lances la macro

Bonjour,

Quand je note les feuilles que je souhaite imprimer (Feuille 10, 11, 12, 13)

Sub Imprime()
Dim t, i As Byte
t = Array("Feuil10", "Feuil11", "Feuil12", "Feuil13") 'Noms des feuilles à imprimer
For i = 0 To UBound(t)
Sheets(t(i)).PrintOut
Next
End Sub

Est-ce que dans ce cas là on va imprimer les feuilles qui se sont visible uniquement ou toutes les feuilles quoi que se soit visible ou masquer!!!

Ex:

• Feuilles 10 Visible
• Feuille 11 Visible
• Feuille 12 masquer
• Feuille 13 masquer

Merci.

A+

Bonjour

Je pourrais te dire fais l'expérience

Mais en principe les feuilles non visibles provoquent le plantage si on veut les imprimer

Donc il faut les rendre visibles avant de les imprimer

Bonsoir,

Je voudrai imprimer la feuille 10, la feuille 11 (si elle est visible), la feuille 12 (si elle est visible), et ainsi de suite.

Et si les feuille 11, 12, 13 sont masquer dans ce cas la on va imprimer dans ce cas la la feuille 10 uniquement.

Merci.

A+

Bonsoir

A tester

Sub Imprime()
Dim t, i As Byte
  t = Array("Feuil10", "Feuil11", "Feuil12", "Feuil13") 'Noms des feuilles à imprimer
  For i = 0 To UBound(t)
    If Sheets(t(i)).Visible = xlSheetVisible Then
      Sheets(t(i)).PrintOut
    End If
  Next
End Sub

Bonsoir,

Merci pour votre support, ça marche parfaitement.

Merci