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

Michale Jasson · 23 Mars 2019

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) · 23 Mars 2019

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

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

youky(BJ)

XLDnaute Barbatruc

Discussions similaires