Ligne sélectionnée en VBA

Le
David Vincent
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18324181
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


michdenis
Le #18324961
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" 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
David Vincent
Le #18326321
Bonsoir Daniel C

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

Merci ça marche

DV
David Vincent
Le #18326311
Bonsoir Michedenis
Je rentre du boulot, j'essaie et Yes!!

Merci ça marche

DV
Publicité
Poster une réponse
Anonyme