Discussion :

[mat059]

Bonjour,

N'étant pas très doué en Excel, je souhaiterai ajouter une nouvelle option au fichier de mon père.
Je vous explique,
Je lui ai créé un fichier afin qu'il puisse suivre ses listes d'actions à réaliser au jour le jour "une TO DO LIST".
Seulement je voudrais ajouter une fonctionnalité à ce fichier.
En effet, j'aimerais que lorsque l'une de ses actions est terminé elle puisse être supprimé de sa feuille "TO DO" et que toute sa ligne d'action puisse être collé dans une seconde feuille qu'on appellera "Done", afin que toutes ses actions ne se mélangent pas.

Est-il possible de réaliser une telle merveille?

[Kimy_Ire]

Bonjour mat059,

Un CTRL X / CTRL V de la ligne ne suffit-il pas ?
Pourquoi souhaites-tu faire quelque chose de plus spécifique ?

Cordialement,
Kimy

[mat059]

Salut Kimy_Ire,

Comme il y a énormément d'actions, le but est de faire quelque-chose de simple est conviviale qu'il utilisera constamment.
C'est pour lui faciliter la tâche est éviter des erreurs qui pourrait lui faire perdre ses données.

Je sais qu'avec un VB est une Macro c'est possible j'avais essayé mais ça m'affiche un code erreur 400.

[Kimy_Ire]

Le seul problème, c'est que tu vois bien qu'il faut d'avantage d'explications afin que l'on puisse te proposer quelque chose.
As-tu une idée de ce que tu veux au final ?

Un bouton d'action sur chaque ligne ?
Une TextBox dans lequel il peut écrire les actions qu'il a terminées ?
Un menu déroulant dans un UserForm ?

Bref, là, je ne sais pas où tu veux aller, et j'ai l'impression que toi non plus ! ^^

N'hésite pas à revenir donner la façon dont tu voudrais procéder, et surtout, s'il y a déjà des macros ou autres, bien les préciser.
En effet, une mutualisation des codes est parfois très intéressante !
Mutualisation de code = Mutualisation des actions !

Cordialement,
Kimy

[mat059]

Pour tout expliquer il y a 9 rubriques sur son fichier excel :
Ref #
Description
Category
Status
Priority
Started
Due to
Completion Date
Notes

L'idéal serait un bouton qui lorsqu'il clique dessus toutes les données de sa ligne en question switch vers une seconde feuille du fichier intitulé "done"

Afin qu'il ne perde aucune donnée et qu'il est un historique.
Si le menu déroulant est plus facile à réaliser on peut très bien partir vers cette solution

Merci de ton aide en tout cas

[mat059]

Quelqu'un pourrait m'indiquer quelles sont les erreurs qu'il y a dans mon code qui m'empêche de le faire fonctionner?

Pour info :
Ma feuille 1, où il y a toutes les informations : "To Do List"
La feuille 2, où je voudrais transférer la liste des actions finies : "List Done"
Je souhaiterais que lorsque je rentre "Done" dans la colonne J, que la ligne soit couper et coller dans la feuille "L

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Todolist()
 
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
 
  Sheets("List Done").Activate ' feuille de destination
 
  Col = "J"                 ' colonne de la donnée non vide à tester
  NumLig = 0
  With Sheets("To Do List")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 1 To NbrLig
    If .Cells(Lig, Col).Value = "Done" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  End With
 
End Sub