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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour