Rapport de message :*
 

Re: recopier une ligne

Titre du sujet : Re: recopier une ligne
par Dan le 14/11/2009 15:48:12

 Re,

Oulà, on va pas s'en sortir si on répond à deux demandes sur le même fil.

Pour Mth, essaie comme ceci :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'code pour copie de ligne a revoir
Dim Lg As Integer
Lg = Range("a1120").End(xlUp).Row
    If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing Then
        Application.EnableEvents = False
            If Target = "Fin Broyage" Then
                Range("A" & Lg & ":V" & Lg).Copy
                With Range("a" & Lg + 1)
                  .PasteSpecial Paste:=xlPasteFormats
                  .clearcontents
                  End With
            End If
    End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
End Sub

Pour claude, ta demande me fait penser à ce fil --> http://www.excel-pratique.com/forum/viewtopic.php?t=14086

Amicalement