Rapport de message :*
 

Re: recopier une ligne

Titre du sujet : Re: recopier une ligne
par Mth le 15/11/2009 18:07:25

re,

Dan, si cela peut t'être utile, voici un lien vers le site de Microsoft présentant le pack de conversion. Une fois installé il permet d'ouvrir les fichiers 2007 avec les versions antérieures, ce qui rend bien des services.

Claude40, comme tu ne précises pas si tu veux insérer ta ligne à chaque tableau, ou une seule fois, ou autre, voici un petit aménagement qui permet d'insérer deux lignes après chaque petit tableau, au cas où. Comme je l'ai dit tout à l'heure, insérer une seule ligne à chaque fois oblige à trouver un autre test car Target.Row Mod 2 = 0 ne fonctionnera plus.

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 + 2).Copy
                Range("A" & Lg + 3).Insert Shift:=xlDown
                Range("A" & Lg + 3 & ":V" & Lg + 5).Cells.SpecialCells _
                 (xlCellTypeConstants).ClearContents
                Range("A" & Lg + 3) = Range("A" & Lg - 1)
                Range("C" & Lg + 3) = Range("C" & Lg - 1)
            End If
    End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
End Sub
 

Pour ma part je fais une pause, le temps que tu réfléchisses bien à ce que tu veux obtenir, parce là effectivement ça devient un peu brouillon et nous perdons du temps à faire et refaire.
Prends le temps nécessaire à bien clarifier tes idées, tu peux aussi essayer de tester tout ça toi même, en modifiant et en voyant le résultat.

A bientôt et bonne soirée à tous,

mth