Microsoft 365 Rechercher en fonction d'un choix dans une liste de validation

natorp

XLDnaute Accro
Bonjour à toutes et tous

Après fait un choix de marché dans une liste de validation, j'ai besoin d'afficher les entreprises figurant dans le marché choisi depuis un autre onglet

Merci pour votre aide, cordialement, Gérard
 

Pièces jointes

  • Classeur1 bis.xlsm
    34.7 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Natorp,
Un essai en PJ avec :
Chaine recherchée :
VB:
=STXT(Généralités!J2;1+CHERCHE("(";Généralités!J2);CHERCHE(")";Généralités!J2)-CHERCHE("(";Généralités!J2)-1)
Liste :
Code:
=SIERREUR(INDEX($F$2:$F$100;1+PETITE.VALEUR(SI(NON(ESTERREUR(CHERCHE($J$2;$B$2:$B$100)));LIGNE($B$2:$B$100)-LIGNE($B$2); "zz"); LIGNE()-LIGNE($B$2))); "fini")
Validation par Maj+Ctrl+Entrée car matricielle.
Liste déroulante sans vide :
Code:
=DECALER(ListeEmail0;0;0;NB.SI(ListeEmail;"<>fini"))
 

Pièces jointes

  • Classeur1 bis (1).xlsm
    33.6 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Ou encore en VBA avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [J2]) Is Nothing Then
        Dim DL%, Tliste, ListeName$, i%
         AccordCadre = Target
         DL = Sheets("Marchés").[A65500].End(xlUp).Row
         Tliste = Sheets("Marchés").Range("A2:F" & Sheets("Marchés").[A65500].End(xlUp).Row)
         ListName = "="
         For i = 1 To UBound(Tliste)
            Tliste(i, 1) = Tliste(i, 1) & " (" & Tliste(i, 2) & ")"
            If Tliste(i, 1) = AccordCadre Then
                ListeName = ListeName & Tliste(i, 6) & ","
            End If
         Next i
         ListeName = Mid(ListeName, 1, Len(ListeName) - 1) ' On retire le dernier ";"
         With Range("J8:J22").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=ListeName
    End With
    End If
Fin:
End Sub
La liste déroulante est reconstituée automatiquement lorsqu'on modifie la valeur de l'accord cadre en J2.
 

Pièces jointes

  • Classeur1 bis (2).xlsm
    35.9 KB · Affichages: 4

natorp

XLDnaute Accro
Merci pour vos réponses

Vgendron : merci c'est bien ce que je cherche

Sylvanu : je pense que je ne me suis pas bien expliqué :
après avoir choisi le marché en J2, les données viennent se mettre toutes seules en F8, C8, I8 et J8 et sur les lignes suivantes pour toutes les entreprises du marché choisi

cordialement, Gérard
 

natorp

XLDnaute Accro
Vgendron : Merci beaucoup, j'ai trouvé un petit tuto sur le net, et je vais garder ton lien précieusement
Une question : est-il possible de rendre la tableau structuré "dynamique" ?
C'est à dire qu'il évolue en fonction d'un nombre de lignes variables ?
Par contre : lorsque qu'il n'y a pas d'information dans l'une des cellules de l'onglet "Marchés" la formule renvoie "0" dans l'onglet "Généralités"
Merci pour ton aide précieuse, cordialement, Gérard
 

Discussions similaires

Réponses
8
Affichages
414

Statistiques des forums

Discussions
312 111
Messages
2 085 395
Membres
102 882
dernier inscrit
Sultan94