Copier valeur cellule dans textbox

Fermé
freeycap Messages postés 87 Date d'inscription lundi 27 octobre 2014 Statut Membre Dernière intervention 3 septembre 2018 - 28 nov. 2016 à 04:07
freeycap Messages postés 87 Date d'inscription lundi 27 octobre 2014 Statut Membre Dernière intervention 3 septembre 2018 - 28 nov. 2016 à 04:51
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.
A voir également:

1 réponse

freeycap Messages postés 87 Date d'inscription lundi 27 octobre 2014 Statut Membre Dernière intervention 3 septembre 2018
28 nov. 2016 à 04:51
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