Syntaxe

Bonjour,

j'essaie de copier une plage vers une autre, mais j'ai un erreur 5.

Quelqu'un voit l'erreur ?

i = Worksheets("1").Range("A" & Rows.Count).End(xlUp).Row

For j = 1 To i Step 1

If Worksheets("1").Range("B" & j).Value Like "DGIG" & "*" Then

For k = 4 To i

If Worksheets("1").Range("B" & k).Value Like "DGIG" & "*" Then

Worksheets("1").Range(Worksheets("1").Cells("A" & j), Worksheets("1").Cells("B" & k - 3)).Copy Worksheets("2").Range("A1")

End If

Next k

End If

Next j

End Sub

Salut,

L'instruction Range demande une colonne et une ligne alors que Cells demande le contraire et les colonnes sous forme de chiffres.

Cells(variable_ligne, variable_colonne)

Essai la ligne ci-dessous. Si ce n'est pas ça, ton fichier serait le bienvenu.

Worksheets("1").Range(Worksheets("1").Cells(j, 1), Worksheets("1").Cells(k - 3, 2)).Copy Worksheets("2").Range("A1")

Cordialement.

Bonsoir,

Sans classeur difficile de dire...

Peut-être :

Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row 

etc... ?

A+

Merci Yvouille !

C'est ce que je cherchais.

Je comprends mon erreur maintenant !