se positionner sur la dernière ligne non vide

[Jimrcl]

Bonjour le forum,
comment se positionner automatiquement sur la dernière cellule non vide d'une colonne lorsqu'on clic sur un onglet.
Il faut mettre quoi com code
Je bloque là.
Merci.

 

[Hervé]

Bonjour

Un truc dans ce style :

Private Sub Worksheet_Activate()
Range('a' & Range('a65536').End(xlUp).Row + 1).Select
End Sub

ceci pour la colonne A par exemple/

A plus

 

[CBernardT]

Re Jimrcl et Hervé,

La même chose ou presque :

Si par exemple, chaque fois que tu actives la feuille 'feuil1', tu souhaites que la cellule non vide de la colonne 'A' soit la cellule active, tu places la macro suivante dans le module de cette feuille.

Private Sub Worksheet_Activate()
Dim Lig As Integer

With Sheets('Feuil1')
Lig = .Range('A65536').End(xlUp).Row
.Range('A' & Lig).Select
End With
End Sub

Cordialement

CBernardT

 

[Hervé]

re

bien vu , bernard, j'avais pas lu le 'non vide', dans le message de jimrcl.

Private Sub Worksheet_Activate()
Range('a65536').End(xlUp).Select
End Sub


A plus

 

[Jimrcl]

Merci beaucoup çà marche trés bien
Une question , au bout de combien de temps on devient fort comme vous 😉

 

[CBernardT]

Re Jimrcl, 🙂

Si c'est une question ?
je te répondrais avoir commencé en 1995 avec Excel4 et être aujourdhui sur Excel 11 ! Ma femme est parfois jalouse de ma fidélité à Excel. :angry: :angry: :angry:

Salut :whistle:

CBernardT

 

[_Thierry]

Bonjour Jim, Hervé, Bernard, le Forum

Tiens en prime, 'Just for the fun les gars' et aussi pour dire que passion, c'est passion !!!

Si tu veux un code qui fasse tout... Tout Automatiquement !

Trouver la derniere cellule pleine de la dernière Colonne et de la dernière Ligne sans autre détail et sur toutes les feuilles quelles qu'elles soient...Et en prime en positionnant cette dernière ligne en haut de page (C'est pour ça le '+' dans ma signature !!!)

Et bien il suffit de mettre ce code dans le Private Module de ThisWorkBook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim LastRow As Long, LastCol As Integer
    With Sh
        LastRow = .UsedRange.Rows.Count + .UsedRange.Row - 1
        LastCol = .UsedRange.Columns.Count + .UsedRange.Column - 1
        .Cells(LastRow, LastCol).Select
    End With
ActiveWindow.ScrollRow = LastRow
End Sub

Là je pense que tu devrais avoir ta solution...
Bonne Soirée
@+Thierry

Message édité par: _Thierry, à: 22/03/2005 17:29

 

[riccardovegas]

Re : Re:se positionner sur la dernière ligne non vide

Bonjour Je dois fusionner deux onglets ayant la meme structure.
ongletVSANTE
onglet VSECU

je souhaite créer un onglet qui s'apl recapvisite par exemple ou il y aura le contenu de l'onglet VSANTE et à la dernière ligne mettre à la suite le contenu de l'onglet vsecu !!!

merci