Bonjour,
désolé je ne pouvais te répondre plus tôt
Je comprends bien mais tu précises que le zooming_columns n'agit si le zoom est = 100 ou <> de 100 et je te rappelle que toutes mes feuilles ont des zooms différents de 100 pour un affichage optimum, donc :
"If .Zoom <> 100 Then Exit Function" indique bien que si le zoom est <> de 100, on annule la macro et comme toutes mes pages ont des zooms <> de 100, elle ne sert plus à rien ?
et si le zoom = 100, c'est idem puisque elles sont toutes différentes de 100
J'ai essayé avec <> 100, avec = 100 et même en désactivant les deux (<> 100 et = 100)
et je te confirme que certaines feuilles, qui ont été zommées pour une raison ou une autre, ne récupèrent pas le bon zoom lors de leur réactivation (affichage)
Je souhaite donc que chaque feuille activée se réaffiche avec le zoom qu'on lui demande, exemple ;
Case "Feuil1": zooming_columns .Range("A:I"): .ScrollArea = "A1:h42"
Case "Feuil2": zooming_columns .Range("A:m"): .ScrollArea = "A1:l20"
Case "Feuil3": zooming_columns .Range("A:f"): .ScrollArea = "A1:e18"
peut on aménager zooming_columns pour cela ?
merci