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

Michale Jasson

XLDnaute Nouveau
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)

XLDnaute Barbatruc
Bonjour Jasson,
Un double click en vba sur Thisworkbook et colle le code
Bruno
VB:
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
 
Dernière édition:

Haut Bas