Positionnement en dernière ligne code VBA

[ChantalTreize]

Bonjour tout le monde,
J'ai un bouton dans un Userform et je souhaiterai qu'il me positionne en dernière ligne dans la colonne A
voici mon code

' Procédure permettant d'ajouter un nouvel enregistrement

Private Sub Btnclient_Click()

Sheets("Source").Activate
Range("A1").Select
Selection.End(x1own).Select
Selection.Offset(1, 0).Select

End Sub

Merci d'avance pour votre aide
Chantal

 

[Bernard_XLD]

Bonjour

vite fait mais il y a plein d'exemples sur le forum en cherchant un peu

Cordialement

Private Sub Btnclient_Click()
Sheets("Source").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

 

[ChantalTreize]

Un grand merci ça fonctionne bien
Chantal

 

[Staple1600]

Bonjour le fil, le forum

Une autre façon de faire

Private Sub Btnclient_Click()
Application.Goto Sheets("Source").Cells(Rows.Count, 1).End(3), True
End Sub

 

[ChantalTreize]

Merci pour ta réponse
Chantal

 

[Staple1600]

Re

Merci pour ta réponse
Chantal

De rien.
Elle fonctionne sur ton PC au moins?

 

[ChantalTreize]

Désolée de n'avoir pu répondre avant
oui elle fonctionne
merci