Copier ligne vers onglet et supprimer

Bonjour,

Désolé de ne pas avoir le fichier mais J’essaie de faire une macro qui copierais une ligne de l’an feuille 1 et l'enverrais vers la feuille 2 et supprimerais ensuite la ligne de la ligne 1, sa sa fonctionne sauf ou que je bloque c’est quand je réécris une ligne dans la même numéro et je refais la macro sa supprime ma donne de la feuille 2 et je voudrais que elle se rapporte en dessous de l’autre, est-ce fesable ? Merci je galère pas mal

Bonjour,

voici un exemple, est ce que ça convient ?

c'est exactement sa !!! si je veux faire la macro quand on m'est un X dans un case je l'integre ou ? Merci infiniment

Voici la macro avec plus d'explication,

Sub TransfertLigneSélectionnée()
'numéro de la derniere ligne renseignée de la Feuil2
LastRow = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row + 1
'numéro de ligne de la cellule sélectionnée sur la Feuil1
i = Selection.Row
'transfert des données (Ax:Bx)
Sheets("Feuil1").Range(Cells(i, 1), Cells(i, 2)).Copy Sheets("Feuil2").Cells(LastRow, 1)
'suppression de la ligne (ligne de la cellule sélectionée) sur Feuil1
Sheets("Feuil1").Rows(i).Delete
End Sub

et si je veux que la macro parte quand marque un X dans une colone au complet est-ce que sa se fait ? J'ai chercher et j'ai trouve sa mais ce n'est pas ce que je veux et je ne sais ou le rajouter avec l'autre macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then

MsgBox "Click on " & Target.Address

End If

End Sub

il faut exécuter cette macro sur un code "événementielle" dans cette macro il faut vérifier si le Target est bien fait sur votre colonne,

si la vérification est vrai on exécute la macro.

Plus besoin du X finalement seulement efface les chiffre dans la colonne A , E et F merci

Aussi quand je m’est une protection sur les cellules avec les formule, la feuille 1 ne s’efface pas, je voudrais que la colonne A E et F s’efface est-ce sa se fait ? Merci

si tu n'a pas permis la suppression de ligne lors de l'ajout de la protection,

il faut enlever la protection avant de supprimer la ligne et ensuite remettre la protection.

Sub TransfertLigneSélectionnée()
'numéro de la derniere ligne renseignée de la Feuil2
LastRow = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row + 1
'numéro de ligne de la cellule sélectionnée sur la Feuil1
i = Selection.Row
'transfert des données (Ax:Bx)
Sheets("Feuil1").Range(Cells(i, 1), Cells(i, 2)).Copy Sheets("Feuil2").Cells(LastRow, 1)
'suppression de la ligne (ligne de la cellule sélectionée) sur Feuil1
With Sheets("Feuil1")
    .Unprotect
    .Rows(i).Delete
    .Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

Sa me donne une erreur à la ligne . Protect et la protection ne se remets pas et si je veux que sa efface la colonne A,E et F est-ce trop compliquer ?

as-tu mis les mots de passe ? remplace "xxx" par to mdp

    .Unprotect "xxx"
    .Rows(i).Delete
    .Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True

J’avais oublier de mettre le mot de passe après le unprotect WoW tu es une machine merci beaucoup mais quand je m’est l’envoyer classeur à partage la macro marche pas as tu une idée ?

la protection d'une feuille est une instruction refusée dans un partage.

solution possible: lors de la protection permettre la suppression d'une ligne, voir: AllowInsertingRows:=True

With Sheets("Feuil1")
'permet filtre et grouper lignes et colonnes
    .EnableAutoFilter = True
    .EnableOutlining = True

    'pour les options de protection que vous ne désirer pas autoriser: changer True pour False
    .Protect Password:="xxx", _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        AllowFormattingCells:=True, _
        AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, _
        AllowInsertingRows:=True, _
        AllowInsertingHyperlinks:=True, _
        AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, _
        AllowSorting:=True, _
        AllowFiltering:=True, _
        AllowUsingPivotTables:=True, _
        UserInterfaceOnly:=True
 End With