Positionnement en dernière ligne code VBA

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 26 Novembre 2017

• #2

Bonjour

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

Cordialement

Code:

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

 

Vote positif 0 Vote négatif

Solution

C

ChantalTreize

XLDnaute Occasionnel

• 26 Novembre 2017

• #3

Un grand merci ça fonctionne bien
Chantal

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Novembre 2017

• #4

Bonjour le fil, le forum

Une autre façon de faire

VB:

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

 

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 26 Novembre 2017

• #5

Merci pour ta réponse
Chantal

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Novembre 2017

• #6

Re

ChantalTreize à dit:

Merci pour ta réponse
Chantal

Cliquez pour agrandir...

De rien.
Elle fonctionne sur ton PC au moins?

 

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 27 Novembre 2017

• #7

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

 

Vote positif 0 Vote négatif