Discussion :

[BBe8127]

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

[pom_poir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[CCHEVALIER]

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.

[BBe8127]

à CCHEVALIER

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

Cordialement.
Bernard

[DarkVader]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonsoir à tous

une autre possiblité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BBe8127]

à 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