Ouvrir feuille sur première cellule non vide d'un tableau

[libellule85]

Bonjour le forum,
j'aimerais modifier la macro ci-dessous pour qu'elle ouvre ma feuille Chèques sur la premiere cellule non vide de mon tableau et je ne sais pas comment faire 😕.
Actuellement avec celle-ci ma feuille s'ouvre sur la dernière cellule A65536 !!
Mon tableau va de la cellule A3 à F147

Private Sub Workbook_Open()
 Sheets("Chèques").Select
 Range("A3").Select
    Selection.End(xlDown).Select
 End Sub

D'avance merci pour votre aide

 

[gbinforme]

Re : Ouvrir feuille sur première cellule non vide d'un tableau

Tu peux l'obtenir ainsi :

Private Sub Workbook_Open()
 Sheets("Chèques").Activate
 Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select
End Sub

 

[job75]

Re : Ouvrir feuille sur première cellule non vide d'un tableau

Bonjour libellule85, gbinforme,

Vous avez bien dit 1ère cellule non vide :

Private Sub Workbook_Open()
Sheets("Chèques").Activate
On Error Resume Next 'si tableau vide
[A3:F147].Find("*", After:=[F147], LookIn:=xlFormulas, SearchOrder:=xlByRows).Select 'xlByColumns
 End Sub

A+

 

[libellule85]

Re : Ouvrir feuille sur première cellule non vide d'un tableau

Re gbinforme,
Je te remercie une nouvelle fois pour ta réponse c'est super.
Entre temps j'ai cherché et je viens juste de trouver (avant ta réponse) un code :
Private Sub Workbook_Open()
Dim L As Integer
L = Sheets("Chèques").Range("A65536").End(xlUp).Row
Sheets("Chèques").Select
Range("A" & L).Offset(1, 0).Select

End Sub

Je vais quand même essayer ton code..
@+

 

[libellule85]

Re : Ouvrir feuille sur première cellule non vide d'un tableau

Bonjour job75,
Merci pour ta réponse
à bientôt