boucle

[lio]

Bonsoir le forum,

Je me suis bricolé un usf pour insérer des lignes mais je constate que ma boucle ne marche pas lorsque je souhaite insérer(copier) plusieurs lignes.

Merci pour votre aide. [file name=Test_20060429214706.zip size=14868]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20060429214706.zip[/file]

 

[pat1545.]

Salut,

ceci semble fonctionner:
For X = 1 To Nbre
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Next X

 

[lio]

Bonsoir pat1545,

Merci! Ca marche.