Rapport de message :*
 

Re: recopier une ligne

Titre du sujet : Re: recopier une ligne
par Mth le 15/11/2009 15:05:21

re,

Un essai avec ce code à la place du code de tout à l'heure (j'ai modifié la ligne en rouge):
Private Sub Worksheet_Change(ByVal Target As Range) 'code pour copie de ligne a revoir
Dim Lg As Integer
Lg = ActiveCell.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
 

Dans ton fichier tu demandes si tu peux rajouter une ligne au dessus du tableau, tu veux dire entre le jaune et le bleu? ou à chaque insertion? ou en entête?
A priori une ligne non, car ça va décaler les lignes paires et impaires, mais deux lignes sans doute oui, le tout est de savoir où, peux-tu préciser?

Cordialement,

mth