dernière ligne de saisie

[therafou]

Salut,

je cherche un moyen pour que lors de l'ouverture du fichier le curseur se place directement à la dernière ligne près à saisir les données pour ne pas déscendre avec la souris quelques 450 lignes.

Colonne A:A
avec un NB(A:A), j'arrive à avoir le nombre de cellules remplient mais pas à mettre le curceur dessus.

merci d'avance

 

[Hellboy]

Re : dernière ligne de saisie

Bonjour a tous

Suggestion:

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

 

[therafou]

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 ?

 

[porcinet82]

Re : dernière ligne de saisie

Salut,

Une autre solution avec ceci :

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

@+

 

[Dan]

Re : dernière ligne de saisie

Bonjour,

mets ce code dans ta macro :

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.

 

[porcinet82]

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