copier une ligne et la coller dans une nouvelle

[alexkickstand]

RÉSOLU copier une ligne et la coller dans une nouvelle

bonjour,

je voudrais copier une ligne de ma feuille excel dans une nouvelle ligne :

j'ai un tableau de la forme avec (27 champs) :

--------------------------------------------------------------------------
clients | projets | livraison | heures | + 23 champs |
--------------------------------------------------------------------------
clients_master| prj_master | 22/01/2007 | 0 |
client 1 | prj 2 | 25/05/2007 | 56 |
clients 2 | prj 3 | 29/08/2007 | 89 |
| new projet | | |

j'ai un bouton en macro qui me rajoute une ligne pour ajouter des nouveaux clients

j'aimerais copier les données de la ligne clients_master sans les colonnes : clients, projets, livraison dans ma nouvelle ligne insérée

Dim nbLigne As Long
nbLigne = range("B65536").End(xlUp).Row
 
'ici on obtient le numéro de la ligne de la dernière cellule contenant une donnée.
'donc on dois écrire dans la cellule qui se trouve sur la ligne nbLigne + 1
 
Rows(nbLigne + 1).Insert
Cells(nbLigne + 1, 2) = "new projet"

Merci d'avance

Alex

Update :

voici ma solution

Dim nbLigne As Long
 nbLigne = range("B65536").End(xlUp).Row


'ici on obtient le numéro de la ligne de la dernière cellule contenant une donnée.
'donc on doit écrire dans la cellule qui se trouve sur la ligne nbLigne + 1

Rows(nbLigne + 1).Insert
Cells(nbLigne + 1, 2) = "nouveau projet"

range("E5:AB5").Select         ' on selectionne les cellules
Selection.Copy                 ' on les copies
Ligne = nbLigne + 1            ' on détecte le nb de ligne non vide +1
range("E" & Ligne).Select      ' on sélectionne la ligne ou on veut coller
ActiveSheet.Paste              ' on colle les données
Application.CutCopyMode = False 'on déselectionne les cellules