Discussion :

[P96O1004]

Voici mon code pour doubler la ligne active :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub double_ligne()
 
With Selection
        .Insert Shift:=xlToUp
End With
ActiveCell.EntireRow.Offset(1).Copy
Selection.PasteSpecial Paste:=xlPasteValues
 
Application.CutCopyMode = False
 
End Sub

Mais il insère toujours une ligne avant la ligne active. Comment faire l'inverse.
J'ai essayé :

.Insert Shift:=xlDown
.Insert Shift:=xlUp

mais ces dernier ne marchent pas.

Je crois que le problème reste très simple pour vous.

Merci par avance

[laetitia]

bonjour P96O1004 le forum peut etre comme cela!!

Code :

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

1
2
3
Sub double_ligne()
Selection.Copy Destination:=Range("A65536").End(xlUp)(2)
End Sub

[Arkham46]

bjr,

il faut faire le insert sur la ligne du dessous avec un offset :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub double_ligne()
With Selection
    .Offset(1, 0).EntireRow.Insert Shift:=xlDown
    .EntireRow.Copy
    .Offset(1, 0).EntireRow.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub

[laetitia]

re, bonjour si tu pars pas de colonne a on peut faire ca aussi

Code :

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

1
2
3
4
Sub double_ligne()
Selection.Copy: Selection.Offset(1, 0).Select
ActiveSheet.Paste: Application.CutCopyMode = False
End Sub

[P96O1004]

Mille Merci à vous

J'ai du réfléchir plus car j'ai utilisé aussi le "offset" dans mon ancien code.