Reprise de code aprés exit sub

Bonsoir,

Réaménage ton code comma ca :

If Range("D15").Value <> 0 Then
Range("A1:D15").Select
Selection.PrintOut Copies:=3, Collate:=True
end if
If Range("D32").Value <>0 Then
Range("A16:D32").Select
Selection.PrintOut Copies:=3, Collate:=True
end if
If Range("D48").Value <> 0 Then
Range("A34:D48").Select
Selection.PrintOut Copies:=3, Collate:=True
end if
If Range("D64").Value <> 0 Then
Range("A50:D64").Select
Selection.PrintOut Copies:=3, Collate:=True
end if
End Sub

Bonjour,

il faut que tu fasses une boucle.

par exemple si tu sais combien tu as de tableaux
a= nbre tableaux

for b=0 to a
'tu mets ton code qui cherche tes tableaux et les imprime si c >0
next b

Bonjour
Voici mon code il bloque quand par exemple D15=0 l'exécution de la macro prend fin grâce à "Exit SUB", ce que je cherche comment je pourrai faire continuer la macro.

Sub Imprimertout()
'
' Imprimertout Macro
' Macro enregistrée le 31/07/2009 par Bigcortex
'
' Touche de raccourci du clavier: Ctrl+t
'
If Range("D15").Value = 0 Then
Exit Sub
End If
Range("A1:D15").Select
Selection.PrintOut Copies:=3, Collate:=True
If Range("D32").Value = 0 Then
Exit Sub
End If
Range("A16:D32").Select
Selection.PrintOut Copies:=3, Collate:=True
If Range("D48").Value = 0 Then
Exit Sub
End If
Range("A34:D48").Select
Selection.PrintOut Copies:=3, Collate:=True
If Range("D64").Value = 0 Then
Exit Sub
End If
Range("A50:D64").Select
Selection.PrintOut Copies:=3, Collate:=True

End Sub

Bonjour Mélanie bravo ça marche, Merci.
Ciao.