Bonjour à tous et toutes
Je recherche à couper une plage du tableau2 du fait de la valeur de la colonne C = "F" (dans feuille "liste complète") puis insérer dans le tableau9 sur la dernière ligne (dans la feuille "Fait")
Merci
voici le code:
For i = [A5000].End(xlUp).Row To 10 Step -1
If Left(Cells(i, 3), 3) = "F" Then
Set PLgL1 = Rows(i).Copy
Sheets("Fait").Select
Set PLgL2 = ActiveSheet.ListObjects("Tableau9").ListRows.Add.Range
PLgL1.Paste
PLgL1.Delete
End If
Next i
Je recherche à couper une plage du tableau2 du fait de la valeur de la colonne C = "F" (dans feuille "liste complète") puis insérer dans le tableau9 sur la dernière ligne (dans la feuille "Fait")
Merci
voici le code:
For i = [A5000].End(xlUp).Row To 10 Step -1
If Left(Cells(i, 3), 3) = "F" Then
Set PLgL1 = Rows(i).Copy
Sheets("Fait").Select
Set PLgL2 = ActiveSheet.ListObjects("Tableau9").ListRows.Add.Range
PLgL1.Paste
PLgL1.Delete
End If
Next i