[VBA] Excel Transfert vers 1ère ligne vide
Chewi
-
yannou1456 Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
yannou1456 Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- [VBA] Excel Transfert vers 1ère ligne vide
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Partager photos en ligne - Guide
- Word et excel gratuit - Guide
- Supprimer page word vide - Guide
3 réponses
Bonjour,
Essaie ca (a mettre dans un module), il te restera à créer le bouton qui lance la macro
Sub Macro2()
Dim lignes_encours As Integer
Dim ligne As String
If Range("A" & ActiveCell.Row).Value <> "" Then
ligne = ActiveCell.Row & ":" & ActiveCell.Row
Range("A1").Select
If Range("A2").Value <> "" Then
Selection.End(xlDown).Select
End If
lignes_encours = ActiveCell.Row
Worksheets("En cours").Range(ligne).Select
Selection.Cut
Sheets("Poubelle").Select
Range("A1").Select
If Range("A2").Value <> "" Then
Selection.End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("En cours").Select
If ActiveCell.Row < ligne_encours Then
Worksheets("En cours").Range(ligne).Select
Selection.Delete Shift:=xlUp
End If
End If
End Sub
Misfit28
Essaie ca (a mettre dans un module), il te restera à créer le bouton qui lance la macro
Sub Macro2()
Dim lignes_encours As Integer
Dim ligne As String
If Range("A" & ActiveCell.Row).Value <> "" Then
ligne = ActiveCell.Row & ":" & ActiveCell.Row
Range("A1").Select
If Range("A2").Value <> "" Then
Selection.End(xlDown).Select
End If
lignes_encours = ActiveCell.Row
Worksheets("En cours").Range(ligne).Select
Selection.Cut
Sheets("Poubelle").Select
Range("A1").Select
If Range("A2").Value <> "" Then
Selection.End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("En cours").Select
If ActiveCell.Row < ligne_encours Then
Worksheets("En cours").Range(ligne).Select
Selection.Delete Shift:=xlUp
End If
End If
End Sub
Misfit28
Salut
Je vous remercie de bien vouloir répondre à ma question et de me dire si c'est un "truc" impossible"
Je veux créer un bouton pour dès que je clik dessus l'information saisie s'enregistre sur une liste (dans les bonnes cellules( ex; Nom, Prénom, service, montant des frais , ...)) dans la seconde feuille du même classeur.
EST CE QUE C'EST POSSIBLE OU PAS?
Si oui veuillez m'aidez
sinon merci quand même à tous.
OLA
Je vous remercie de bien vouloir répondre à ma question et de me dire si c'est un "truc" impossible"
Je veux créer un bouton pour dès que je clik dessus l'information saisie s'enregistre sur une liste (dans les bonnes cellules( ex; Nom, Prénom, service, montant des frais , ...)) dans la seconde feuille du même classeur.
EST CE QUE C'EST POSSIBLE OU PAS?
Si oui veuillez m'aidez
sinon merci quand même à tous.
OLA
Bonjour,
Misfit28, j'aurais besoin de ton aide.je rencontre le meme problème que Chewi avec cependant une petite nuance.Je ne cherche à sélectionner, suivant la cellule sélectionnée qu'une colonne sur deux de la feuille 1 pour coller dans la feuille 2.la macro que tu as proposé m'a donc été très utile pour comprendre le raisonnement à avoir.
Mais peux tu m'aider sur ce point là, comment faire pour ne sélectionner que les colonnes B,D,F...
Merci davance
Misfit28, j'aurais besoin de ton aide.je rencontre le meme problème que Chewi avec cependant une petite nuance.Je ne cherche à sélectionner, suivant la cellule sélectionnée qu'une colonne sur deux de la feuille 1 pour coller dans la feuille 2.la macro que tu as proposé m'a donc été très utile pour comprendre le raisonnement à avoir.
Mais peux tu m'aider sur ce point là, comment faire pour ne sélectionner que les colonnes B,D,F...
Merci davance