Copier la sélection une ligne plus haut

LouisLord

XLDnaute Nouveau
Bonjour à toutes et à tous,

Je suis à la recherche d''un code macro permettant de faire en sorte que :

- A partir de la cellule sélectionné, les cellules se trouvant sur la même ligne et en dessous (toutes colonnes confondus) soit copier.
- Puis que toute cette masse soit copier une seule ligne au dessus.

Par exemple :

Si je sélectionne la cellule E4 et que j'active la macro, la ligne verte et celle du dessous monte d'un cran effaçant ainsi la ligne bleu. (voir fichier ci-joint)
Si cela n'est pas claire, n'hésitez pas à demander plus de précision.

Je vous remercie de l'attention porté à ma requête et vous souhaite une bonne soirée !

Cordialement,
Louis
 

Pièces jointes

  • Classeur1.xlsx
    7.6 KB · Affichages: 21
Dernière édition:

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour LouisLord, bonjour le forum,

Je pense que ça revient au même que de supprimer la ligne au-dessus de la cellule sélectionnée. Non ?

VB:
Sub Macro1()
Dim LS As Integer 'déclare la variable LS (Ligne Sélectionnée)

LS = ActiveCell.Row 'définit la ligne LS
Rows(LS - 1).Delete 'suprime la ligne au-dessus
End Sub
 

Statistiques des forums

Discussions
311 719
Messages
2 081 881
Membres
101 829
dernier inscrit
listener75