Re : Probleme recopie de formules lors de l'insertion de ligne par macro
Hello,
on prends les memes et on recommence
je sais pas ou l'inserer!!
If Not (Intersection Is Nothing) Then
i = 9
With Sheets(target.Worksheet.Name)
For i = 9 To 55 Step 1
If .Cells(i, 8).Value = "ACHAT" Then
If IsNumeric(.Cells(i, 7)) Then
If .Cells(i, 7).Value < .Cells(4, 2).Value Then
.Range(.Cells(i, 1), .Cells(i, 7)).Copy
'Cells(9, 8).Formula = "=REMPLACER(SI(ESTNA(RECHERCHEV(TEXTE(B8,1);Cours_SRD!$A$1:$C$922,3,FAUX)),""TBD"",(RECHERCHEV(TEXTE(B8,1),Cours_SRD!$A$1:$C$922,3,FAUX))),6,5,"")"
'Cells(9, 9).Formula = "=H9*C9"
'Cells(9, 10).Formula = "=I9-G9"
'Cells(9, 11).Formula = "=J9/I9"
Sheets("portefeuille- compte").Range("A9").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("portefeuille- compte").Rows("9:9").Insert Shift:=xlDown
Rows("8:8").Select
Selection.AutoFill Destination:=Rows("8:9"), Type:=xlFillDefault
Else
End If
Else
End If
Else
End If
Next i
End With
en ligne 8 j'ai les formules
j'insert en ligne 9 les cellules de 1 a 7 d'une autre onglet. j'aimerais que les formules contenues en ligne 8 , colonne 8,9,10,11 soient recopiées.
et j'ai du mal...