Bonsoir à tous,
J'ai réalisé ce code. A chaque changement sur la feuil1 j'aimerai que les lignes sur lesquelles la ligne 2 n'est pas vide soient recopiées sur la feuil2. Seulement actuellement c'est seulement la première ligne qui est copiée.
Private Sub worksheet_change(ByVal target As Range)
Dim i As Long
With Feuil1
For i = .[A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 2) <> "" Then .Rows(i).Copy Feuil2.[A65000].End(xlUp)
Next
End With
End Sub
J'ai un petit fichier joint simplfié au cas où.
Pourriez vous m'orienter sur mon erreur.
Merci à tous...
J'ai réalisé ce code. A chaque changement sur la feuil1 j'aimerai que les lignes sur lesquelles la ligne 2 n'est pas vide soient recopiées sur la feuil2. Seulement actuellement c'est seulement la première ligne qui est copiée.
Private Sub worksheet_change(ByVal target As Range)
Dim i As Long
With Feuil1
For i = .[A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 2) <> "" Then .Rows(i).Copy Feuil2.[A65000].End(xlUp)
Next
End With
End Sub
J'ai un petit fichier joint simplfié au cas où.
Pourriez vous m'orienter sur mon erreur.
Merci à tous...