Discussion :

[The Saint]

Bonjour à toutes et tous,

Je suis en train de préparer une Macro afin de préparer un envoi de tableau auomatique par personne

Sur mon fichier afin de filtrer les données plus simplement j'ai ajouté un autofilter.
Je dois le faire filtrer sur chaque personne (en gros il y a 150 pers avec x linge par personne)

Je souhaite faire bouger mon autofilter sur les différentes personnes sans pour autant le faire manuellement.

Si quelqu'un a une idée je suis preneur.

Merci

The Saint

[joe.levrai]

Bonjour,

exemple basique pour faire une boucle de filtrage de plusieurs données

à adapter

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
Sub filtre()
Dim Sh As Worksheet
Dim Tablo
 
' la feuille contenant la base de données
Set Sh = ThisWorkbook.Worksheets("Feuil1")
 
' tableau avec les agents écrits en dur (on peut créer le tableau dynamiquement si les agents sont écrits sur une plage Excel)
Tablo = Array("toto", "titi", "tata")
 
For i = LBound(Tablo) To UBound(Tablo)
    With Sh
        .AutoFilterMode = False
        .Range("A1").AutoFilter 7, Tablo(i) ' recherche dans la colonne 7 de la base de données
 
        ' ici le traitement à faire après filtrage pour l'agent
    End With
Next i
 
End Sub

[The Saint]

Bonsoir,
Merci pour ta réponse. Désolé je me suis mal exprimé.
C'est exactement ce que recherche comment "peut on créer le tableau dynamiquement si les agents sont écrits sur une plage Excel)

Merci
The Saint

[joe.levrai]

Le plus simple et de les mettre sur une colonne

- si la liste est fixe : tu sélectionnes tes données et tu utilises une plage nommée fixe
- sinon : plage dynamique qui évoluera toute seule quand tu ajouteras une personne

si tu ne sais pas le faire, tu trouveras ton bonheur ici je pense : http://excel.developpez.com/faq/?page=Noms

la plage nommée doit préférentiellement avoir une portée sur le classeur entier
ensuite, les utiliser est très simple, admettons que ta plage nommée s'appelle "AGENTS"

Code :

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

Tablo = Range("AGENTS")

[The Saint]

EXCELLENT ! oui je me rappelle de ce truc là...
Trop bien !! Je vais essayer et peut être relire le tuto..
Merci beaucoup !!
Moi je cherchais un truc mega compliqué...
Pourquoi faire du compliqué quand on peut faire simple

A bientôt
The Saint