Recherche difficile

Salutations,

Je fais un test pour comprendre comment fonctionne les recherches.

Sur mon classeur ci-joint, vous trouverez :

de A7 à A11 : des nombres

de B7 à B11 : des lettres

de C7 à C11 : un concatener des deux

de D7 à D11 : une liste de choix (provenant des lignes A24 à A28)

de E7 à E11 : une copie de la colonne C (pour faciliter la position des colonnes dans une rechercheV)

En I1, J1, K1, L1, M1 : le titre des locaux

En I3 : RECHERCHEV sur la donnée A24 dans la matrice D7:E11

Ma question, dans la save, vous constatez que j'ai placé 3 personnes dans le local1, j'aimerais savoir comment on peut les avoir inscrits les uns à la suite des autres dans la colonne I à partir de I3. Prévoyant que 290 lignes peuvent être utilisées dans les colonnes I à M. Exemple : si sur 290 personnes, 28 se trouvent dans le local1, qu'il y ait une liste des 28 noms de I3 à I30

Merci d'avance.

Up, çà existerait en VbA ?

Salut le forum

En formule à l'aide de matricielle : Recherche avec résultats multiples

En VBA avec la fonction FIND

Ou avec l'object Dictionnay, un exemple qui vérifie une couleur comme condition

Function ExtraitCoul(champ As Range, coulTémoin)
  Application.Volatile
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In champ
    If c.Value <> "" And c.Interior.Color = coulTémoin Then mondico(c.Value) = ""
  Next c
  Dim temp()
  ReDim temp(1 To Application.Caller.Rows.Count)
  i = 1
  For Each c In mondico.keys
    temp(i) = c
    i = i + 1
  Next
  ExtraitCoul = Application.Transpose(temp)
End Function

Mytå

Trop hot pour moi.

Pourrais-tu appliquer ce vba sur le fichier ?

Je l'ai mis dans un module mais dans la cellule, je note quoi au juste ? =FIND mais la suite ?