Ouverture sur 1ère cellule vide

[bambi]

Bonjour à tous 😉

Pour ouvrir un classeur, j'ai inséré cette formule de Thierry dans ThisWorkbook

PrivateSub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
* * ThisWorkbook.Worksheets(1).Activate
EndSub

ça marche parfaitement, mon classeur s'ouvre sur la première feuille.

Y'a-t-il moyen de l'adapter pour, qu'en plus, le classeur s'ouvre sur la première cellule A vide de cette feuille 1?

Merci d'avance 😉

 

[Dan]

Re : Ouverture sur 1ère cellule vide

Bonjour,

essaie ceci :

Private Sub Workbook_Open()
ThisWorkbook.Worksheets(1).Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
End Sub

Code à placer en VBA dans Thisworkbook.

Bon travail

 

[bambi]

Re : Ouverture sur 1ère cellule vide

Dan, je le mets "à la place" ou "en plus" de mon code ci-dessus ?
Car j'ai un petit bug du coup sur le premier code si je mets les deux.
Et si je ne mets que le tien, j'ai le fameux saut de feuille à l'ouverture.

Merci 😉

 

[Dan]

Re : Ouverture sur 1ère cellule vide

Re,

Tu le mets à la place de l'autre.
La différence c'est ma macro te fait cela à l'ouverture tandis que celle de Thierry te fait cela avant la sauvegarde.

A te lire

 

[bambi]

Re : Ouverture sur 1ère cellule vide

Ok je vais faire comme ça et garder le tien.
C'est parfait, merci encore et bonne année 😉