Bonjour,

j'ai créer un programme qui permet de copier plusieurs cellules d'un fichier excel vers un autre fichier excel par le biais d'un UserForm.
Pour permettre la copie, je suis obligé d'indiquer les cellules. J'aimerai que le code fasse en sorte que la copie s'effectue à chaque fois à la dernière ligne de mon tableau. Je précise que je débute désolé pour l'indentation.

voici le code pour vous permettre de mieux comprendre:
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
28
29
30
31
32
33
34
35
36
37
 
'Lors de l'appui sur le bouton valider
Private Sub CommandButton2_Click()
 
 
Dim Fichier As String
 
 
On Error Resume Next
Fichier = TextBox1.Text
Workbooks.Open Filename:="C:\Documents and Settings\blabla\Mes documents\TEST INFORMATIQUE \fichiers excel\" & Fichier & ".xls"
 
 
         Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("B517").Value = Workbooks(Fichier).Worksheets(1).Range("E6").Value
         Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("D517").Value = Workbooks(Fichier).Worksheets(1).Range("B5").Value
         Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("F517").Value = Workbooks(Fichier).Worksheets(1).Range("B12").Value
         Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("G517").Value = Workbooks(Fichier).Worksheets(1).Range("B8").Value
                  Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("H517").Value = Workbooks(Fichier).Worksheets(1).Range("E14").Value
         Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("I517").Value = Workbooks(Fichier).Worksheets(1).Range("B14").Value
                  Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("J517").Value = Workbooks(Fichier).Worksheets(1).Range("B15").Value
         Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("K517").Value = Workbooks(Fichier).Worksheets(1).Range("B13").Value
         Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("L517").Value = Workbooks(Fichier).Worksheets(1).Range("B6").Value
                  Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("M517").Value = Workbooks(Fichier).Worksheets(1).Range("B6").Value
           Workbooks(Fichier).Worksheets(1).Range("a18").Copy Destination:=Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("n517")
          Workbooks(Fichier).Worksheets(1).Range("b42").Copy Destination:=Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("o517")
          Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("P517").Value = Workbooks(Fichier).Worksheets(1).Range("A58").Value
                  Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("Q517").Value = Workbooks(Fichier).Worksheets(1).Range("B24").Value 
          Workbooks("SYNTHESE RECLAMATIONS 2007").Worksheets(1).Range("R517").Value = Workbooks(Fichier).Worksheets(1).Range("B24").Value
 
 
If Err <> 0 Then
    MsgBox "fichier " & Fichier & " introuvable ou nom incorrect !"
Else
    MsgBox "fichier " & Fichier & " mis en synthèse avec succès !"
End
End If
End Sub