Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 RechercheV sur liste déroulante !

J

Jaykerz

XLDnaute Nouveau
Bonjour à tous,

Déjà un grand merci pour les personnes qui prendrons le temps de répondre à ma demande !

Je vais essayer d'être le plus précis possible sur ma problématique :

Nous pouvons voir sur le fichier que nous avons cellule B2 & B3 (Mois étudié et l'agence) qui est une liste déroulante.

Je cherche à actualiser le tableau automatiquement, c'est à dire que si je sélectionne le mois de Janvier et l'agence en question selon l'onglet "BDD CLIENTS AGENCE" cela affiche dans le tableau (Onglet top 20) la liste des clients et code client qui est rattaché (Voir onglet BDD CLIENTS AGENCE) selon le choix que je fais sur la liste déroulante cellule B2 & B3

L'idée est que je vienne compléter sous le même format dans l'onglet BDD CLIENTS AGENCE avec Mars et une nouvelle liste de 20 clients puis Avril.... qui chargera la liste selon le mois et l'agence de la liste déroulante

Exemple : Je choisis dans la liste déroulante cellule B2 & B3 : Cela me charge les 20 clients définis dans l'onglet "BDD CLIENTS AGENCE"
Je choisis Février : Cela me charge les 20 clients de Février

Bien évidemment je suis ouvert à toutes propositions et encore un grand merci pour votre aide !

Le fichier est en PJ !

Belle journée à tous.
 

Pièces jointes

  • TEST CLIENTS - TOP 20.xlsx
    119.4 KB · Affichages: 4
Trier par date Trier par votes
J

JHA

XLDnaute Barbatruc
Bonjour à tous,

Un essai avec décaler en modifiant le second onglet.
VB: 
=INDEX(DECALER('BDD CLIENTS AGENCE'!$A$1;EQUIV('Top 20'!$B$3;'BDD CLIENTS AGENCE'!A:A;0)-1;EQUIV('Top 20'!$B$2;'BDD CLIENTS AGENCE'!$1:$1;0);20);LIGNE()-5)

JHA
 

Pièces jointes

  • TEST CLIENTS - TOP 20.xlsx
    116.7 KB · Affichages: 7
Vote positif 1 Vote négatif

job75

XLDnaute Barbatruc
Avec ce code 100 clients sont filtrés :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
[B2].Name = "Mois"
[B3].Name = "Agence"
Application.EnableEvents = False
Range("A6:B" & Rows.Count).Delete
With Sheets("BDD CLIENTS AGENCE").[A1].CurrentRegion
    .Cells(2, 6) = "=(A2=Mois)*(B2=Agence)" 'critère
    .AdvancedFilter xlFilterCopy, .Cells(1, 6).Resize(2), [A5:B5] 'filtre avancé
    .Cells(2, 6) = ""
End With
Application.EnableEvents = True
End Sub
 

Pièces jointes

  • Liste filtrée.xlsm
    123.2 KB · Affichages: 5
Vote positif 1 Vote négatif
J

Jaykerz

XLDnaute Nouveau
Bonjour à tous,

Déjà un grand merci à tous pour m'avoir accorder de votre temps et aussi pour les solutions apportées.

@JHA C'est exactement l'idée recherchée un grand merci pour votre travail et votre temps.

@wDog66 Merci pour ton travail et ton temps ! Je n'ai pas choisis de TCD car l'idée est d'actualiser cela sous forme de tableau automatique car ces clients vont changer de mois en mois donc l'idée était de rendre le fichier automatique si je colle des données vu que cela va être répétitif et cela sur énormément d'agence.

@job75 L'idée de limiter à 20 est que dans mes directives chaque agence doit se baser sur un top 20 de ces meilleurs clients qui vont changer de mois en mois, c'est pour cela que je parle de 20 clients. Merci également pour le partage de tes lignes de code qui vont pouvoir m'être utile sur différents sujets !

@sylvanu Merci pour ton travail et ton temps, c'est aussi exactement ce que je recherchais.

Merci à tous, mon problème est résolu grâce à vos différentes aides !

Vous souhaitant à tous une excellente journée, prenez soin de vous
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Avec la macro de mon post #6 les agences ne sont pas filtrées.

J'ai eu du mal à en trouver la raison.

En fait il ne faut pas nommer "Agence" la cellule B3 car c'est une en-tête de colonne.

En la nommant "Ag" plus de problème :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
[B2].Name = "Mois"
[B3].Name = "Ag"
Application.EnableEvents = False
Range("A6:B" & Rows.Count).Delete
With Sheets("BDD CLIENTS AGENCE").[A1].CurrentRegion
    .Cells(2, 6) = "=(A2=Mois)*(B2=Ag)" 'critère
    .AdvancedFilter xlFilterCopy, .Cells(1, 6).Resize(2), [A5:B5] 'filtre avancé
    .Cells(2, 6) = ""
End With
Application.EnableEvents = True
End Sub
Résultat : 20 clients sont filtrés.
 

Pièces jointes

  • Liste filtrée.xlsm
    123.3 KB · Affichages: 9
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

J
  • Question
Autres [Google Sheets] Recherchev, index, equiv sur liste déroulante - A l'aide !
Réponses
2
Affichages
641
Jaykerz
J
D
  • Question
Microsoft 365 Créer un TOP 20 dynamique avec regroupement
Réponses
3
Affichages
354
chris
S
  • Résolu(e)
Microsoft 365 Liste déroulante avec plusieurs colonnes de tableaux + Recherche valeurs en fonction de la valeurs selectionnée
Réponses
2
Affichages
331
Sosobob
S
V
  • Question
Microsoft 365 Calcul de croissance selon deux taux imbriqués
Réponses
1
Affichages
130
Vincent0
V
  • Question
Microsoft 365 "concatener" certaines colonnes d'onglets
2
Réponses
15
Affichages
738
Phil69970
H
  • Question
Microsoft 365 rechercheV a partir d'un changement de liste déroulante
Réponses
11
Affichages
387
harveyspecter
H
S
  • Résolu(e)
Microsoft 365 Liste déroulante et case adjacente
Réponses
7
Affichages
81
JHA
J
J
  • Question
XL 2010 Création liste ? une cellule alimentée par une autre cellule ou non
Réponses
3
Affichages
554
Gégé-45550
S
  • Question
Autres liste déroulante dynamique à 2 niveaux
Réponses
2
Affichages
96
saralht
S
D
  • Question
XL 2021 Liste déroulante et RECHERCHEV
Réponses
5
Affichages
211
Dubuyz1
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…