Déplacement tâches terminés Résolu

Question

Bonjour, 

Je crée une feuille avec des tâches, un onglet "Tâches actives" et un autre "Tâches terminés".

Ce que je souhaiterais c'est qu'en cochant la case dans la colonne "terminé" du première onglet, ça me transfère la tâche dans le second.

En clair, si je coche une case donnée dans le première onglet, toute la ligne concernée est transféré du premier au second onglet.


J'espère avoir été le plus clair possible ^^

Merci d'avance.



Configuration: Android / Chrome 83.0.4103.96

Yoyo01000 · Answer

Bonjour,
de quelle type de case à cocher parlez-vous ?

michel_m · Answer

Bonjour Peanut, Yoyo 
 
effectivement il vaut mieux mettre un "x" que des cases à cocher...

transfert: on supprime  dans "actives".

mais pour être efficace
Mettre le classeur sans données confidentielles en pièce jointe sur  https://mon-partage.frDans lien de téléchargement faire un clic  droit- copier l’adresse du lien   et  le coller dans votre message en cours sur ccm

eriiic · Answer

Bonjour,

Ah, trop tard michel, j'ai fait un truc :-)

Double-cliquer en A pour historiser :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim nbcol As Long, lig As Long
    If Target.Column > 1 Or Target = "" Then Exit Sub
    If MsgBox("Terminée ?", vbYesNo) = vbYes Then
        Cancel = True
        nbcol = Cells(1, Columns.Count).End(xlToLeft).Column
        With Sheets("Terminées")
            lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            Target.Resize(, nbcol).Copy .Cells(lig, 1)
            Target.EntireRow.Delete
        End With
    End If
End Sub 
https://www.cjoint.com/c/JFjhoYgjxVV
eric

Déplacement tâches terminés

3 réponses

Discussions similaires

Newsletters