Ligne sélectionnée en VBA

Bonjour.
Essaie :

Sub Macro1()
ActiveCell.EntireRow.Insert Shift:=xlDown
Range("A" & ActiveCell.Row - 1 & ":K" & ActiveCell.Row - 1). _
AutoFill Destination:=Range("A" & ActiveCell.Row - 1 & ":K" & _
ActiveCell.Row), Type:=xlFillDefault
Range("H" & ActiveCell.Row) = "0.5"
Range("H" & ActiveCell.Row + 1) = "0.5"
End Sub

Cordialement.
Daniel

Bonjour,

Par l'enregistreur de macro j'obtiens ceci pour insérer une ligne et y
rajouter quelques trucs...
Sub Macro1(insere)

Rows("14:14").Select
Selection.Insert Shift:=xlDown
Range("A13:K13").Select
Selection.AutoFill Destination:=Range("A13:K14"), Type:=xlFillDefault
Range("A13:K14").Select
Range("H14").Select
ActiveCell.FormulaR1C1 = "0.5"
Range("H15").Select
ActiveCell.FormulaR1C1 = "0.5"
End Sub

Mais voilà ce ne sera pas spécialement la ligne 14, mais celle que j'aurai
sélectionnée.

Je n'arrive pas à retrouver la syntaxe.

Merci de votre aide.

DV

Sub test1()
Dim Rg As Range
Set Rg = ActiveCell.EntireRow
With Rg
.Insert shift:=xlDown
.Cells(1, 1).Offset(-2).Resize(, 11).Copy .Cells(0, 1)
.Cells(0, "H").Resize(2) = "0.5"
End With
End Sub




"David Vincent" <dvdavid.vincent@wanadoo.fr> a écrit dans le message de
news: 49649def$0$4085$ba4acef3@news.orange.fr...
Bonjour,

Par l'enregistreur de macro j'obtiens ceci pour insérer une ligne et y
rajouter quelques trucs...
Sub Macro1(insere)

Rows("14:14").Select
Selection.Insert Shift:=xlDown
Range("A13:K13").Select
Selection.AutoFill Destination:=Range("A13:K14"), Type:=xlFillDefault
Range("A13:K14").Select
Range("H14").Select
ActiveCell.FormulaR1C1 = "0.5"
Range("H15").Select
ActiveCell.FormulaR1C1 = "0.5"
End Sub

Mais voilà ce ne sera pas spécialement la ligne 14, mais celle que j'aurai
sélectionnée.

Je n'arrive pas à retrouver la syntaxe.

Merci de votre aide.

DV

Bonsoir Daniel C

Je rentre du boulot, j'essaie et Yes!!

Merci ça marche

DV

Bonsoir Michedenis
Je rentre du boulot, j'essaie et Yes!!

Merci ça marche

DV