Bonsoir,
Sur une feuille j'ai une case à cocher et je voudrais ceci :
lorsqu'elle est cochée et qu'on clique sur l'icone imprimante alors ça
imprime tout le document
lorsqu'elle n'est pas cochée et qu'on clique sur l'imprimante, ça n'imprime
que la page 1
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonsoir. Mets dans "thisworkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True If Sheets("Feuil2").CheckBox1.Value = False Then ActiveSheet.PrintOut 1, 1 Else ActiveSheet.PrintOut End If End Sub
où Sheets("Feuil2").CheckBox1 est ta case à cocher. Cordialement. Daniel "User" a écrit dans le message de news: 473b3c73$0$30486$
Bonsoir, Sur une feuille j'ai une case à cocher et je voudrais ceci : lorsqu'elle est cochée et qu'on clique sur l'icone imprimante alors ça imprime tout le document lorsqu'elle n'est pas cochée et qu'on clique sur l'imprimante, ça n'imprime que la page 1
merci par avance
Bonsoir.
Mets dans "thisworkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
If Sheets("Feuil2").CheckBox1.Value = False Then
ActiveSheet.PrintOut 1, 1
Else
ActiveSheet.PrintOut
End If
End Sub
où Sheets("Feuil2").CheckBox1 est ta case à cocher.
Cordialement.
Daniel
"User" <corter@free.fr> a écrit dans le message de news:
473b3c73$0$30486$426a74cc@news.free.fr...
Bonsoir,
Sur une feuille j'ai une case à cocher et je voudrais ceci :
lorsqu'elle est cochée et qu'on clique sur l'icone imprimante alors ça
imprime tout le document
lorsqu'elle n'est pas cochée et qu'on clique sur l'imprimante, ça
n'imprime que la page 1
Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True If Sheets("Feuil2").CheckBox1.Value = False Then ActiveSheet.PrintOut 1, 1 Else ActiveSheet.PrintOut End If End Sub
où Sheets("Feuil2").CheckBox1 est ta case à cocher. Cordialement. Daniel "User" a écrit dans le message de news: 473b3c73$0$30486$
Bonsoir, Sur une feuille j'ai une case à cocher et je voudrais ceci : lorsqu'elle est cochée et qu'on clique sur l'icone imprimante alors ça imprime tout le document lorsqu'elle n'est pas cochée et qu'on clique sur l'imprimante, ça n'imprime que la page 1
merci par avance
User
Bonsoir merci de votre réponse Cependant quand je clique sur l'imprimante ça me dit "erreur d'execution 438" Propriété ou méthode non gérée par cet objet
"Daniel.C" a écrit dans le message de news:
Bonsoir. Mets dans "thisworkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True If Sheets("Feuil2").CheckBox1.Value = False Then ActiveSheet.PrintOut 1, 1 Else ActiveSheet.PrintOut End If End Sub
où Sheets("Feuil2").CheckBox1 est ta case à cocher. Cordialement. Daniel "User" a écrit dans le message de news: 473b3c73$0$30486$
Bonsoir, Sur une feuille j'ai une case à cocher et je voudrais ceci : lorsqu'elle est cochée et qu'on clique sur l'icone imprimante alors ça imprime tout le document lorsqu'elle n'est pas cochée et qu'on clique sur l'imprimante, ça n'imprime que la page 1
merci par avance
Bonsoir
merci de votre réponse
Cependant quand je clique sur l'imprimante ça me dit
"erreur d'execution 438" Propriété ou méthode non gérée par cet objet
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OwczVdvJIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonsoir.
Mets dans "thisworkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
If Sheets("Feuil2").CheckBox1.Value = False Then
ActiveSheet.PrintOut 1, 1
Else
ActiveSheet.PrintOut
End If
End Sub
où Sheets("Feuil2").CheckBox1 est ta case à cocher.
Cordialement.
Daniel
"User" <corter@free.fr> a écrit dans le message de news:
473b3c73$0$30486$426a74cc@news.free.fr...
Bonsoir,
Sur une feuille j'ai une case à cocher et je voudrais ceci :
lorsqu'elle est cochée et qu'on clique sur l'icone imprimante alors ça
imprime tout le document
lorsqu'elle n'est pas cochée et qu'on clique sur l'imprimante, ça
n'imprime que la page 1
Bonsoir merci de votre réponse Cependant quand je clique sur l'imprimante ça me dit "erreur d'execution 438" Propriété ou méthode non gérée par cet objet
"Daniel.C" a écrit dans le message de news:
Bonsoir. Mets dans "thisworkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True If Sheets("Feuil2").CheckBox1.Value = False Then ActiveSheet.PrintOut 1, 1 Else ActiveSheet.PrintOut End If End Sub
où Sheets("Feuil2").CheckBox1 est ta case à cocher. Cordialement. Daniel "User" a écrit dans le message de news: 473b3c73$0$30486$
Bonsoir, Sur une feuille j'ai une case à cocher et je voudrais ceci : lorsqu'elle est cochée et qu'on clique sur l'icone imprimante alors ça imprime tout le document lorsqu'elle n'est pas cochée et qu'on clique sur l'imprimante, ça n'imprime que la page 1
merci par avance
Daniel.C
Bonsoir. Utilise plutôt :
Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True Application.EnableEvents = False If Sheets("Feuil2").CheckBox1.Value = False Then ActiveSheet.PrintOut 1, 1 Else ActiveSheet.PrintOut End If Application.EnableEvents = True End Sub
Il te faut au minimum un checkbox appelé "checkbox1" sur une feuille "Feuil2" Sinon, modifie le code. Daniel "User" a écrit dans le message de news: 473ca443$0$26673$
Bonsoir merci de votre réponse Cependant quand je clique sur l'imprimante ça me dit "erreur d'execution 438" Propriété ou méthode non gérée par cet objet
"Daniel.C" a écrit dans le message de news:
Bonsoir. Mets dans "thisworkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True If Sheets("Feuil2").CheckBox1.Value = False Then ActiveSheet.PrintOut 1, 1 Else ActiveSheet.PrintOut End If End Sub
où Sheets("Feuil2").CheckBox1 est ta case à cocher. Cordialement. Daniel "User" a écrit dans le message de news: 473b3c73$0$30486$
Bonsoir, Sur une feuille j'ai une case à cocher et je voudrais ceci : lorsqu'elle est cochée et qu'on clique sur l'icone imprimante alors ça imprime tout le document lorsqu'elle n'est pas cochée et qu'on clique sur l'imprimante, ça n'imprime que la page 1
merci par avance
Bonsoir.
Utilise plutôt :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
If Sheets("Feuil2").CheckBox1.Value = False Then
ActiveSheet.PrintOut 1, 1
Else
ActiveSheet.PrintOut
End If
Application.EnableEvents = True
End Sub
Il te faut au minimum un checkbox appelé "checkbox1" sur une feuille
"Feuil2"
Sinon, modifie le code.
Daniel
"User" <corter@free.fr> a écrit dans le message de news:
473ca443$0$26673$426a74cc@news.free.fr...
Bonsoir
merci de votre réponse
Cependant quand je clique sur l'imprimante ça me dit
"erreur d'execution 438" Propriété ou méthode non gérée par cet objet
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OwczVdvJIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonsoir.
Mets dans "thisworkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
If Sheets("Feuil2").CheckBox1.Value = False Then
ActiveSheet.PrintOut 1, 1
Else
ActiveSheet.PrintOut
End If
End Sub
où Sheets("Feuil2").CheckBox1 est ta case à cocher.
Cordialement.
Daniel
"User" <corter@free.fr> a écrit dans le message de news:
473b3c73$0$30486$426a74cc@news.free.fr...
Bonsoir,
Sur une feuille j'ai une case à cocher et je voudrais ceci :
lorsqu'elle est cochée et qu'on clique sur l'icone imprimante alors ça
imprime tout le document
lorsqu'elle n'est pas cochée et qu'on clique sur l'imprimante, ça
n'imprime que la page 1
Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True Application.EnableEvents = False If Sheets("Feuil2").CheckBox1.Value = False Then ActiveSheet.PrintOut 1, 1 Else ActiveSheet.PrintOut End If Application.EnableEvents = True End Sub
Il te faut au minimum un checkbox appelé "checkbox1" sur une feuille "Feuil2" Sinon, modifie le code. Daniel "User" a écrit dans le message de news: 473ca443$0$26673$
Bonsoir merci de votre réponse Cependant quand je clique sur l'imprimante ça me dit "erreur d'execution 438" Propriété ou méthode non gérée par cet objet
"Daniel.C" a écrit dans le message de news:
Bonsoir. Mets dans "thisworkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True If Sheets("Feuil2").CheckBox1.Value = False Then ActiveSheet.PrintOut 1, 1 Else ActiveSheet.PrintOut End If End Sub
où Sheets("Feuil2").CheckBox1 est ta case à cocher. Cordialement. Daniel "User" a écrit dans le message de news: 473b3c73$0$30486$
Bonsoir, Sur une feuille j'ai une case à cocher et je voudrais ceci : lorsqu'elle est cochée et qu'on clique sur l'icone imprimante alors ça imprime tout le document lorsqu'elle n'est pas cochée et qu'on clique sur l'imprimante, ça n'imprime que la page 1