Discussion :

[xmid49]

Bonjour,

Pour mon travail je suis actuellement en train de travailler sur des macros me permettant de copier/coller ,depuis un tableau d'actions, les actions m'appartenant vers ma liste de taches à faire.
Voici mon début de programme:

Code :

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

1
2
3
4
5
6
7
8
'Ouverture du fichier 
Workbooks.Open Filename:="nom fichier"
NOM = ActiveWorkbook.Name
'Ouverture de la feuille + Activation de la feuille
Workbooks(NOM).Worksheets("Actions micro").Activate
ActiveWindow.DisplayWorkbookTabs = False
'Filtrer le tableau sur la colonne 12 "Romain"
Cells(1, 12).AutoFilter Field:=12, Criteria1:="x"

Après mon début de code, je ne sais pas quoi mettre. Mes actions sont filtrées mais la liste d'actions à faire peut augmenter et si je me focalise sur une plage (ex: Range (A1, F10) je n'aurais pas l'action suivante.

Pouvez vous m'aider?

merci de votre aide

[NicolasST]

Utilise les fonctions de filtres avancés.

La macro suivante filtre une liste située sur la feuille "Nom_Feuille_Base" en fonction des critères mis dans la plage G1:G2 de la feuille active,
et copie le résultat du filtre sous la plage A1:E1 de la feuille active, A1:E1 devant être les entêtes de la liste source que tu veux extraire.

Code :

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

1
2
3
4
Sub Macro2()
    Sheets("Nom_Feuille_Base").Range("A1:E12").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("G1:G2"), CopyToRange:=Range("A1:E1"), Unique:=False
End Sub

Je te laisse l'adpater à ton cas.

[defluc]

Utilise une variable te donnant la dernière ligne non vide et modifie ton code en conséquence

Code :

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

1
2
LastCol = ActiveSheet.Range("A1").CurrentRegion.Columns.Count
Cells(1, LastCol).AutoFilter Field:=LastCol, Criteria1:="x"

[xmid49]

@NicolasST

Je n'ai pas dû comprendre car après adaptation, la macro ne foctionne pas. Erreur 10004 => erreur définie par l'application ou par l'objet

[NicolasST]

Peux-tu copier ton code, merci?