Discussion :

[Invité]

Bonjour

je pense que vous avez beaucoup eu de questions sur l'erreur 1004 mais j'obtient ce genre d'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
With Worksheets("Fichier_1")
 
Do While Not (IsEmpty(ActiveCell))
 
   For Each rCellule In ActiveSheet.Cells.Columns(2)
 
        For i = 2 To NbreCells + 1
 
                .Cells(ligne, 1).Value = Sheets("Fichier_2").Cells(i, 2).Value

Merci