Affichage des feuilles/Userform et autres paramètres

Bonjour à tous,

Je viens de finir un grand projet sur Excel qui comporte des macros. On y retrouve plusieurs feuilles ainsi que des userform.

Pour cloturer ce projet, j'aimerais adapter l'affichage de mes userform et feuille en fonction de l'écran de l'utilisateur. En effet, mon ecran est plus petit que la plupart des futurs utilisateurs ce qui fait que j'ai adapté l'ensemble de mes feuilles et userform en fonction de mon écran.

Auriez-vous une fonction pour chacune des demandes suivantes :

- Fonction permettant à la userform de s'adapter à la taile de l'écran de l'utilisateur

- Fonction permettant, au changement de feuille du à la macro, de renvoyer l'utilisateur en haut de la feuille qui vient de s'ouvrir (et non pas de le renvoyer à l'endroit de la dernière modification comme c'est mon cas actuellement)

Merci pour votre aide !

Bonjour

Code a mettre dans This Workbook

Private Sub Workbook_Open()
  Dim Sht As Worksheet
  ' Pour chaque feuille du classeur
  For Each Sht In ThisWorkbook.Sheets
    ' Selectionner les cellules non vide
    Sht.Cells.CurrentRegion.Select
    ' Appliquer le zoom
    ActiveWindow.Zoom = True
    ' Sélectionner A1
    Sht.range("A1").Select
  Next Sht
End Sub

Cordialement

Merci beaucoup Joco, je teste ça tout à l'heure et je reviens vers toi au plus vite.

Encore merci

Bonjour

Si cela te convient tu passes le sujet en résolu.

Cordialement

Bonjour,

J'ai essayé ta macro mais un message d'erreur s'affiche : "La méthode Select de la classe Range a échoué"