Bonjour à tout le forum,
Je dispose d'une extraction avec un nombre de lignes variable mais toujours su 6 colonnes.
Je souhaite ne conserver par copie dans un autre onglet les seules lignes dont la colonne F est différente de 0.
Le Hic je souhaite limiter la copie que sur les colonnes A à F dans l'onglet de copie, afin de ne pas effacer ce qui est présent à coté.
Qui peut m'aider à compléter mon code ?
D'avance un grand merci et une agréable journée.
Sub Copier()
Dim C As Range
Dim LigneAjout As Long
With Worksheets("Feuil1")
For Each C In .Range("F2:F" & .Range("F" & Rows.Count).End(xlUp).Row)
If C <> 0 Then
LigneAjout = Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
C.EntireRow.Copy Worksheets("Feuil2").Range("A" & LigneAjout)
End If
Next C
End With
End Sub
Je dispose d'une extraction avec un nombre de lignes variable mais toujours su 6 colonnes.
Je souhaite ne conserver par copie dans un autre onglet les seules lignes dont la colonne F est différente de 0.
Le Hic je souhaite limiter la copie que sur les colonnes A à F dans l'onglet de copie, afin de ne pas effacer ce qui est présent à coté.
Qui peut m'aider à compléter mon code ?
D'avance un grand merci et une agréable journée.
Sub Copier()
Dim C As Range
Dim LigneAjout As Long
With Worksheets("Feuil1")
For Each C In .Range("F2:F" & .Range("F" & Rows.Count).End(xlUp).Row)
If C <> 0 Then
LigneAjout = Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
C.EntireRow.Copy Worksheets("Feuil2").Range("A" & LigneAjout)
End If
Next C
End With
End Sub