Reprise de code aprés exit sub
Résolu
bigcortex
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
bigcortex Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
bigcortex Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
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
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
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é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
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
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
