Bonjour,
J'ai actuellement un code qui me permet de copier/couper une ligne entière de la feuille "Outillage" à la feuille "Scrap", à condition qu'il y est le mot "Scrap" dans la colonne F de la feuille "Outillage" et ce code s'active après enregistrement.
Sub Scrap()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("Scrap").Activate ' feuille de destination
Col = "F" ' colonne de la donnée non vide à tester
NumLig = 0
With Sheets("Outillage") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "SCRAP" Then
.Cells(Lig, Col).EntireRow.Cut
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste
End If
Next
End With
End Sub
Or j'ai un problème c'est que les lignes se copie/coupe sur des lignes déjà remplit, j'aimerai que les lignes se copient sur la dernière ligne vide de la feuille "Scrap".
Mais avec mes connaissances de débutant en VBA je n'y arrive pas :s
Merci d'avance.