Pas de zéros - donc pas de copier coller

[toune21]

Bonjour à tous,

J'ai cette petite macro pour ne pas afficher les zéros dans les onglets.

Mais on ne peut plus effectuer des copier coller.Pourquoi ?

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'quand on change de feuille
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayZeros = False
End Sub

Merci beaucoup,
Toune

 

[Pierrot93]

Re : Pas de zéros - donc pas de copier coller

Bonjour,

essaye peut être avec ceci, si bien sur le problème du copier / coller n'est effectif que lorsqu'il est fait sur des feuilles différentes... A placer dans le module "thisworkbook" du classeur en question en lieu et place du code existant, se déclenche à l'ouverture du classeur :

Option Explicit
Private Sub Workbook_Open()
Dim w As Window
For Each w In ThisWorkbook.Windows
    w.DisplayGridlines = False
    w.DisplayZeros = False
Next w
End Sub

bonne journée
@+

 

[toune21]

Re : Pas de zéros - donc pas de copier coller

Bonjour Pierrot, le forum

Ca marche, aussi bien du copier / coller : feuille à feuille, et classeur à classeur, j'ai fait les deux essais.

Merci beaucoup.
Bonne journée.