Excel copier ligne ds autre feuille pui suppr

Question

Bonjour,

j'ai une feuille (encours) de différentes données et je souhaiterais que pour une action que je déclencherais (ex: cocher une case puis valider sur un bouton ou mettre un X la cellule de la ligne concerné et appuyer sur un bouton), la ligne de données se copie dans une autre feuille (historique) et se supprime de la feuille d'origine (encours).

Pouvez-vous m'aider?

Merci

wilfried_42 · Answer

Bonjour

Sans fichier, c'est une peu complexe, mais voici une macro qui peu t'aider mais qu'il faut adapter
je pars du principe que la Croix se trouve En colonne A

sub macro_delete()
      activesheet.range("A1").autofilter field:=1, criteria:="x"
      Range("A2:A" & range("A65536").end(xlup).row).cells.specialcells(xlcelltypevisible).entirerow.select
      selection.copy destination:=sheets("Feuil2").range("A" & sheets("Feuil2").range("A65536").end(xlup).row)
      selection.delete
      activesheet.range("A1").autofilter
end sub
macro faite à main levée, non testée (mais ca à l'air ok)

wilfried_42 · Answer

re:

voici le fichier avec la macro, une petite erreur sur Criteria : Criteria1

https://www.cjoint.com/?krjxxixqaP

wilfried_42 · Answer

re:

oui c'est faisable, mais les renseignement donnés sont actuellement assez vagues, il maque la structure des classeurs d'origine (si c'est la meme), la structure du classeur historique (Nom, Chemin, Feuilles...............

wilfried_42 · Answer

re:

voila la macro

Sub Bouton1_QuandClic()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        Select Case ws.Name
            Case "FeuilA", "FeuilB", "FeuilC" ' Nom des feuilles à traiter
                ws.Activate
                ActiveSheet.Range("A1").AutoFilter field:=1, Criteria1:="x"
                If Range("A65536").End(xlUp).Row > 1 Then
                    Range("A2:A" & Range("A65536").End(xlUp).Row).Cells.SpecialCells(xlCellTypeVisible).EntireRow.Select
                    Selection.Copy Destination:=Sheets("Histo" & ActiveSheet.Name).Range("A" & Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1)
                    Selection.Delete
                End If
                ActiveSheet.Range("A1").AutoFilter
            Case Else
        End Select
    Next
End Sub

en gras souligné : le nom de la feuille hitorique devant recuperer les archive : HISTOFeuilA, HISTOFeuilB......

wilfried_42 · Answer

re:

Selection.Copy Destination:=Sheets("Histo_" & ActiveSheet.Name).Range("A" & Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1)

activesheet.name comprend le nom de la feuille en cours de traitement, donc
soit : Commandes, Réceptions, Façon, chacune de ces feuilles va etre traitée l'une apres l'autre
donc pour la premiere on concatene "Histo_" & Commandes, ensuite "Histo_" & Réceptions et enfin "Histo_" avec Façon

wilfried_42 · Answer

re:

Désolé, étant au boulot, je ne suis pas à 100% dans la macro, j'e crois avoir trouvé l'erreur : Feuil2

Selection.Copy Destination:=Sheets("Histo_" & ActiveSheet.Name).Range("A" & Sheets("Histo_" & ActiveSheet.Name).Range("A65536").End(xlUp).Row + 1

Sheets("Histo_" & activesheet.name) ' Defini la feuille de reception
.range("A" & sheets("Histo_" & activesheet.name).range("A65536").end(xlup).row + 1) ' Defini l'emplacement de copie
en gras, Range("A65536").end(xlup).row donne la N° de la derniere ligne utilisée, en ajoutant 1 on a la prochaine ligne vierge (donc on part de la derniere (A65536) on, cherche la permiere valeur (.end) en remontant (Xlup)

je ne sais pas si je suis clair, dur dur d'expliquer

wilfried_42 · Answer

re:

à mon avis, ca vient de tes noms de feuille maintenant, attention aux majuscules, aux accents....

Commandes : Histo_Commandes
Réception : Histo_Réception
Façon : Histo_Façon

Excel copier ligne ds autre feuille pui suppr

7 réponses

Discussions similaires

Newsletters