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
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
A voir également:
- Reprise de code aprés exit sub
- Code asci - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Code blocks free - Télécharger - Langages
- Code windows 10 - Guide
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
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
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
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
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
7 août 2009 à 23:52
Bonjour Mélanie bravo ça marche, Merci.
Ciao.
Ciao.
