Range dernière ligne non vide

[abtony]

Bonjour tout le monde et bon dimanche a vous tous,

une petite aide,

j'ai ce code qui me donne le numéro de la dernière ligne non vide sur la feuille,
comment faire pour avoir la valeur de la cellule incrémenté d'une valeur ?

TB6.Value = Sheets("Sd_Bdd").Range("a" & "30000").End(xlUp).Row - 1

ce sont des valeur numérique de type 01310303001 et ca dois passer
à 01310303002

merci d'avance pour votre lumière.

Bonne journée a tous

 

[Cousinhub]

Re : Range dernière ligne non vide

Bonjour,
peut-être avec ce code :

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

 

[abtony]

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

 

[Cousinhub]

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 :

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

 

[abtony]

Re : Range dernière ligne non vide

re,

c'est parfait

merci beaucoup bhbh

bon dimanche