insertion de ligne a partir de la dernière lingne non vide

[xavier]

salut à tous

j'ai encor un petit problème qui doit a mon avis etre basic a résoudre pourtant je trouve po la solution.

voila mon problème j'insère à l'aide d'un USF et de texbox des ligne dans une feuille tout se passe bien elle s'incère les une sous les autres sans problème toutefois lorsque j'enregistre, l'insertion ne se fait plus a partir de la dernière ligne enregistrer mais il reprend depuis le début comment pourais-je me dépatouiller de tout ça.

ci dessous le code que j'utilise

Private Sub CommandButton1_Click() 'enregistrer
ActiveWorkbook.Save
Unload Liste_absent
Load Menu_Moyens
Menu_Moyens.Show
End Sub

Private Sub CommandButton2_Click() 'valider
Dim I As Integer
I = Worksheets("Liste_absent").Range("A200").End(xlUp).row
Range(Cells(I, 1), Cells(I, 7)).Copy Destination:=Cells(I + 1, 1)
Worksheets("Liste_absent").Range("A" & I + 1).Value = TextBox1.Value
Worksheets("Liste_absent").Range("B" & I + 1).Value = TextBox2.Value
Worksheets("Liste_absent").Range("C" & I + 1).Value = TextBox3.Value
Worksheets("Liste_absent").Range("D" & I + 1).Value = TextBox4.Value
Worksheets("Liste_absent").Range("E" & I + 1).Value = TextBox5.Value
Worksheets("Liste_absent").Range("F" & I + 1).Value = ComboBox2.Value
End Sub

si quelqu'un à une réponse

merci d'avance

xavier

 

[Steffi]

Je ne sais pas si cela peut t'aider, mais as-tu essayer le :
Selection.End(xlUp)
A+

 

[Robert]

Salut Xavier, Salut le Forum,

Je vois que tu as utilisé une solution que je t'avais soumise dans ton post précédent :

[<]http://www.excel-downloads.com/html/French/forum/messages/1_110448_110448.htm[>]

C'est dommage que tu n'ais pas eu l'élégance d'un remerciement...

Quant à ton nouveau problème, vérifie que l'UserForm Menu_Moyens contient la même méthode que le CommandButton2 de l'UserForm Liste_absent.

Robert

 

[xavier]

salut le forum, salut Robert

j'ai éffectivement utilisé la solution que tu m'a apporté. je m'y suis peut etre mal pris mais je t'est remercié sur le post précedent.

remerci et j'espère que tu répondra quand meme si j'ai un nouveau prob et que tu a la réponse


@++ xavier