Trouver la première cellule non vide

[libellule85]

Re-bonjour le forum

Actuellement, j'ai un tableau qui va de A5 à A46, et à l'ouverture de ce fichier le curseur vient se positionner sous la dernière cellule renseignée, c'est-à-dire sous la A10. Je ne sais pas comment formuler la macro (ci-dessous) pour qu'en fait le curseur aille en A7 (elle doit vérifier si il n'y a pas de cellules vides entre la dernière cellule renseignée et la première cellule du tableau la A6 dans cet exemple). D'avance merci pour votre aide.

Private Sub Workbook_Open()
Dim L As Integer
Application.ScreenUpdating = False
L = Sheets("Feuil1").Range("A46").End(xlUp).Row
Sheets("Feuil1").Select
Range("A" & L).Offset(1, 0).Select
Application.ScreenUpdating = True
End Sub

Ci-joint fichier

 

[flyonets44]

Re : Trouver la première cellule non vide

bonjour
tu pourrais écrire ceci

For i = l To 1 Step -1
If Range("A" & i) = vbnullstring Then
cells(i,1).select
End If
Next

cordialement
flyonets

 

[Pierrot93]

Re : Trouver la première cellule non vide

Bonjour,

essaye ceci, si j'ai bien compris...

With Sheets("Feuil1")
    .Range("A5:A46").Find("", .Range("A5"), xlValues, , 1, 1, 0).Select
End With

bon après midi
@+

 

[libellule85]

Re : Trouver la première cellule non vide

Bonjour flyonets44 (voisin),

Tout d'abord je te remercie pour ta réponse, mais je dois définir la variable i : je mets quoi ?

 

[libellule85]

Re : Trouver la première cellule non vide

Re bonjour Pierrot93,

Merci beaucoup pour ta réponse : une nouvelle fois tu es mon sauveur !!! C'est exactement ce que je cherchais.
Encore merci
Bon Après midi

 

[francedemo]

Re : Trouver la première cellule non vide

bonjour à tous,
j'ai essayé :

Private Sub Workbook_Open()
Range("A5").End(xlDown).Offset(1, 0).Activate
End Sub

ça a l'air de fonctionner

 

[libellule85]

Re : Trouver la première cellule non vide

Bonjour francedemo,

Merci pour ta réponse, effectivement celà fonctionne.
Bon après midi

 

[Pierrot93]

Re : Trouver la première cellule non vide

Re,

bonjour à tous,
j'ai essayé :

Private Sub Workbook_Open()
Range("A5").End(xlDown).Offset(1, 0).Activate
End Sub

ça a l'air de fonctionner

Attention, avec ce code, si a6 est vide... prendra a9 dans le fichier de notre amie....

 

[libellule85]

Re : Trouver la première cellule non vide

re,

Après essai, tu as raison Pierrot