Mauvais cadrage de feuille

Résolu/Fermé
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 22 avril 2019 à 14:55
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 22 avril 2019 à 18:45
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
A voir également:

2 réponses

jordane45 Messages postés 38170 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 9 mai 2024 4 661
22 avril 2019 à 17:44
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
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
22 avril 2019 à 17:58
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
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
22 avril 2019 à 18:01
ci-joint photo d'écran
https://www.cjoint.com/c/IDwqbcDUdCk
0
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
22 avril 2019 à 18:45
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