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

G

gbinforme

XLDnaute Impliqué

• 2 Juillet 2011

• #2

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

Tu peux l'obtenir ainsi :

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Juillet 2011

• #3

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

Bonjour libellule85, gbinforme,

Vous avez bien dit 1ère cellule non vide :

Code:

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+

 

Dernière édition: 2 Juillet 2011

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 2 Juillet 2011

• #4

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..
@+

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 2 Juillet 2011

• #5

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

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

 

Vote positif 0 Vote négatif