Transfert vers 1ère ligne vide

[chewi]

Bonjour à toute l'équipe du forum!

Voici ce que je voudrais faire:

Je possède 2 feuilles Excel: "En cours" et "Poubelle"

Je souhaite en cliquant sur une cellule de la feuille "En cours" et en lancant ma macro:

1) sélectionner la ligne entière qui contient la cellule
2) La couper
3) Selectionner la feuille "Poubelle"
4) Insérer cette ligne dans la première ligne vide de la feuille "Poubelle"
5) Revenir à la feuille "en cours" et supprimer la ligne (qui est désormais vide)

Cela est-il possible à réaliser avec VBA Excel?

Meci à tous pour votre aide.😉

Chewi

 

[CBernardT]

Re : Transfert vers 1ère ligne vide

Bonsoir Chewi et le forum

Un essai de macro :

Sub Transfert()
With Sheets("En cours")
Sheets("Poubelle").Range("A65536").End(xlUp).Offset(1, 0).EntireRow.Range("A1:IV1").Value = ActiveCell.EntireRow.Range("A1:IV1").Value
ActiveCell.Delete Shift:=xlUp
End With
End Sub

Cordialement

Bernard

 

[bertgrav]

Re : Transfert vers 1ère ligne vide

bonsoir,

ou bien ceci

Sub encours_vers_poubelle()
' x = ActiveCell.Row
Rows(x).Select

Selection.Cut
Sheets("poubelle").Select
Rows(Range("a65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Sheets("en cours").Select
Rows(x).Delete Shift:=xlUp

End Sub

amicalement

chantal

 

[chewi]

Re : Transfert vers 1ère ligne vide

Bonjour et un grand merci à tous les deux.

 

[chewi]

Re : Transfert vers 1ère ligne vide

Rebonjour à tous,

Je reviens avec ce post car j'aimerais que dans la feuille "poubelle" soit rajouté, à la colonne H (pour l'exemple) de la ligne transférée, la date où le transfert a été effectué?

Et donc que cette date soit fixée.

Quelqu'un a t-il une idée du bout de code que je dois rajouter au code précédent?

Merci

Chewi

 

[chewi]

Re : Transfert vers 1ère ligne vide

Personne pour m'aider?🙁

 

[guitou77]

Re : Transfert vers 1ère ligne vide

Bonjour à tous,

Vois ci celà te convient.
à+

 

[chewi]

Re : Transfert vers 1ère ligne vide

Bonjour guitou77

Le problème est que la dte sera également transférée mais elle va évoluer au fil du temps. Or, il faut que une fois transférée, elle soit fixe.

Deuxièmement, vu que j'automatise cette action, je voudrais que la dte s'inscrive automatiquement sinon, je perds l'utilité de ma macro.

Mais merci quand même de te pencher sur la question🙂

Chewi

 

[guitou77]

Re : Transfert vers 1ère ligne vide

Bonjout à tous et à toi chewi,

Ou veut tu que cette date soit portée?
peut tu envoyer un bout de dossier avec des explications
Merci et à+.

 

[chewi]

Re : Transfert vers 1ère ligne vide

Sub transfert()
    Dim fd As Worksheet 'Feuille destination
    Dim x  As Range
    Dim iDerLigne As Integer
    Set fd = Sheets("Feuil2") 'Poubelle
    Set x = ActiveCell ' On copie la ligne en cous  'En cours
    iDerLigne = fd.Range("a65536").End(xlUp).Row + 1
    x.EntireRow.Copy fd.Rows(iDerLigne)
    fd.Cells(iDerLigne, "H") = Date
    x.EntireRow.Delete Shift:=xlUp
    'Libération des objets..
    Set x = Nothing
    Set fd = Nothing
End Sub

Voilà!
Merci bbil!

Chewi