Pb VBA afficher ligne de travaille

[marti]

Bonjour à tous !

Petite question ! je souhaite afficher dans un userbox le numéro de la derniere ligne dans laquelle je travaille

j'ai donc essayer :

Private Sub CommandButton1_Click()

Range("C65536").End(xlUp).Offset(1, 0).Select = i
On Error Resume Next
TextBox1 = i

End Sub


Malheuresement cela ne fonctionne pas , quelqu'un à une idée ? je suis certain qu'il existe un code très simple mais je suis débutant ...

Merci d'avance

 

[Pierrot93]

Re : Pb VBA afficher ligne de travaille

Bonjour,

enlève peut être le ".Select" et le "On Error Resume Next" qui permet de masquer les erreurs... mieux vaut les gérer... après tout depend où est placé ton code, ton texbox...

bonne journée
@+

 

[marti]

Re : Pb VBA afficher ligne de travaille

Effectivement je n'est plis d'erreur mais la textbox reste vide c'est un premier pas merci ! Mais comment faire pour afficher le numéro de la ligne ?

Merci d'avance

 

[Pierrot93]

Re : Pb VBA afficher ligne de travaille

Re,

pour le numéro de la ligne :

Range("C65536").End(xlUp).Offset(1, 0).Row

 

[marti]

Re : Pb VBA afficher ligne de travaille

Impeccable ! Merci ! Voici le code qui fonctionne :

Private Sub CommandButton1_Click()
Range("C65536").End(xlUp).Offset(1, 0) = i

'On Error Resume Next
i = Range("C65536").End(xlUp).Offset(1, 0).Row

TextBox1 = i
End Sub