bonsoir à tous
j'ai trouvé ce petit code sur le forum, que j'ai essayé d' adapter à mes besoins 🙁
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range, Cellule As Range, i As Long
With Worksheets("feuil1")
Set Plage = .Range("D9", .Range("A65536").End(xlUp))
For Each Cellule In Plage
i = Cellule.Row
If .Cells(i, 4).Value = 1 Then
.Cells(i, 3).Copy
ActiveSheet.Paste Destination:=Worksheets("feuil2").Cells(i, 1)
Application.CutCopyMode = False
End If
Next Cellule
End With
je souhaite que les cellules copiées soient collées à partir de la cellule c13 de la feuille 2 et a la suite les une des autres.
et je n'y arrive pas 😕 je crois en fait que je ne comprends pas le fonctionnement de la variable i 😱
quelqu'un pourrait il me donner la solution.
merci par avance
j'ai trouvé ce petit code sur le forum, que j'ai essayé d' adapter à mes besoins 🙁
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range, Cellule As Range, i As Long
With Worksheets("feuil1")
Set Plage = .Range("D9", .Range("A65536").End(xlUp))
For Each Cellule In Plage
i = Cellule.Row
If .Cells(i, 4).Value = 1 Then
.Cells(i, 3).Copy
ActiveSheet.Paste Destination:=Worksheets("feuil2").Cells(i, 1)
Application.CutCopyMode = False
End If
Next Cellule
End With
je souhaite que les cellules copiées soient collées à partir de la cellule c13 de la feuille 2 et a la suite les une des autres.
et je n'y arrive pas 😕 je crois en fait que je ne comprends pas le fonctionnement de la variable i 😱
quelqu'un pourrait il me donner la solution.
merci par avance