Fenetre positionnement

mais en sélectionnant un maximum de choix, cela me fait disparaitre le bouton génération liste clients...

heu... vous avez lu ce que j'ai écrit en dessous de la vidéo ?

bonjour,

certes, en effet pardon, je n'avais pas vu sous la vidéo, merci.

Par contre je ne peux rien sur les colonnes D et E concernant les mois.

je ne parviens pas à les laisser figer ...

vous avez une solution?

merci bcp

re

Par contre je ne peux rien sur les colonnes D et E concernant les mois.
je ne parviens pas à les laisser figer ...

Je n'ai pas compris

Si vous utilisez le filtre dans la feuille Choix, il vous faut modifier le code Sub Liste_clients() dans le module 1.
Juste en dessous de Dim dlg as integer, ajoutez ces lignes

On Error Resume Next
Feuil1.ShowAllData
On Error GoTo 0

lorsque je viens sélectionner un client, automatiquement les autres lignes disparaissent, et donc de facto tous les éléments de la ligne également, à savoir les mois, comme sur ma selection. comment figer la colonne D et E afin qu'elle ne subisse pas la selection de la colonne A.

merci bcp

Cela c'est impossible à faire tel quel
Une solution est de placer les mois d'abord et ensuite les clients. Tout en colonne A et B
On aurait ceci

Si ok, pour vous je peux adapter le fichier car je dois modifier les codes

dites-moi

ok très bonne idée oui merci :)

Ok.

D'abord insérer des lignes pour faire descendre le tableau client à la ligne 16. Ou alors, faites un Couper-Coller du tableau. (Attention ne faites pas de copier - Coller mais bien un Couper-Coller)
Ensuite faites un COUPER-COLLER de la partie mois vers A1 (très important !!)

Une fois fait, suivez pas à pas

A. Dans la sub clients, vers la fin du code vous avez A2 à deux endroits --> remplacez A2 par A17

B. Dans la Sub filtre_TCD,
1. Partie 'Filtre sur client, vous avez B1 à deux endroits --> remplacez B1 par B17
2. Partie Filtre sur Mois, il faut modifier comme suit :

- Supprimer la ligne dlg = .range("D" &......
- Remplacez la ligne juste en dessous par ceci (on remplace E1 : E13 par B1:B13) -->

Set c = .Range("B1:B13").Find("£", LookIn:=xlValues, lookat:=xlWhole)

- Remplacez cette ligne (on remplace D par A) -->

.PivotFields(pfm).PivotItems(ActiveSheet.Range("A" & c.Row).Value).Visible = False

Plus bas dans le code remplacez cette ligne (on remplace E1: E13 par B1:B13) -->

Set c = .Range("B1:B13").FindNext(c)

Dites moi si pas de soucis si plus simple je vous remets le fichier