Copie automatique de lignes: problème de décalage

vgoasduff · 6 Juin 2014

Bonjour à tous,

Je demande de l'aide! En effet, suite à la mise en place d'une macro permettant de générer automatiquement des lignes identiques à la précédente, je souhaiterais que les objets (graphiques,...) puissent se décaler automatiquement vers le bas lorsque chaque nouvelle ligne est copiée.

Pour éclairer mes explications, j'y ai joint mon fichier excel, merci

Vincent

Efgé · 6 Juin 2014

Re : Copie automatique de lignes: problème de décalage

Bonjour vgoasduff et bienvenu sur le forum
Il ne faut pas copier sur la ligne du desous, il faut insérer les cellules copiées:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 1 Or Target.Row < 4 Or Target.Row > Range("A65536").End(xlUp).Row + 1 Or Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  If Target.Row = Range("A65536").End(xlUp).Row Then
    Range("A" & Target.Row & ":F" & Target.Row).Copy
    Range("A" & Target.Row + 1).Insert (xlShiftDown)
    Range("A" & Target.Row + 1 & ":E" & Target.Row + 1).ClearContents
  End If
  Application.EnableEvents = True
End Sub

Cordialement

vgoasduff · 6 Juin 2014

Re : Copie automatique de lignes: problème de décalage

Merci Efgé, problème résolu!

Cordialement

Copie automatique de lignes: problème de décalage

vgoasduff

XLDnaute Nouveau

Pièces jointes

Efgé

XLDnaute Barbatruc

vgoasduff

XLDnaute Nouveau

Discussions similaires