Bonjour,
J'ai déjà sollicité votre aide pour copier-coller une ligne choisis par la sélection d'une cellule en bas du tableau.
Je voudrais maintenant pouvoir copier uniquement les 4 premières colonnes de cette ligne, insérer une ligne en dessous puis coller le contenu dans cette nouvelle ligne.
Var_1 = ActiveCell.Row
Range("A65000").End(xlUp).Offset(0).Select
Var_2 = ActiveCell.Row + 1
Var_3 = Var_1 & ":" & Var_1
Var_4 = Var_2 & ":" & Var_2
Rows(Var_3).Select
Selection.Copy
Rows(Var_4).Select
ActiveSheet.Paste
Ce code me permettait de faire ce que je voulais au début
ActiveCell.Offset(0, 0).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(-1, 1).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(-1, 1).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(-1, 1).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Pour copier uniquement les 4 premières colonnes j'ai commencé par là mais je doute que ce soit la bonne solution
ActiveCell.EntireRow.Insert
Enfin j'ai essayé avec ceci pour obtenir une nouvelle ligne en dessous mais je n'arrive pas vraiment à l'utiliser.
Si vous pouviez m'éclairer