Ajout de date et filtre automatique

[Alystinn]

Bonjour à tous !
J'ai crée une macro qui copie le contenu d'une sélection de la feuil1 (Plg_2) vers l'onglet feuil2 et qui supprime ensuite le contenu de cette sélection (Voir fichier joint)
J'aimerai qu'au moment où l'on clique sur le bouton d'effacement de ligne de la feuil1 la date soit renseignée dans la colonne A (Date de Prepa) de la feuille2. En plus de cela j'aimerai qu'un tri automatique par date (jj/mm/aaaa) soit fait sur la feuil2
Je n'ai renseigner qu'une seule ligne sur les feuilles 1 et 2 mais à terme il y en aura un certain nombre.
Je fais mes premiers pas en excel et particulièrement en création de macro , j'attends vos avis avec impatience ! Merci à vous

 

[CelluleVide]

Re : Ajout de date et filtre automatique

Bonjour,

A inserer dans ton code:

Range("B" & DerLigne).Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("A" & DerLigne).Value = Now
[plg_2].ClearContents

Par contre La plage plg_2 serait peut etre a revoir...

A+

 

[Alystinn]

Re : Ajout de date et filtre automatique

Merci à toi
Par contre pourquoi la plage Plg_2 est à revoir ?

 

[CelluleVide]

Re : Ajout de date et filtre automatique

Re bonjour,

Autant pour moi, j'avais fait une mauvaise manip et Plg_2 ne correspondait plus a la selection de départ.

Pour trier ajoutes ceci:

Range("A1:N3").Select '(si tu n'as que 3 lignes)
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess,
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

(Apres la ligne d'ajout de la date.)

A+