dernière ligne de saisie

H

Hellboy

XLDnaute Accro

• 26 Juillet 2006

• #2

Re : dernière ligne de saisie

Bonjour a tous

Suggestion:

Private Sub Workbook_Open()
Application.Cells.SpecialCells(xlLastCell).Select
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

therafou

XLDnaute Junior

• 26 Juillet 2006

• #3

Re : dernière ligne de saisie

J'ai bien testé le bout de code que vous m'avez indiqué sur le forum.
J'ai une version Offfice Pro 2003 est cela ne fonctionne pas.
Voulez-vous le fichier pour tester ?

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 26 Juillet 2006

• #4

Re : dernière ligne de saisie

Salut,

Une autre solution avec ceci :

PHP:

Private Sub Workbook_Open()
Application.Goto Sheets("feuil1").Range(Sheets("feuil1").Range("A65536").End(xlUp).Address(0, 0))
End Sub

@+

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 26 Juillet 2006

• #5

Re : dernière ligne de saisie

Bonjour,

mets ce code dans ta macro :

Code:

Private Sub Workbook_Open()
With sheets("feuil1")
.activate
.Range("A65536").End(xlUp).Activate
End with
End Sub

Avec feuil1, le nom de la feuille concernée.

La macro doit être placée en VBA
- ALT+F11 pour accéder à VBA
- CTRL + G pour faire apparaitre la fenetre VBA Project à gauche
- double clique sur "THISWORKBOOK"
- Place le code ci-dessus
- Enregistre ton fichier et ferme le.

Bon travail.

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 26 Juillet 2006

• #6

Re : dernière ligne de saisie

re,

Juste pour dire que chez moi le code de Hellboy fonctionne. Cependant, juste une remarque qui peut aider therafou, tu dois au préalable sélectionner la feuille sur laquelle va s'ouvrir ton classeur car le code de Hellboy fonctionne sur la feuille active,

voili, voilou,

@+

Edition : Arf, le temps d'ecrire... Salut Dan

 

Dernière édition: 26 Juillet 2006

Vote positif 0 Vote négatif