Positionner des cellules dans une page

Bonjour.

Existe-t'il un moyen pour une feuille Ecell de préciser quelle cellule
doit apparaitre à tel endroit.
Par exemple, je veux qu'à l'ouverture, la cellule 1 de ligne 35 soit positionnée
en haut et à gauche de ma feuille.

Merci d'avance.

Cordialement.
Bernard

Bonjour,

Je débute, donc ce que je vais te proposer ne sera surement pas la meilleure solution...

Il existe une procédure "Before_close" :

Code:

---

Private Sub Workbook_BeforeClose(Cancel As Boolean)

---

Je pense que si dans cette procédure tu demandes à ce la cellule 1 de la ligne 35 soit sélectionnée, alors à la prochaine ouverture du fichier, tu tombera avec cette cellule en haut à gauche.

Tu peux utiliser la routine

private Sub Auto_Open()

sheets(tafeuille).cells(i,j).select

end sub

Et tu regle i et j de sorte que la bonne case soit en haut à droite.

à CCHEVALIER

merci pour ta proposition.
Je teste et si je cloture sans rien redemander, c'est que ça a marché.

Cordialement.
Bernard

Code:

---

1 2 3 4 5 6

Dim myPlage As Range, origin As Range Set origin = [Feuil1!B10] Set myPlage = Range("A1").Offset(0, 0).Resize(origin.Row - 1, origin.Column - 1)   ActiveWindow.ScrollIntoView 0, 0, 100, 100, True ActiveWindow.ScrollIntoView myPlage.Width * 4 / 3, myPlage.Height * 4 / 3, 100, 100, True

---

bonsoir à tous

une autre possiblité

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open() With ActiveWindow .ScrollRow = 35 .ScrollColumn = 1 End With End Sub

---

bon we
michel

Veuillez penser à utiliser les balises de codes SVP
Voir les régles d'utilisation des forums

à Tous, Merci!

Je n'ai pas encore tout testé, mais j'ai déja fait marcher une des solutions.

Je clôture donc ce petit débat en vous remerciant encore.

Cordialement.
Bernard