Label userform = dernère ligne d'un tableur

Bonjour à tous,

J'aurai besoin de votre aide sur un problème de syntaxe, je n'arrive pas a formuler mon idée dans une macro VBA.

Ci-joint un exemple imagé reprenant mon problème.

J'aimerai que lorsque je lance ma macro "ufr" mon userform récupère systématiquement les dernières infos du tableur. C'est à dire en label1 la date, en label2 la ville et en label3 l'objet.

J'ai pas mal chercher et grossièrement ce que j'aimerai c'est :

userform1.Label1.Caption = Sheets("Feuil1").Range("A1").Selection.End(xlDown).Value

Hâte de vous lire !

Bonjour,

Mettez ce code dans votre userform :

Private Sub UserForm_Initialize()
Dim dlg As Integer

With Sheets("Feuil1")
    dlg = .Range("A" & Rows.Count).End(xlUp).Row
    Label1 = .Range("A" & dlg).Value
    Label2 = .Range("B" & dlg).Value
    Label3 = .Range("C" & dlg).Value
End With
End Sub

si ok ...

Cordialement

Excellent, merci beaucoup Dan !