macro copier coller une ligne d'un tableau dans une autre feuille

**sonichou** · 26/07/2011, 19h27

Bonjour

jai crée une feuille excel personalisé a chaque personne, chaque personne renseigne une ligne d'un tableau.
j'aimerai à l'aide d'une macro copier et coller les données renseigné dans cette ligne sur une autre page.
car une fois que une autre personne rentre dans le fichier elle viendra ecraser les données.

**SfJ5Rpw8** · 26/07/2011, 20h12

bonsoir,

est que sais tu faire ?

il y as plein d'exemple de copier/coller ... commence à écrire du code est à définir l'organisation de ton (tes) classeur excel est l'on t'aideras

**sonichou** · 26/07/2011, 22h06

Code :

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

1
2
3
4
5
6
Worksheets("FEUIL1").Activate
Range("D4:D8").Select
Selection.Copy
Worksheets("FEUIL2").Activate
Range("A1").End(xlUp).Select
ActiveSheet.Paste

**mercatog** · 26/07/2011, 22h54

Code :

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

1
2
3
With Worksheets("FEUIL2")
    Worksheets("FEUIL1").Range("D4:D8").Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
End With

On copie D4: D8 de feuil1 vers la cellule en dessous de la dernière cellule remplie de la colonne A de Feuil2

**sonichou** · 27/07/2011, 08h22

sa marche parfaitement

c'est géniale. Merci beaucoup
j'aurais encore une question
j'aimerai que sur la feuile 2, qu' il y ai une ligne par personne.
dans la feuille 2 dans la première colonne j'ai le nom de toutes les personnes

es ce que c'est possible de copier coller une ligne en face de la bonne personne, et que chaque fois qu'il renseignerai le tableau, les nouvelles données écraserai les anciennes.

**SfJ5Rpw8** · 27/07/2011, 10h36

Voila :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macopie()
    Dim shS As Worksheet 'Source
    Dim shD As Worksheet 'destination
    Dim rCh As Range ' Nom a chercher
    Dim iDest As Integer 'Ligne de destination dans feuille
    Set shS = ThisWorkbook.Worksheets("FEUIL1") ' Feuille source
    Set shD = ThisWorkbook.Worksheets("Feuil2") ' Feuille destination
    Set rCh = shS.Range("A2") ' Cellule contenant le nom à chercher
    On Error Resume Next 'Pour éviter les messages d'erreur sur recherche infructueuse
    iDest = Application.WorksheetFunction.Match(rCh, shD.Range("A:A"), 0)
    On Error GoTo 0
    If iDest = 0 Then 'Cas ou pas trouvé on rajoute une ligne
        iDest = shD.Range("A65535").End(xlUp).Row + 1
    End If
    shS.Range("A2:D2").Copy shD.Cells(iDest, "A")
End Sub

**sonichou** · 27/07/2011, 11h15

J'ai essayé ça un petit programme ça marche parfaitement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sheets("plateforme personnel").Select
    ID = Cells(1, 1)
 
 
    Sheets("Feuil2").Select
    Range("A1").Select
 
    For i = 1 To 500
    If Cells(i, 1) = ID Then
        Ind = i
        i = 500
    End If
    Next
 
    Sheets("plateforme personnel").Select
    Range("D15:P15").Select
    Selection.Copy
 
    Sheets("Feuil2").Select
    Cells(Ind, 2).Select
 
    ActiveSheet.Paste
   ActiveWorkbook.Save
 
 
 
    Sheets("Feuil2").Select