Couper et coller des lignes VBA

J

Justine56

XLDnaute Nouveau
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 :)
 
Trier par date Trier par votes
Jacky67

Jacky67

XLDnaute Barbatruc
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...
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
 
Vote positif 0 Vote négatif
J

Justine56

XLDnaute Nouveau
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...

Bonjour,

Il y a un problème sur la ligne :
plage.Copy .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1)
Il me dit que "erreur définie par l'application ou par l'objet". Je n'arrive pas à comprendre par quoi je dois remplacer les "a" et "A" sur cette ligne.

Je vous remercie pour votre retour :)
 
Vote positif 0 Vote négatif
Jacky67

Jacky67

XLDnaute Barbatruc
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.
 
Dernière édition:
Vote positif 0 Vote négatif
J

Justine56

XLDnaute Nouveau
Bonjour,

Je comprend pourquoi ça ne fonctionne pas.. s'il me cherche la première cellule vide dans la colonne A de la feuille "Actions clôturées à mettre DU" il tombe sur mon en-tête de tableau de A1 à A9.
Comment écrire le code pour qu'il m'insère la plage de cellule copiée à partir de la colonne A10 en prenant la première cellule vide ?

Je vous remercie de votre retour :)
 
Vote positif 0 Vote négatif
J

Justine56

XLDnaute Nouveau
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...

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 :eek:

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 :)
 
Vote positif 0 Vote négatif
Jacky67

Jacky67

XLDnaute Barbatruc
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 :eek:

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...
Re..
Sans voir le classeur avec cette erreur, il sera difficile de donner suite.
 
Vote positif 0 Vote négatif
J

Justine56

XLDnaute Nouveau
Finalement j'ai trouvé le problème qui venait de la ligne suivante du code :
plage.Copy .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1)
Il ne voulait pas me coller mes lignes dans mon tableau car il y a des en-têtes à mon tableau excel.
Pour cela j'ai donc modifié totalement cette ligne et j'obtiens le code suivant :
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("A1048576").End(xlUp).Offset(1, 0)
    End With
    plage.AutoFilter
    plage.EntireRow.Delete

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

Je vous remercie de vos réponses qui m'ont bien aidé :)

Bonne journée !
 
Vote positif 0 Vote négatif
Jacky67

Jacky67

XLDnaute Barbatruc
Re..
Ces deux instructions
plage.Copy .Range("A1048576").End(xlUp).Offset(1, 0)
plage.Copy .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1)
Font exactement la même chose
La première n'est valable qu'à partir de Xl 2007 :rolleyes:
La deuxième, toute version :)
 
Vote positif 0 Vote négatif
J

Justine56

XLDnaute Nouveau
D'accord alors dans ce cas je ne comprend pas d'où pouvait provenir le problème avec le premier code. Surtout que j'ai une version 2013 cela aurait dû tout aussi bien fonctionner o_O
En tout cas la macro fonctionne à merveille, merci pour votre aide :)

Bonne journée à vous !
 
Vote positif 0 Vote négatif

Discussions similaires

Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
353
Chaton77
Chaton77
B
  • Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
489
Compte Supprimé 979
C
Usine à gaz
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
540
Usine à gaz
Usine à gaz
R
  • Résolu(e)
XL 2019 macro couper-coller sur plusieurs onglets
Réponses
9
Affichages
717
job75
job75
X
  • Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
614
Xender
X
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
456
Corentin26270
C
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
381
Romain77144
R
X
  • Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
4 K
Xender
X
O
  • Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
515
Oneida
Oneida
A
  • Question
Microsoft 365 Retourner message si compteur 0
Réponses
4
Affichages
477
AD95
A

Membres actuellement en ligne

6 membres et 48 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 655
Messages
2 111 604
Membres
111 217
dernier inscrit
aladinkabeya2