Discussion :

[toto92]

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 :

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

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

[alsimbad]

salut toto
essaye ça

Code :

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

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 :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
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  :
	
Sélectionner tout -
	Visualiser dans une fenêtre à part
	
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

[toto92]

Mouais ! Ca marche !
Merci