ligne vers le bas en VBA

[xavier]

re bonjour a tous

encor un problème! voila je voudrait lorsque je valide un userform, que les information soit noter ligne par ligne et surtout les une en dessous des autres. dans ce que j'ai fait, il m'insère bien les ligne mais voila la ligne 1 devient la ligne 2 etc..

voila le code :

Dim I As Integer
I = ActiveCell.row
I = Worksheets("Liste_absent").Range("A200" & I).End(xlUp).row
Range("A5:A" & I).Select
Rows(I & ":" & I).Insert shift:=xlUp
Range("A" & I - 1 & ":H" & I - 1).AutoFill Destination:=Range("A" & I - 1 & ":H" & I), Type:=xlFillDefault
Worksheets("Liste_absent").Range("A" & I).Value = TextBox1.Value
Worksheets("Liste_absent").Range("D" & I).Value = TextBox2.Value
Worksheets("Liste_absent").Range("E" & I).Value = TextBox3.Value
Worksheets("Liste_absent").Range("F" & I).Value = TextBox4.Value
Worksheets("Liste_absent").Range("G" & I).Value = TextBox5.Value
Worksheets("Liste_absent").Range("H" & I).Value = ComboBox2.Value

ActiveWorkbook.Save
Unload Liste_absent
Load Menu_Moyens
Menu_Moyens.Show
end sub

et pour augmenté la difficulté, je voudrait qu'il m'incère les lignes a partir de la cellule A6 meme si une autre cellule est sélectioné.


merci d'avance

@+ xavier

 

[Robert]

Salut Xavier, salut le forum,

Si j'ai bien compris ton problème (c'est pas sûr du tout...), voici ta macro que j'ai modifiée :

Dim I As Integer
I = Worksheets("Liste_absent").Range("A200").End(xlUp).Row
Range(Cells(I, 1), Cells(I, 8)).Copy Destination:=Cells(I + 1, 1)
Worksheets("Liste_absent").Range("A" & I + 1).Value = TextBox1.Value
Worksheets("Liste_absent").Range("D" & I + 1).Value = TextBox2.Value
Worksheets("Liste_absent").Range("E" & I + 1).Value = TextBox3.Value
Worksheets("Liste_absent").Range("F" & I + 1).Value = TextBox4.Value
Worksheets("Liste_absent").Range("G" & I + 1).Value = TextBox5.Value
Worksheets("Liste_absent").Range("H" & I + 1).Value = ComboBox2.Value

ActiveWorkbook.Save
Unload Liste_absent
Load Menu_Moyens
Menu_Moyens.Show

À plus,

Robert

 

[xavier]

salut robert

ça marche impec

merci bien @ ++

xavier