XL 2013 macro sélection dernière cellule avec valeur

[Bnj]

bonjour

je possède un tableau qui débute ligne 2 (ligne d'entete) et se termine ligne 3000.
je souhaiterais un bouton qui me permet en 1 clic de placer mon curseur sur la dernière cellule de la colonne A contenant une valeur.

j'ai testé avec ce code :
Range("A" & Rows.Count).End(xlUp).Offset(1).Select

Mais cela m'amène à la ligne qui est juste en dessous de mon tableau

Pourriez vous m'éclaircir ?

 

[Jacky67]

Bonsoir,

Ceci peut-être

Sub derligne()
Application.Goto Range("A" & Rows.Count).End(xlUp)
'Ou pour mettre  la dernère ligne en tête de feuille
'Application.Goto Range("A" & Rows.Count).End(xlUp), True
End Sub

 

[Bnj]

Bonsoir et merci de ton aide

C'est mieux cela me place sur la dernière cellule du tableau de la colonne A mais pas sur la première n'ayant pas de valeur

 

[Jacky67]

Bonsoir et merci de ton aide

C'est mieux cela me place sur la dernière cellule du tableau de la colonne A mais pas sur la première n'ayant pas de valeur

RE..
..../la première n'ayant pas de valeur
La demande initiale était:
..../placer mon curseur sur la dernière cellule de la colonne A contenant une valeur.

Tester le code ci-dessous
.....

Sub derligne()
On Error Resume Next 'Pas de cellule intermédiaire vide
 Application.Goto Columns(1).SpecialCells(xlCellTypeBlanks)(1)
'Ou pour mettre cette ligne en tête de feuille
 'Application.Goto Columns(1).SpecialCells(xlCellTypeBlanks)(1), True
End Sub

Bonne nuit

 

[Bnj]

bonjour

je me suis mal exprimé. pour mieux comprendre, je joint un petit fichier exemple
lorsque je clique sur le bouton , j'aimerais (dans l'exemple) que le curseur se place sur la cellule A7
dans ta première macro, il se plaçait en A23 et maintenant en A1

désolé de l'incompréhension de départ

 

[Jacky67]

Re...
Dans l'exemple le tableau est dimensionné avec des cellules vides.
Si le tableau est dimensionné correctement cette formule
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
fonctionne sans problème.
Le tableau se re-dimensionne automatiquement au rajout de ligne

 

[mapomme]

Bonjour à tous,

Un autre essai avec deux possibilités (on reste à l'intérieur du tableau). Le code est dans module1.

 

[Bnj]

ça marche !

MERCI beaucoup !