Titre du sujet : Re: recopier une ligne par Mth le 15/11/2009 10:55:02
bonjour claude40,
On peut certainement l'écrire plus élégamment mais ce code fonctionne chez moi, je te laisse l'essayer à la place du précédent et nous dire:
Private Sub Worksheet_Change(ByVal Target As Range) 'code pour copie de ligne a revoir
Dim Lg As Integer
Lg = Range("a50").End(xlUp).Row
If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing And Target.Row Mod 2 = 0 Then
Application.EnableEvents = False
If Target <> "Fin Broyage" Then
Range("A" & Lg - 1 & ":V" & Lg).Copy
Range("A" & Lg + 1).Insert Shift:=xlDown
Range("A" & Lg + 1 & ":V" & Lg + 2).Cells.SpecialCells _
(xlCellTypeConstants).ClearContents
Range("A" & Lg + 1) = Range("A" & Lg - 1)
Range("C" & Lg + 1) = Range("C" & Lg - 1)
End If
End If
Application.EnableEvents = True
Application.CutCopyMode = False
End Sub
Bonne journée,
mth
|