je veux que cet affichage soit adapté d'une manière automatique selon la taille de l'ecran de chaque machine

[Michale Jasson]

Bnjr tout le monde,

je viens de concevoir une petite application par VBA et je voulais votre aide concernant ceci:
- l'applicatif s'ouvre automatiquement sur la feuille Index (voir image jointe), et je veux interdire le défilement dans tous les sens en limitant l'affichage à la ligne 22 et la colonne AR;
- je veux que cet affichage soit adapté d'une manière automatique selon la taille de l'ecran de chaque machine.

Merci infiniment

 

[youky(BJ)]

Bonjour Jasson,
Un double click en vba sur Thisworkbook et colle le code
Bruno

Private Sub Workbook_Open()
With Feuil1 'ou Sheets("INDEX")
.[$A$1:$AR$22].Select
.ScrollArea = "$A$1:AR22"
ActiveWindow.Zoom = True
.[$A$1].Select
End With
End Sub

Edit: j'ai oublier une ligne après le With
With Feuil1 'ou Sheets("INDEX") il faut .select
.Select