Discussion :

[tiouam]

Bonsoir,
j'ai fait un fichier de suivi pour mon travail qui comprend entre autre :

- une feuille 1 qui contiendra le détail du travail de la journée
- une feuille 2 qui contient les taches type à effectuer

la feuille 2 est composée d'un filtre qui me sert à sélectionner le type de tache à faire
je sélectionne manuellement les lignes puis les insert dans la feuille 1 avant la ligne qui contient le texte "ajouter avant"

j'ai déjà un début de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro6()
'
' Macro6 Macro
'
'
    Sheets("Feuil2").Select
    ActiveSheet.Range("$A$1:$A$8").AutoFilter Field:=1, Criteria1:="liasse ECN"
    Range("A2:BZ" & Range("A65536").End(xlUp).Row).Copy
    Sheets("Feuil1").Select
    Cells.Find(What:="ajouter avant").Activate
    Rows(ActiveCell.Row).Select
    Selection.Insert Shift:=xlDown
    'Range("R1:BZ60000").ClearContents
End Sub

je joints le fichier test

ce que j'aimerais, c'est lancer soit une input box pour rentrer le ou les critères de choix moi-même ; soit déclencher la liste déroulante pour sélection moi-même le filtre à appliquer

car pour le moment, je suis obligé de créer autant de macro que j'ai de tache

merci d'avance pour votre aide (pour info je suis débutant en vba, j'ai créé ce morceaux de codes en cumulant ifférente action par enregistrement de macro)