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
|