Mauvais cadrage de feuille

Résolu
JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   -  
JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai mis ce code associé à un bouton ,qui fonctionne mais pas bien.
La problème est que ma feuille à l'écran au lieu de commencer ligne 28 jusque ligne 54,commence à la
ligne 15 jusque 41.
Comment supprimer ce hic
Merci pour votre aide
Cordialement

Sub semaine4()
Worksheets("Calendrier").Visible = True
Sheets("Calendrier").Select
Range("C28:G54").Select
End Sub

Configuration: Windows / Firefox 66.0

2 réponses

  1. jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
     
    Bonjour,

    La problème est que ma feuille à l'écran au lieu de commencer ligne 28 jusque ligne 54,commence à la
    ligne 15 jusque 41.

    Et donc.. quel est le souci ?
    Il suffit de modifier les coordonnées de tes cellules dans la ligne de code
    Range("C28:G54").Select 
    

    1
    1. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
       
      Bonjour
      Merci pour ta réponse
      dans le code que j'ai mis j'ai bien ta formule Range("C28:G54").Select
      Le problème c'est qu'au lieu d'avoir C28 en haut a gauche de mon elle est au milieu à gauche,
      0
    2. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
       
      ci-joint photo d'écran
      https://www.cjoint.com/c/IDwqbcDUdCk
      0
  2. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    J'ai trouvé le bon code

    Sub semaine4()
    Worksheets("Calendrier").Visible = True
    Sheets("Calendrier").Select
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 28
    Range("C28:I28").Select
    End Sub
    0