Bonjour à tous.
Depuis hier je traine sur votre forum et sur internet, afin de pouvoir faire ma macro, mais malheureusement après plusieurs tentatives, c'est un echec. Je me tourne donc vers vous pour éclairer ma lanterne.
Donc voici mon problème : Dans mon fichier, quand on met un X dans la colonne "finit" je voudrai que la ligne soit copié, puis collé dans l'autre feuille. Puis supprimé de la première feuille. Ou du moins caché.
Je vous met en PJ le fichier et mon début de macro... Etant très très novice en la matière....
'
' MacroArchive Macro
'
'Sub Archivage'()
Dim I As Long, Plage As Range, Ligne As Long
On Error Resume Next
Ligne = Sheets("missions fini").Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
If Err.Number > 0 Then Ligne = 0
On Error GoTo 0
With Sheets("consigne")
For I = 1 To .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
If Application.CountIf(.Rows(I), 4) > 0 Then
Ligne = Ligne + 1
.Rows(I).Copy Sheets("missions fini").Cells(Ligne, 1)
End If
Next I
End With
End Sub
Merci d'avance.
Bien cordialement.
Depuis hier je traine sur votre forum et sur internet, afin de pouvoir faire ma macro, mais malheureusement après plusieurs tentatives, c'est un echec. Je me tourne donc vers vous pour éclairer ma lanterne.
Donc voici mon problème : Dans mon fichier, quand on met un X dans la colonne "finit" je voudrai que la ligne soit copié, puis collé dans l'autre feuille. Puis supprimé de la première feuille. Ou du moins caché.
Je vous met en PJ le fichier et mon début de macro... Etant très très novice en la matière....
'
' MacroArchive Macro
'
'Sub Archivage'()
Dim I As Long, Plage As Range, Ligne As Long
On Error Resume Next
Ligne = Sheets("missions fini").Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
If Err.Number > 0 Then Ligne = 0
On Error GoTo 0
With Sheets("consigne")
For I = 1 To .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
If Application.CountIf(.Rows(I), 4) > 0 Then
Ligne = Ligne + 1
.Rows(I).Copy Sheets("missions fini").Cells(Ligne, 1)
End If
Next I
End With
End Sub
Merci d'avance.
Bien cordialement.