Discussion :

[Hardeads]

Bonjour à tous,

Je n'y connais rien en macro excel et c'est la raison qui m'amène à vous.
Je suis entrain de me créer un tableau permettant de gérant les actions que j'ai à mené dans mon travail.
Dans ce tableau j'ai plusieurs critères que je remplis manuellement ou avec des listes, les voici :

- Catégorie
- Projet
- Priorité
- Commentaire
- Affecté à
- Estimé début
- Estimé fin
- Début réel
- Réel fin
- Etat d'avancement
- Action à archiver
- Notes

Ce que je souhaite faire c'est pouvoir archiver certaine ligne selon 1 critère.
Dans la colonne "Action à archiver" j'ai mis une liste avec le seul choix "Oui". Ce que je voudrais c'est que lorsque je sélectionne "Oui", le ligne soit couper et coller dans une autre feuille identique mais qui elle sert a archiver mes actions clôturé, je souhaite aussi que la ligne qui se retrouve vide dans ma première feuille suite au couper/coller soit supprimé.

J'ai essayer de faire une macro mais concrètement ce que j'ai fait c'est du grand n'importe quoi ^^', c'est pour ça que me tourne vers cette communauté.

Je vous remercie de l'aide que vous pourrez m'apporter.

[don_pets]

Hello,

Alors sans fichier c'est plus compliqué, mais si je comprends ta demande, tu souhaites que lorsque la valeur "Oui" apparaît dans ta colonne, alors cela coupe/colle ta ligne.

Inspire toi de cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
with sheets("TaFeuil")
 
For i = 2 To Range("A6553").End(xlUp).Row
 
        If Cells(i, 11) = "Oui" Then '11 correspond à ta onzième colonne
            derligne = Sheets("TonAutreFeuil").Range("A65535").End(xlUp).Row + 1
            Range(Cells(i, 1), Cells(i, 12)).Cut Destination:=Sheets("TonAutreFeuil").Range("A" & derligne)
            Rows(i).Delete       
        End If
Next i
 
end with

Enjoy

[Hardeads]

Merci pour ta réponse !

Voici mon fichier Excel, alors en gros pour repréciser ma demande ^^ je souhaite que quand le texte "Oui" est sélectionner dans la colonne "L" de la feuille "Suivi de tâche", la ligne (correspondante à celle ou le mot "Oui" à été écris) soit couper/coller dans la feuille "archive" à la suite des précédentes ligne coller à l'intérieur.

Et je ne sais pas si c'est possible mais comme une ligne à été couper/coller de ma feuille "Suivi de tâche" je vais avoir une ligne vide, la macro peut elle automatiquement supprimé la ligne en question après l'opération de couper/coller ?

Plan d'action.xlsm

Désolé de compter autant sur vous

Merci beaucoup en tout cas !

[don_pets]

Colle ça et dis moi si cela te convient

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Sheets("Suivi de tâche")
 
For i = 2 To Range("B6553").End(xlUp).Row
 
        If Cells(i, 12) = "Oui" Then '11 correspond à ta onzième colonne
            derligne = Sheets("Archive").Range("B65535").End(xlUp).Row + 1
            Range(Cells(i, 1), Cells(i, 13)).Cut Destination:=Sheets("Archive").Range("A" & derligne)
            Rows(i).Delete
        End If
Next i
 
End With

[Hardeads]

J'ai un problème je n'arrive pas à créer la macro...

Je fais enregistrer une macro, je lui donne un nom, ensuite je l'ouvre pour la modifier et je colle le code. Mais après j'ai rien de plus, elle n'apparaît même pas dans la liste des macros...

[don_pets]

SI tu ne veux pas t'embêter tu mets directement le code dans ta feuille Suivi de tâche, et la macro se déclenchera lors de la modification de la feuille si (et seulement si comme à l'école) tu optes pour oui dans la colonne L,

je te joins ton fichier modifié, histoire d'illustrer les propos

[Hardeads]

Bon, comme moi j'ai pas réussi à le faire je vais garder ta version modifié, au moins la sa fonctionne ^^

Merci beaucoup !!