copie de cellules

Version imprimable

copie de cellules

Bonjour
voila, j'essai de mettre le contenu de cellules d'un fichier excel a un autre
le code est :

Code:

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
 
Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xsl")
 
    Set Entree = Workbooks.Open(Nomfichierentree)
 
 
    NomfichierSortie = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xsl")
 
        Set Sortie = Workbooks.Open(NomfichierSortie)
 
FinalRow2 = Sortie.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
 
For j = 1 To nbLignes
  For xx = G(j) + 1 To hh(j) - 1
  For x = 3 To FinalRow2
 
   If Entree.Worksheets(1).Cells(xx, 1) = Sortie.Worksheets(1).Cells(x, 1) And Entree.Worksheets(1).Cells(xx, 2)  = Sortie.Worksheets(1).Cells(x, 2) Then
 
  Sortie.Worksheets(1).Cells(x, FF1(j)) = Sortie.Worksheets(1).Cells(x, FF1(j)) - Entree.Worksheets(1).Cells(xx, 7)
   End If
 
 
   Next x
   Next xx
   Next j

a la ligne Sortie.Worksheets(1).Cells(x, FF1(j)) =... j'ai l'erreur d'exécution 1004

Citation:

erreur définie par l'application ou par l'objet

je vois pas trop..

18/04/2019, 18h13
Menhir

Ce code est-il la suite d'autres lignes ?
Parce que, en l'état, il y a de nombreuses variables non renseignées (nbLignes, G(), hh(), FF1()).
C'est normal ?

Citation:

Envoyé par Menhir

Ce code est-il la suite d'autres lignes ?
Parce que, en l'état, il y a de nombreuses variables non renseignées (nbLignes, G(), hh(), FF1()).
C'est normal ?

pour simplifier seulement..
voila le code manquant

Code:

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
38
39
40
41
 
 
 
 
 
With rng
nbLignes = rng.Rows.Count  
 
 
 
 
For i = 1 To nbLignes
Thisvalue(i) = .Cells(i, 2) + " " + .Cells(i, 3)
Next i
 
FF = 1
For j = 1 To nbLignes
For x = 1 To FinalRow
 
    If Thisvalue(j) = Entree.Worksheets(1).Cells(x, 1) Then
    G(FF) = x
    hh(FF) = G(FF)  '21
 
    While Entree.Worksheets(1).Cells(G(FF), 1) <> "Etude"
    G(FF) = G(FF) - 1     '9
    Wend
 
    End If
 
Next x
FF = FF + 1
Next j
 
 For i = 1 To nbLignes
 For x = 1 To FinalCol
 If ThisvalueA(i) = Sortie.Worksheets(1).Cells(1, x) Then
 FF1(i) = x  '12
 End If
 
 Next x
 Next i