[VBA] Dupliquer les lignes

Version imprimable

Bonjour

Je voudrais dupliquer N lignes en dessous d'une ligne
1) se positionner sur une ligne x ( là : je lis une valeur N )
2 ) Inserer N lignes juste en dessous de la ligne x
3 ) Copier toute la ligne x
4 ) coller toute la ligne X sur les N lignes suivantes

J'ai essayé mais j'ai des problemes au niveau de coller
mon code le voici :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub dupliquerlignes2() ' ' dupliquerlignes1 Macro ' Macro enregistrée le 05/10/2007 par toto ' Dim x As Integer Dim lignes As Integer Dim debut As Integer debut = ActiveCell.EntireRow.Select lignes = InputBox("Nombre de lignes à dupliquer ?") MsgBox "Vous avez tapé : " & lignes ActiveCell.Offset(1, 0).Select For debut = 1 To lignes Selection.Insert Shift:=xlDown Activesheet.Paste Next debut End Sub

salut toto
essaye ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub dupliquerlignes2()
Dim lignes As Integer
Dim debut As Integer
lignes = InputBox("Nombre de lignes à dupliquer ?")
For debut = 1 To lignes
With ActiveCell.EntireRow
.Offset(debut, 0).Insert Shift:=xlDown
.Copy Destination:=.Offset(debut, 0)
End With
Next debut
End Sub

bon dimanche

ps: quelque remarques

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub dupliquerlignes2()
Dim x As Integer   tu n'a pas de variable x dans ton code
Dim lignes As Integer
Dim debut As Integer
debut = ActiveCell.EntireRow.Select  cette ligne ne veut rien dire puisque debut est un nombre
lignes = InputBox("Nombre de lignes à dupliquer ?")
MsgBox "Vous avez tapé : " & lignes ce message de confirmation ne sert a rien d'autre qu'a ralentir le déroulement puisque tu rappelle le nombre tapé mais en supposant que ce ne soit pas le bon chiffre, la macro se déroulera quand même, il n'y a pas d'anulation
ActiveCell.Offset(1, 0).Select évite les select au maximum, il ne font que ralentir le code, il n'y a que quelques action comme le tri qui demande imperativement une selection

	Code:
	
1234  
cells(1,1).select
cells(1,1).copy
est égal a cells(1,1).copy
For debut = 1 To lignes
Selection.Insert Shift:=xlDown ton probleme était là. tu n'a qu'une case de selectionnée et tu insere donc une cellule au lieux d'une ligne
Activesheet.Paste
Next debut
End Sub

06/10/2007, 09h25
toto92

Mouais ! Ca marche !
Merci