Nous avons réalisé des fiches technique qui sont agrémenté de couleur pour
une meilleur lisibilité sur l'écran. Pour imprimer on a recours à la
selection totale de la feuille puis dans le menu on choisi aucun
remplissage. On peut ensuite imprimer les fiches sans utiliser trop d'encre.
J'arrive a enlever les couleurs en VBA, imprimer la feuille mais je n'arrive
pas à faire un UNDO. Je suis obligé de le faire manuellement en utilisant la
fonction annuler présente dans la barre d'outil Excel. Quelqu'un aurait il
une idée ?
"infonie" a écrit dans le message de news: 41bf788d$0$10229$
Bonjour à tous,
Nous avons réalisé des fiches technique qui sont agrémenté de couleur pour une meilleur lisibilité sur l'écran. Pour imprimer on a recours à la selection totale de la feuille puis dans le menu on choisi aucun remplissage. On peut ensuite imprimer les fiches sans utiliser trop d'encre.
J'arrive a enlever les couleurs en VBA, imprimer la feuille mais je n'arrive pas à faire un UNDO. Je suis obligé de le faire manuellement en utilisant la fonction annuler présente dans la barre d'outil Excel. Quelqu'un aurait il une idée ?
"infonie" <nospam@svp.com> a écrit dans le message de news:
41bf788d$0$10229$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Nous avons réalisé des fiches technique qui sont agrémenté de couleur pour
une meilleur lisibilité sur l'écran. Pour imprimer on a recours à la
selection totale de la feuille puis dans le menu on choisi aucun
remplissage. On peut ensuite imprimer les fiches sans utiliser trop
d'encre.
J'arrive a enlever les couleurs en VBA, imprimer la feuille mais je
n'arrive pas à faire un UNDO. Je suis obligé de le faire manuellement en
utilisant la fonction annuler présente dans la barre d'outil Excel.
Quelqu'un aurait il une idée ?
"infonie" a écrit dans le message de news: 41bf788d$0$10229$
Bonjour à tous,
Nous avons réalisé des fiches technique qui sont agrémenté de couleur pour une meilleur lisibilité sur l'écran. Pour imprimer on a recours à la selection totale de la feuille puis dans le menu on choisi aucun remplissage. On peut ensuite imprimer les fiches sans utiliser trop d'encre.
J'arrive a enlever les couleurs en VBA, imprimer la feuille mais je n'arrive pas à faire un UNDO. Je suis obligé de le faire manuellement en utilisant la fonction annuler présente dans la barre d'outil Excel. Quelqu'un aurait il une idée ?
Merci d'avance
michdenis
Bonjour Infornie,
Essaie ceci :
'--------------------------- Sub ImprimerUneFeuille()
Application.ScreenUpdating = False Worksheets("Feuil1").Copy With ActiveSheet .Cells.Interior.ColorIndex = xlNone .Cells.Font.ColorIndex = xlAutomatic .PrintOut ActiveWorkbook.Close False End With End Sub '---------------------------
Salutations!
"infonie" a écrit dans le message de news: 41bf788d$0$10229$ Bonjour à tous,
Nous avons réalisé des fiches technique qui sont agrémenté de couleur pour une meilleur lisibilité sur l'écran. Pour imprimer on a recours à la selection totale de la feuille puis dans le menu on choisi aucun remplissage. On peut ensuite imprimer les fiches sans utiliser trop d'encre.
J'arrive a enlever les couleurs en VBA, imprimer la feuille mais je n'arrive pas à faire un UNDO. Je suis obligé de le faire manuellement en utilisant la fonction annuler présente dans la barre d'outil Excel. Quelqu'un aurait il une idée ?
Merci d'avance
Bonjour Infornie,
Essaie ceci :
'---------------------------
Sub ImprimerUneFeuille()
Application.ScreenUpdating = False
Worksheets("Feuil1").Copy
With ActiveSheet
.Cells.Interior.ColorIndex = xlNone
.Cells.Font.ColorIndex = xlAutomatic
.PrintOut
ActiveWorkbook.Close False
End With
End Sub
'---------------------------
Salutations!
"infonie" <nospam@svp.com> a écrit dans le message de news: 41bf788d$0$10229$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Nous avons réalisé des fiches technique qui sont agrémenté de couleur pour
une meilleur lisibilité sur l'écran. Pour imprimer on a recours à la
selection totale de la feuille puis dans le menu on choisi aucun
remplissage. On peut ensuite imprimer les fiches sans utiliser trop d'encre.
J'arrive a enlever les couleurs en VBA, imprimer la feuille mais je n'arrive
pas à faire un UNDO. Je suis obligé de le faire manuellement en utilisant la
fonction annuler présente dans la barre d'outil Excel. Quelqu'un aurait il
une idée ?
'--------------------------- Sub ImprimerUneFeuille()
Application.ScreenUpdating = False Worksheets("Feuil1").Copy With ActiveSheet .Cells.Interior.ColorIndex = xlNone .Cells.Font.ColorIndex = xlAutomatic .PrintOut ActiveWorkbook.Close False End With End Sub '---------------------------
Salutations!
"infonie" a écrit dans le message de news: 41bf788d$0$10229$ Bonjour à tous,
Nous avons réalisé des fiches technique qui sont agrémenté de couleur pour une meilleur lisibilité sur l'écran. Pour imprimer on a recours à la selection totale de la feuille puis dans le menu on choisi aucun remplissage. On peut ensuite imprimer les fiches sans utiliser trop d'encre.
J'arrive a enlever les couleurs en VBA, imprimer la feuille mais je n'arrive pas à faire un UNDO. Je suis obligé de le faire manuellement en utilisant la fonction annuler présente dans la barre d'outil Excel. Quelqu'un aurait il une idée ?
Merci d'avance
infonie
"michdenis" a écrit dans le message de news:
Bonjour Infornie,
Essaie ceci :
'--------------------------- Sub ImprimerUneFeuille()
Application.ScreenUpdating = False Worksheets("Feuil1").Copy With ActiveSheet .Cells.Interior.ColorIndex = xlNone .Cells.Font.ColorIndex = xlAutomatic .PrintOut ActiveWorkbook.Close False End With End Sub '---------------------------
Salutations!
"infonie" a écrit dans le message de news: 41bf788d$0$10229$ Bonjour à tous,
Nous avons réalisé des fiches technique qui sont agrémenté de couleur pour une meilleur lisibilité sur l'écran. Pour imprimer on a recours à la selection totale de la feuille puis dans le menu on choisi aucun remplissage. On peut ensuite imprimer les fiches sans utiliser trop d'encre.
J'arrive a enlever les couleurs en VBA, imprimer la feuille mais je n'arrive pas à faire un UNDO. Je suis obligé de le faire manuellement en utilisant la fonction annuler présente dans la barre d'outil Excel. Quelqu'un aurait il une idée ?
Merci d'avance
C'est bon ça fonctionne impeccable !!
Merci beaucoup pour cette réponse aussi rapide !
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
u12k9nj4EHA.1452@TK2MSFTNGP11.phx.gbl...
Bonjour Infornie,
Essaie ceci :
'---------------------------
Sub ImprimerUneFeuille()
Application.ScreenUpdating = False
Worksheets("Feuil1").Copy
With ActiveSheet
.Cells.Interior.ColorIndex = xlNone
.Cells.Font.ColorIndex = xlAutomatic
.PrintOut
ActiveWorkbook.Close False
End With
End Sub
'---------------------------
Salutations!
"infonie" <nospam@svp.com> a écrit dans le message de news:
41bf788d$0$10229$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Nous avons réalisé des fiches technique qui sont agrémenté de couleur pour
une meilleur lisibilité sur l'écran. Pour imprimer on a recours à la
selection totale de la feuille puis dans le menu on choisi aucun
remplissage. On peut ensuite imprimer les fiches sans utiliser trop
d'encre.
J'arrive a enlever les couleurs en VBA, imprimer la feuille mais je
n'arrive
pas à faire un UNDO. Je suis obligé de le faire manuellement en utilisant
la
fonction annuler présente dans la barre d'outil Excel. Quelqu'un aurait il
une idée ?
'--------------------------- Sub ImprimerUneFeuille()
Application.ScreenUpdating = False Worksheets("Feuil1").Copy With ActiveSheet .Cells.Interior.ColorIndex = xlNone .Cells.Font.ColorIndex = xlAutomatic .PrintOut ActiveWorkbook.Close False End With End Sub '---------------------------
Salutations!
"infonie" a écrit dans le message de news: 41bf788d$0$10229$ Bonjour à tous,
Nous avons réalisé des fiches technique qui sont agrémenté de couleur pour une meilleur lisibilité sur l'écran. Pour imprimer on a recours à la selection totale de la feuille puis dans le menu on choisi aucun remplissage. On peut ensuite imprimer les fiches sans utiliser trop d'encre.
J'arrive a enlever les couleurs en VBA, imprimer la feuille mais je n'arrive pas à faire un UNDO. Je suis obligé de le faire manuellement en utilisant la fonction annuler présente dans la barre d'outil Excel. Quelqu'un aurait il une idée ?
