Entrer une valeur dans la derniere ligne non vide

[rainbow69006]

Bonjour

Dans mon exemple je souhaiterais que a chaque fois que l'on clic sur le commandbutton de l'userform alors le chiffre de la case F1 soit inscrit dans la derniere ligne non vide de la colonne A

merci de votre aide

 

[Pierrot93]

Re : Entrer une valeur dans la derniere ligne non vide

Bonjour Raimbow,

regarde le code ci dessous :

Private Sub CommandButton1_Click()
With Sheets("Sheet1")
    .Range("A65536").End(xlUp).Offset(1, 0).Value = .Range("F1").Value
End With
End Sub

bonne journée
@+

 

[rainbow69006]

Re : Entrer une valeur dans la derniere ligne non vide

Merci!!!!🙂