Private Sub Fermer_Click()
ThisWorkbook.Close 'savechanges:=False
End Sub
Private Sub Imprime_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous
l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton
"Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois
cliquer n'importe où sur la feuille, où passer sur une autre feuille et
revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
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
j-pascal
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click()
ThisWorkbook.Close 'savechanges:úlse
End Sub
Private Sub Imprime_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez
deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît
de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur
la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
Daniel.C
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
Bonsoir.
Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur
www.cijoint.fr ?
Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click()
ThisWorkbook.Close 'savechanges:úlse
End Sub
Private Sub Imprime_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous
l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer"
disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer
n'importe où sur la feuille, où passer sur une autre feuille et revenir sur
celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
j-pascal
Bonsoir Daniel,
Le classeur est là : http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
Bonsoir Daniel,
Le classeur est là :
http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et
peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False
pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il
doit falloir shunter l'activation des feuilles (toutes le feuilles)
pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur
?
Bonsoir.
Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur
www.cijoint.fr ?
Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click()
ThisWorkbook.Close 'savechanges:úlse
End Sub
Private Sub Imprime_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous
l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton
"Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois
cliquer n'importe où sur la feuille, où passer sur une autre feuille et
revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Le classeur est là : http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
Daniel.C
Toujours pas de problème. Si tu utilises XL2007, as-tu installé les dernières MAJ ? Il m'avait semblé qu'il pouvait y avoir des problèmes de ce genre, mais ma mémoire peut me jouer des tours. Daniel
Bonsoir Daniel,
Le classeur est là : http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
Toujours pas de problème. Si tu utilises XL2007, as-tu installé les
dernières MAJ ? Il m'avait semblé qu'il pouvait y avoir des problèmes
de ce genre, mais ma mémoire peut me jouer des tours.
Daniel
Bonsoir Daniel,
Le classeur est là :
http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être
même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour
améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir
shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet
"psychédélique" ... Peut-être un petit commutateur ?
Bonsoir.
Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur
www.cijoint.fr ?
Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click()
ThisWorkbook.Close 'savechanges:úlse
End Sub
Private Sub Imprime_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous
l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton
"Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois
cliquer n'importe où sur la feuille, où passer sur une autre feuille et
revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Toujours pas de problème. Si tu utilises XL2007, as-tu installé les dernières MAJ ? Il m'avait semblé qu'il pouvait y avoir des problèmes de ce genre, mais ma mémoire peut me jouer des tours. Daniel
Bonsoir Daniel,
Le classeur est là : http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
isabelle
bonjour Jp,
essaie en modifiant la propriété des boutons TakeFocusOnClick à False
isabelle
j-pascal a écrit :
Bonsoir Daniel,
Le classeur est là : http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
bonjour Jp,
essaie en modifiant la propriété des boutons TakeFocusOnClick à False
isabelle
j-pascal a écrit :
Bonsoir Daniel,
Le classeur est là :
http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et
peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False
pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il
doit falloir shunter l'activation des feuilles (toutes le feuilles)
pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir.
Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur
www.cijoint.fr ?
Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click()
ThisWorkbook.Close 'savechanges:úlse
End Sub
Private Sub Imprime_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît
(vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le
bouton "Fermer" disparaît de la feuille ! Pour le faire
réapparaître, je dois cliquer n'importe où sur la feuille, où
passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
essaie en modifiant la propriété des boutons TakeFocusOnClick à False
isabelle
j-pascal a écrit :
Bonsoir Daniel,
Le classeur est là : http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
j-pascal
Excel 2002, et pour l'instant ça me suffit ...
Mystère !
Toujours pas de problème. Si tu utilises XL2007, as-tu installé les dernières MAJ ? Il m'avait semblé qu'il pouvait y avoir des problèmes de ce genre, mais ma mémoire peut me jouer des tours. Daniel
Bonsoir Daniel,
Le classeur est là : http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
Excel 2002, et pour l'instant ça me suffit ...
Mystère !
Toujours pas de problème. Si tu utilises XL2007, as-tu installé les dernières
MAJ ? Il m'avait semblé qu'il pouvait y avoir des problèmes de ce genre, mais
ma mémoire peut me jouer des tours.
Daniel
Bonsoir Daniel,
Le classeur est là :
http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et
peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour
améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit
falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter
l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir.
Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur
www.cijoint.fr ?
Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click()
ThisWorkbook.Close 'savechanges:úlse
End Sub
Private Sub Imprime_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous
l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton
"Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois
cliquer n'importe où sur la feuille, où passer sur une autre feuille et
revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Toujours pas de problème. Si tu utilises XL2007, as-tu installé les dernières MAJ ? Il m'avait semblé qu'il pouvait y avoir des problèmes de ce genre, mais ma mémoire peut me jouer des tours. Daniel
Bonsoir Daniel,
Le classeur est là : http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
j-pascal
Génial(e) !
Merci bcp Isabelle ++
jp
bonjour Jp,
essaie en modifiant la propriété des boutons TakeFocusOnClick à False
isabelle
j-pascal a écrit :
Bonsoir Daniel,
Le classeur est là : http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
Merci pour votre aide.
JP
Génial(e) !
Merci bcp Isabelle ++
jp
bonjour Jp,
essaie en modifiant la propriété des boutons TakeFocusOnClick à False
isabelle
j-pascal a écrit :
Bonsoir Daniel,
Le classeur est là :
http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et
peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour
améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit
falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter
l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir.
Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur
www.cijoint.fr ?
Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click()
ThisWorkbook.Close 'savechanges:úlse
End Sub
Private Sub Imprime_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous
l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton
"Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois
cliquer n'importe où sur la feuille, où passer sur une autre feuille et
revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
essaie en modifiant la propriété des boutons TakeFocusOnClick à False
isabelle
j-pascal a écrit :
Bonsoir Daniel,
Le classeur est là : http://cjoint.com/?gdtqnN65Tk
Il est en cours d'élaboration ... A ce stade, c'est pas terrible et peut-être même que ça ne le sera jamais ;-)
Merci
jp
PS : je ne sais pas où mettre le Application.ScreenUpdating = False pour améliorer l'affichage à l'ouverture du classeur. Je pense qu'il doit falloir shunter l'activation des feuilles (toutes le feuilles) pour éviter l'effet "psychédélique" ... Peut-être un petit commutateur ?
Bonsoir. Je ne rencontre pas ce problème. Peux-tu charger ton classeur sur www.cijoint.fr ? Daniel
Boutons issus de la boîte outils de contrôle ...
Bonjour,
Sur une feuille, j'ai ces deux boutons :
Private Sub Fermer_Click() ThisWorkbook.Close 'savechanges:úlse End Sub Private Sub Imprime_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub
Si je clique sur "Imprime", l'aperçu avant impression apparaît (vous l'aviez deviné ;-) ) et si je ne lance pas l'impression, le bouton "Fermer" disparaît de la feuille ! Pour le faire réapparaître, je dois cliquer n'importe où sur la feuille, où passer sur une autre feuille et revenir sur celle-ci ...
j'ai essayé avec un DoEvents, mais ça ne fonctionne pas !
