XL 2021 Couper-coller une ligne en cochant une case.

[Roxyy]

Bonjour,

Je souhaiterais, lorsque je clique dans une case à coché, que la ligne entière lier à la case à cocher, se coupe et se colle dans une autre feuille.

Je vous joins en pièce jointe un fichier de test avec le script, car je ne comprends pas pourquoi cela ne fonctionne pas.

Cordialement !

 

[sylvanu]

Bonjour Roxyy,

Je vous joins en pièce jointe un fichier de test avec le script, car je ne comprends pas pourquoi cela ne fonctionne pas.

L'avantage d'un fichier aussi petit est que ça nous évite de l'ouvrir.

 

[Roxyy]

Bonjour Roxyy,

L'avantage d'un fichier aussi petit est que ça nous évite de l'ouvrir.

C'est bon je l'ai re(mis)

 

[Phil69970]

Bonjour à tous

Il y a des grandes chances que le fichier fournit par @Roxyy ne correspond pas au fichier final !!!
De plus la ligne qui a été copié doit elle être supprimé de la feuille 1
Pourquoi des cases à cocher alors que l'on peut sans passer facilement voir ici c'est une nouvelle mode les cases à cocher !!!
Et on copie à quel endroit sur la feuille2 ?

 

[sylvanu]

Re, bonjour Phil,
On peut aussi remplacer les cases à cocher par uniquement des cellules qui seront appelées par une sub Worksheet_SelectionChange, voir PJ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    Dim L%, DL%
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A:A]) Is Nothing Then
        If Target <> "Supprimer" Then Exit Sub
        With Sheets("Feuille2")
            L = Target.Row
            DL = 1 + .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
            .Range("A" & DL & ":D" & DL) = Range(Cells(L, "B"), Cells(L, "E")).Value
            Rows(L).Delete Shift:=xlUp
        End With
    End If
Fin:
End Sub

J'ai pris le parti de supprimer la ligne de la feuille 1 en supposant que "se coupe et se colle dans une autre feuille." veuille dire cela.
[Addon] PJ modifiée car version précédente posait problème.

 

[Roxyy]

Bonjour à tous

Il y a des grandes chances que le fichier fournit par @Roxyy ne correspond pas au fichier final !!!
De plus la ligne qui a été copié doit elle être supprimé de la feuille 1
Pourquoi des cases à cocher alors que l'on peut sans passer facilement voir ici c'est une nouvelle mode les cases à cocher !!!

Je sais pas trop pourquoi tu parles de mode, c'est juste plus logique.

J'ai un projet, avec différents paramètres, et en dernier une case à cocher pour quand il est terminé.

Une fois terminé il se supprime de la feuille 1 et il se déplace dans la feuille 2.

 

[Roxyy]

Re, bonjour Phil,
On peut aussi remplacer les cases à cocher par uniquement des cellules qui seront appelées par une sub Worksheet_SelectionChange, voir PJ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    Dim L%, DL%
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A:A]) Is Nothing Then
        With Sheets("Feuille2")
            L = Target.Row
            DL = .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
            .Range("A" & DL & ":D" & DL) = Range(Cells(L, "B"), Cells(L, "E")).Value
            Rows(L).Delete Shift:=xlUp
        End With
    End If
Fin:
End Sub

J'ai pris le parti de supprimer la ligne de la feuille 1 en supposant que "se coupe et se colle dans une autre feuille." veuille dire cela.

Super merci beaucoup pour ton aide !

 

[sylvanu]

Je ne sais pas quelle version vous avez pris, prenez la V2 car la version initiale était bugguée.

 

[Phil69970]

Re
Bonjour Sylvain

@Roxyy

Je sais pas trop pourquoi tu parles de mode, c'est juste plus logique.

Et non ce n'est pas plus logique mais source de futur problème et l'on peut sans passer simplement voir le lien que j'ai mis au post #4
D'ailleurs Sylvain n'a pas repris tes cases à cocher ....

 

[Roxyy]

Je ne sais pas quelle version vous avez pris, prenez la V2 car la version initiale était bugguée.

Ca marche parfaitement, juste faut pas se louper parce que impossible de faire un retour arrière

Merci beaucoup pour votre aide !

 

[sylvanu]

juste faut pas se louper parce que impossible de faire un retour arrière

Pourquoi ?
Il suffit de faire la même chose sur Feuille 2 pour revenir en arrière.

 

[Roxyy]

Pourquoi ?
Il suffit de faire la même chose sur Feuille 2 pour revenir en arrière.

Bonjour,

Oui merci!

Je reviens car mon tuteur d'alternance aimerait vraiment avoir une case qu'il puisse cocher pour qu'une fois la tache finie, il puisse cocher et hop c'est supprimer.

C'est aussi pour pouvoir présenter plus clairement le fichier à nos supérieurs.

C'est vraiment si peu commode à mettre en place ?

 

[sylvanu]

C'est vraiment si peu commode à mettre en place ?

A mes yeux pour trois raisons :
1- Sur 1000 lignes il vous faudra 1000 cases à cocher
2- Il vous faudra accrocher la macro à chaque case à cocher si vous voulez que l'action soit automatique
3- Supprimer la ligne ne supprimera pas la case à cocher correspondante.
Demandez à votre tuteur quelle différence cela fait que la suppression soit sur clic cellule ou sur clic case ?
Voici un ex :
Avant :

Après suppression de la ligne 9 :

La ligne a été supprimée mais la case est restée ( en fait cachée sous la case de la ligne suivante )
C'est faisable mais trop complexe à faire pour moi, de repérer le N° de la case pour la supprimer. D'autant que cela ne sert à rien.

 

[sylvanu]

Sinon regardez cette PJ, il y a des "cases à cocher"

C'est aussi pour pouvoir présenter plus clairement le fichier à nos supérieurs.

Ce serait compréhensible si les lignes n'étaient pas supprimer mais seulement effacées. On verrait les lignes qui ont été effacées. Mais si on supprime de quelconque manière on ne voit rien :

et hop c'est supprimer.

 

[Phil69970]

Re

C'est marrant on en revient à ce que j'avais dit ici

Pourquoi des cases à cocher alors que l'on peut sans passer facilement voir ici c'est une nouvelle mode les cases à cocher !!!

Mais as tu regardé le lien que j'avais mis dans le post #4 ?
Non bien sur, sinon tu aurais compris que l'on peux se passer des cases à cocher.