Copier valeur cellule dans textbox

freeycap Messages postés 87 Statut Membre -  
freeycap Messages postés 87 Statut Membre -
Bonjour,

A l'ouverture de mon userform2 :
Je cherche à copier la dernière cellule non-vide de la Colonne B de ma Feuil3 sur le textbox2 de mon userform2...
Et copier la derniere cellule de la colonne A de la meme feuille sur le textbox1 du meme userform...
Donc la valeur des mes textbox peuvent changer d'une fois à l'autre puisque la derniere ligne de ma feuille peut changer.

Ca parait simple ... mais ca marche pas. Voici mon code :

Private Sub UserForm_Activate()

With Feuil3
TextBox1.Value = Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row
TextBox2.Value = Sheets("Feuil3").Range("B" & Rows.Count).End(xlUp).Row
End With

End Sub

La syntaxe peut-être ???

Merci d'avance pour l'aide

Y.

1 réponse

  1. freeycap Messages postés 87 Statut Membre
     
    Merci,

    J'ai réussi à trouver le bon code pour ca :

    With Worksheets("Feuil3")
    TextBox1.Value = Range("A1").End(xlDown).Value
    TextBox2.Value = Range("B1").End(xlDown).Value
    End With

    Merci pour le temps

    Y.
    0