copier lignes et coller dans un tableau

[bleutneut]

Bonjour,

Je souhaite savoir comment réécrire par le bais de l'usage de target offset..

le code suivant, il marche mais modifie la hauteur des colonnes présente dans mon tableau lors de l'insertion:

x = ActiveCell.Row
Range("A5:sg7").Copy
Range("A" & x & ":sg" & x + 0).Insert Shift:=xlDown
Application.CutCopyMode = False
Rows(x).RowHeight = 13.5
Rows(x + 2).RowHeight = 1.5

Les cellules copiées sont fixes ( A à SG ) pour une insertion n'importe ou dans le tableau par l'action d'un bouton

J'ai cette fonction mais elle fonctionne pour le rang au dessus. Je ne sais pas comment l'ecrire quand l'écart est alléatoire entre la cellule de référence où doivent être insérer les lignes et les lignes à copier

rivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'Eliminate Edit status due to doubleclick
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
If Target.Offset(0, 0).IndentLevel = 0 Then ActiveCell.Offset(1, 1) = ""
If Target.Offset(0, 0).IndentLevel = 1 Then ActiveCell.Offset(1, 1) = Target.Offset(0, 1)
If Target.Offset(0, 0).IndentLevel = 2 Then ActiveCell.Offset(1, 1) = Target.Offset(0, 1)
'Target.Offset(1, 0).InsertIndent 1
Target.Offset(1, 0) = "_"
Target.Offset(1, 0).Select
Call Sheet1.WBSNumbering

On Error GoTo 0
End Sub


Merci de votre aide

 

[bleutneut]

Re : copier lignes et coller dans un tableau

Bonsoir,

Personne d'inspiré pour m'aiguiller sur le sujet ?

merci

slts