Range dernière ligne non vide

Cousinhub

XLDnaute Barbatruc

• 18 Mai 2008

• #2

Re : Range dernière ligne non vide

Bonjour,
peut-être avec ce code :

Code:

With [A65000].End(xlUp)
    .AutoFill Destination:=.Resize(2, 1), Type:=xlFillDefault
End With

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 18 Mai 2008

• #3

Re : Range dernière ligne non vide

Bonjour bhbh, merci pour ta réponse,

mais comment l'adapter dans mon code ?

Private Sub CommandButton2_Click()
TB9.Value = Date
TB6.Value = Sheets("Sd_Bdd").Range("a" & "30000").End(xlUp).Row - 1
With [A65000].End(xlUp)
.AutoFill Destination:=.Resize(2, 1), Type:=xlFillDefault
End With
End Sub

merci

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 18 Mai 2008

• #4

Re : Range dernière ligne non vide

Re-,
Pas bien lu ton code, j'avais pas remarqué que c'était pour une TextBox...

Essaie avec ceci :

Code:

TB6.Value = Format(Sheets("Sd_Bdd").[A65000].End(xlUp) + 1, "00000000000")

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 18 Mai 2008

• #5

Re : Range dernière ligne non vide

re,

c'est parfait

merci beaucoup bhbh

bon dimanche

 

Vote positif 0 Vote négatif