Conditions d'impression

Re : Conditions d'impression

Bonjour
la cellule E16 est sur feuil1 ou feuil2?
Sur feuil2
Sheets("feuil2").Select
If Range("p1").Value = 1 and range("E16")>0 Then
Impressiondossier

sur feuil1
For Each b In Range("Feuil1!b5:b400")
if range("E16").value>0 then
If b.Value = Range("n1").Value And b.Offset(0, 2).Value <> 0 Then
...etc...
endif
endif

A+ François

Re : Conditions d'impression

Merci mais il faut que la condition arrive après le else.
La première partie jusqu'au else est correct elle imprime ce que je vois à l'écran et n'imprime qu'une facture.
mais si p1 est égale à 2( ou différent de 1)
la macro imprime tout une classe d'élève et c'est la que je veux qu'elle n'imprime que ceux de la classe qui ont un total (E16) différent de $0.00.
Le E16 est sur la page 2 sur la page ou est la facture.
J'ai ajouter une partie (en rouge).
J'obtiens ce que je veux sauf que quand elle tombe sur une personne dont le solde (E16) est différent de 0.00 elle l'imprime 30 fois au lieu que d'une seule fois.
Voici ceque j'ai ajouté. Peux tu le corrigé?
Sub impniveau()
Dim retour As Integer

Sheets("feuil2").Select
If Range("p1").Value = 1 Then
Impressiondossier
Else
Dim val
val = Sheets("Feuil2").Range("R1").Value

retour = MsgBox("Voulez-vous vraiement imprimer tout le " & val & " ? ", vbYesNo + vbInformation + vbDefaultButton2, "Ecole Secondaire de Saint-Damien")
If retour = vbYes Then

For Each b In Range("Feuil1!b5:b400")
If b.Value = Range("n1").Value And b.Offset(0, 2).Value <> 0 Then
b.Offset(0, 2).Copy
Range("d3").Select
selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
If Range("e16").Value <> 0 Then
Impressiondossier

End If

Next b
End If

Merci!!