Automatiquement copy formules quand insert nouvelle ligne manuellement (Rig

bonjour,

voici une liste, je voudrais que quand j'insère une ligne via le menu droit (click droit) la formule déja existante se copy automatiquement dans cette nouvelle ligne.

NOTE: le double click sur une cellule insert une nouvelle ligne et copy la formule, mais je voudrais que si j'utilise le click droit ca fonctionne aussi.

merci pour votre aide et efforts.

Bonjour,

Un essai ...

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Offset(1).EntireRow.Insert
    Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
    Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End Sub

ric

merci

c'est le meme code que j'ai déja sur la feuille excel.

ce que je veux: quand j'insere une ligne manuellement en cliquant menu droit - inserer une ligne, je veux que la formule se copier automatiquement.

LE DOUBLE CLICK CA MARCHE, CE N'EST PAS CA QUE JE VEUX.

Bonjour,

Je crois que j'ai mieux compris.

Un autre essai...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Integer
Dim X As Integer

    I = 8 = 1
    Application.EnableEvents = False

    X = Target.Row  ' x = la ligne sélectionnée
    Range(Cells(X - 1, "E"), Cells(X - 1, "H")).Copy Range(Cells(X, "E"), Cells(X, "H"))

    For I = 4 To 260
        Range("A" & I).Value = I - 4
    Next
    Range("A261").Value = ""
    Application.EnableEvents = True
End Sub

ric

merci beaucoup. ca fonctionne.