Discussion :

[ricoree78]

bonjour

j'ai une feuille excel ou j'ai par exemple 10 lignes
a la ligne 5 par exemple j'aimerai copier 3 fois cette ligne en l'insérant donc 3 fois juste en dessous de la ligne 5 sans perdre les données des lignes 6 a 10
je me retrouverai donc avec un feuille de 13 lignes

j'espère être assez clair

si quelqu'un a une piste en VBA pour faire ceci

merci

[Marc-L]

Bonjour,

déjà en activant l'Enregistreur de macro puis en opérant manuellement, une base de code est livrée sur un plateau !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Transitoire]

Bonsoir, le code ci-dessous rempli vos conditions
Cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Test()
Range("A5:D5").Copy
Range("A6:D8").Select
Selection.Insert Shift:=xlDown
End Sub

[ricoree78]

merci de vos réponses

actuellement j'ai ce code mais il copie les lignes a la fin

Case Is = 2
Rows(i).Copy
Range("A65536").End(xlUp).Offset(1, 0).Resize(2).Select
ActiveSheet.Paste

Case Is = 3
Rows(i).Copy
Range("A65536").End(xlUp).Offset(1, 0).Resize(3).Select
ActiveSheet.Paste


y ' a t il moyen de l'adapter ?

en fonction de certaine condition sois j'insere 2 ligne soit 3 soit 4

merci