damoun1
Nouveau membre
Bonjour,
Je suis débutant en VBA, j'ai composer un petit code concernant la copie des lignes excel depuis une feuil vers une autre en fonction d'une valeur cellule, mais malheureusement lorsque j'ai exécuté le code rien n'a changer !!? peut être j'ai mis un erreur du syntaxe .... !
voila le code
Sub Copy()
Dim i, DerLigneF3 As Integer
For i = 2 To Sheets("Préparation").Cells(Rows.Count, "K").End(xlUp).Row
If Sheets("Préparation").Cells(i, "K") = "R4" Then
DerLigneF3 = Sheets("R4").Cells(Rows.Count, "K").End(xlUp).Row + 1
Sheets("Préparation").Range(Cells(i, "A"), Cells(i, "K")).Copy Destination:=Sheets("R4").Cells(DerLigneF3, "A")
End If
Next
End Sub
Je suis débutant en VBA, j'ai composer un petit code concernant la copie des lignes excel depuis une feuil vers une autre en fonction d'une valeur cellule, mais malheureusement lorsque j'ai exécuté le code rien n'a changer !!? peut être j'ai mis un erreur du syntaxe .... !
voila le code
Sub Copy()
Dim i, DerLigneF3 As Integer
For i = 2 To Sheets("Préparation").Cells(Rows.Count, "K").End(xlUp).Row
If Sheets("Préparation").Cells(i, "K") = "R4" Then
DerLigneF3 = Sheets("R4").Cells(Rows.Count, "K").End(xlUp).Row + 1
Sheets("Préparation").Range(Cells(i, "A"), Cells(i, "K")).Copy Destination:=Sheets("R4").Cells(DerLigneF3, "A")
End If
Next
End Sub