Bonjour,

Je cherche actuellement à faire une macro qui va copier la ligne x_source de la feuille source jusqu'à la colonne numéro stop_col, vers une ligne x_destination de la feuille destination.
On n'écrira dans la feuille destination uniquement si la cellule source est non vide en texte et non nulle.
Cependant j'obtient une erreur du type 1004, qui provient je pense, de mes variables sources et destination qui sont des feuilles.
Je crois qu'il n'a pas accès à ces feuilles, je ne sais pas...
Voilà le code



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
 
 
Public Sub copie_ligne(source As Worksheet, x_source As Integer, destination As Worksheet, x_destination As Integer, stop_col As Integer)
 
    Dim y, z As Integer
    source.Activate
    Do While y <> stop_col
 
         If (source.Cells(x_source, y) <> "") And (Not (IsEmpty(source.Cells(x_source, y)))) Then
            destination.Cells(x_destination, z) = source.Cells(x_source, y)
            z = z + 1
         End If
 
        y = y + 1
    Loop
 
End Sub
Merci !