Rapport de message :*
 

Re: recopier une ligne

Titre du sujet : Re: recopier une ligne
par Mth le 14/11/2009 22:10:47

re,

je n'ai pas fait grand chose là dedans mais merci claude40 pour ton retour, du coup j'ai continué à chercher pour que la macro ne se déclenche que sur les lignes paires et pas toutes les cellules de la colonne A:

Private Sub Worksheet_Change(ByVal Target As Range) 'code pour copie de ligne a revoir
Dim Lg As Integer
Lg = Range("a15").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).ClearContents
            End If
    End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
End Sub


j'ai ajouté ce qui est en rouge, je ne sais pas si c'est bien mais ça a l'air de fonctionner de mon coté (cela consiste à prendre le numéro de ligne et le diviser par 2, pour voir si la division tombe juste ou s'il y a un reste )

Bonne soirée,

mth