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
Merci d'avance
Alex
Update :
voici ma solution
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: