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
michdenis
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" a écrit dans le message de news: 49649def$0$4085$ 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.
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" a écrit dans le message de news: 49649def$0$4085$ 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.