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

Roxyy · 20 Novembre 2023

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 · 20 Novembre 2023

Bonjour Roxyy,

Roxyy à dit:
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 · 20 Novembre 2023

sylvanu à dit:
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 · 20 Novembre 2023

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 · 20 Novembre 2023

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

VB:

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 · 20 Novembre 2023

Phil69970 à dit:
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 · 20 Novembre 2023

sylvanu à dit:
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

VB:

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 · 20 Novembre 2023

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

Phil69970 · 20 Novembre 2023

Re
Bonjour Sylvain

@Roxyy

Roxyy à dit:
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 · 20 Novembre 2023

sylvanu à dit:
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 · 20 Novembre 2023

Roxyy à dit:
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 · 21 Novembre 2023

sylvanu à dit:
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 · 21 Novembre 2023

Roxyy à dit:
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 · 21 Novembre 2023

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

Roxyy à dit:
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 :

Roxyy à dit:
et hop c'est supprimer.

Phil69970 · 21 Novembre 2023

Re

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

Phil69970 à dit:
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.

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

Roxyy

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Roxyy

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Roxyy

XLDnaute Nouveau

Roxyy

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Roxyy

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Roxyy

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Discussions similaires