Discussion :

[alexkickstand]

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

voici mon code vba sur le bouton pour ajouter de nouveaux clients :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 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 pour de l'aide

Alex

[alexkickstand]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
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ésselectionne les cellules