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

Faire apparaitre toutes les personnes en fonction d'un choix

  • Initiateur de la discussion Initiateur de la discussion David
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

David

XLDnaute Occasionnel
Bonjour à tous

Est il possible de faire apparaitre toutes les personnes d'une équipe si une équipe est sélectionnée dans une cellule ?
Voir pièce jointe


Merci
 

Pièces jointes

Re : Faire apparaitre toutes les personnes en fonction d'un choix

Bonjour David,

Il y a beaucoup d'exemples sur le forum pour obtenir une liste de ce genre.

Formule matricielle en E5 :

Code:
=INDEX(A:A;PETITE.VALEUR(SI(B$6:B$100=F$5;LIGNE(B$6:B$100));LIGNES(E$5:E5)))

A valider par Ctrl+Maj+Entrée.

Puis tirer vers le bas et arrêter quand apparaît #NOMBRE!.

On peut éviter facilement #NOMBRE! mais ça complique peut-être inutilement la formule (toujours en matriciel) :

Code:
=SI(LIGNES(E$5:E5)>NB.SI(B:B;F$5);"";INDEX(A:A;PETITE.VALEUR(SI(B$6:B$100=F$5;LIGNE(B$6:B$100));LIGNES(E$5:E5))))

A+
 

Pièces jointes

Re : Faire apparaitre toutes les personnes en fonction d'un choix

Bonjour job75

J'ai pas du faire la recherche sur les bons mots, je n'ai rien trouvé, j'ai déja eu du mal à mettre un titre.

Merci pour tes exemples, je vais travailler dessus.
Bonne journée.
 
Re : Faire apparaitre toutes les personnes en fonction d'un choix

Re, salut l'autre David,

Vous avez aussi écrit :

(...) si une équipe est sélectionnée dans une cellule ?i

Alors on peut appliquer le filtre automatique via cette macro (dans le code de la feuille) :

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plage As Range
Me.AutoFilterMode = False
Set plage = Range("B5:B" & Range("A65536").End(xlUp).Row)
If Intersect(Target, plage) Is Nothing Then Exit Sub
plage.AutoFilter Field:=1, Criteria1:=ActiveCell
End Sub

A+
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
238
Réponses
3
Affichages
209
Réponses
1
Affichages
232
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…