Reprise de code aprés exit sub

Résolu/Fermé

bigcortex Messages postés 6 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 7 août 2009 - 4 août 2009 à 21:53
bigcortex Messages postés 6 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 7 août 2009 - 7 août 2009 à 23:52

Bonjour,
j'ai crée une macro qui m'imprime les tableaux d'un fichier excel si la somme est supérieur à Zéro, mais dés qu'un tableau à une somme égale à zéro la macro s'arrête aprés exit sub.
comment faire pour que la macro continue aprés exit sub, c'est à dire imprimer les autres tableaux.
Merci d'avance

A voir également:

Reprise de code aprés exit sub
Code ascii - Guide
Code de déverrouillage oublié - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide
Code blocks - Télécharger - Langages

4 réponses

Réponse 1 / 4

melanie1324
7 août 2009 à 23:34

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

Réponse 2 / 4

melanie1324
5 août 2009 à 06:50

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

Réponse 3 / 4

bigcortex Messages postés 6 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 7 août 2009
7 août 2009 à 22:53

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

Réponse 4 / 4

bigcortex Messages postés 6 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 7 août 2009
7 août 2009 à 23:52

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

Discussions similaires

sertissage des cables rj45

Code de renvoi d'appel : Ooredo, Mobilis...