Couper et coller des lignes VBA

Justine56 à dit:

Bonjour à tous,

Je travaille actuellement sur une macro qui pourrait me permettre de couper et coller des lignes dans une feuille nommée "Actions clôturées à mettre DU" dont les actions sont "clôturées" afin de les voir disparaître de mon plan d'action en cours (feuille nommée "Plan d'action").
Je pense que je ne suis pas loin d'y arriver car le code que j'ai écris me copie la ligne dans mon autre feuille cependant elle reste présente dans mon tableau de base "Plan d'action" et je dois donc les supprimer manuellement.

Voici le code :

VB:

Sub Essai_macro_export_actions_cloturées()
'
' Essai_macro_export_actions_cloturées Macro
'
Sheets("Plan d'action").Range("$B$8:$I$500").AutoFilter Field:=8, Criteria1:="<>"
    Range("A10:I500" & Range("I65563").End(xlUp).Row).Select
    Selection.Copy
    Sheets("Actions clôturées à mettre DU").Select
    Range("A1048576").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Copy
    Sheets("Plan d'action").Range("$B$8:$I$500").AutoFilter Field:=8
    ActiveWindow.SmallScroll Down:=-9
    Range("A8:A9").Select
MsgBox "Déplacement et suppression du ou des action(s) clôturée(s)."
End Sub

Pouvez-vous m'indiquer ce qu'il me manque pour que les lignes soient coupées et non copiées ? Et comment faire en sorte que les lignes vides présentes dans mon tableau "Plan d'action" soient également supprimées ?

Je vous remercie d'avance de votre aide 🙂

Cliquez pour agrandir...

Sub Essai_macro_export_actions_cloturées()
    Dim plage
    ' Essai_macro_export_actions_cloturées Macro
    Set plage = Sheets("Plan d'action").Range("$B$8:$I$500")
    plage.AutoFilter Field:=8, Criteria1:="<>"
    Set plage = plage.Offset(1).Resize(plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    With Sheets("Actions clôturées à mettre DU")
        plage.Copy .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1)
    End With
    plage.AutoFilter
    plage.EntireRow.Delete
    MsgBox "Déplacement et suppression du ou des action(s) clôturée(s)."
End Sub

Jacky67 à dit:

Bonjour,
Cela pourrait ressembler à ceci

VB:

Sub Essai_macro_export_actions_cloturées()
    Dim plage
    ' Essai_macro_export_actions_cloturées Macro
    Set plage = Sheets("Plan d'action").Range("$B$8:$I$500")
    plage.AutoFilter Field:=8, Criteria1:="<>"
    Set plage = plage.Offset(1).Resize(plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    With Sheets("Actions clôturées à mettre DU")
        plage.Copy .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1)
    End With
    plage.AutoFilter
    plage.EntireRow.Delete
    MsgBox "Déplacement et suppression du ou des action(s) clôturée(s)."
End Sub

**Non testé par défaut de classeur

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Cette instruction copy la plage filtrée "Plage" dans la plage de la feuille "Actions clôturées à mettre DU" (défini dans With Sheets) à la première cellule vide de la colonne A
Cela peut-être testé par

VB:

MsgBox .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1).Address

Voir aussi le nom de la feuille, il semble bizarre.

Cliquez pour agrandir...

Sub Essai_macro_export_actions_cloturées()
'
' Essai_macro_export_actions_cloturées Macro
Dim plage
    ' Essai_macro_export_actions_cloturées Macro
    Set plage = Sheets("Plan d'action").Range("$A$8:$I$500")
    plage.AutoFilter Field:=9, Criteria1:="<>"
    Set plage = plage.Offset(1).Resize(plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    With Sheets("Actions clôturées à mettre DU")
        plage.Copy .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1)
    End With
    plage.AutoFilter
    plage.EntireRow.Delete

MsgBox "Déplacement et suppression du ou des action(s) clôturée(s)."
End Sub

Justine56 à dit:

Bonjour,

Alors j'ai fais quelques modifications et le code fonctionne très bien à un petit détail prés.. il me copie les lignes à partir de la ligne A29 et je ne comprend pas pourquoi 😱

Voici le code actuel :

VB:

Sub Essai_macro_export_actions_cloturées()
'
' Essai_macro_export_actions_cloturées Macro
Dim plage
    ' Essai_macro_export_actions_cloturées Macro
    Set plage = Sheets("Plan d'action").Range("$A$8:$I$500")
    plage.AutoFilter Field:=9, Criteria1:="<>"
    Set plage = plage.Offset(1).Resize(plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    With Sheets("Actions clôturées à mettre DU")
        plage.Copy .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1)
    End With
    plage.AutoFilter
    plage.EntireRow.Delete

MsgBox "Déplacement et suppression du ou des action(s) clôturée(s)."
End Sub

Merci d'avance de votre aide 🙂

Cliquez pour agrandir...