copier une ligne et la coller dans une nouvelle

alexkickstand

XLDnaute Nouveau
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


Code:
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

Code:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 713
Messages
2 081 806
Membres
101 819
dernier inscrit
lukumubarth