Histoire de zoom

[bn]

Bonjour tout le monde !

Je souhaiterais que lorsque l'on sélectionne une feuille, on voit tout ce qui est écrit dedans.

Pour l'instant, j'ai ceci :

Private Sub Worksheet_Activate()
ActiveWindow.Zoom = True
End Sub

Mais il faut auparavant avoir effectué une sélection, et c'est là que je bloque. Comment faire une sélection, puisque je ne connais pas à l'avance le contenu de la feuille ?

Merci.

 

[bn]

Voilà le résultat :

Private Sub Worksheet_Activate()
Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWindow.Zoom = True
Range("A1").Select
End Sub

Cela sélectionne encore quelques lignes vides à la fin, mais c'est en gros ce que je voulais.

@+