Recherche v résultat multiple

[manu75ka]

Bonjour tout le monde,

J'ai un problème que je n'arrive pas à résoudre avec une formule RechercheV.

Je souhaiterais renvoyer les multiples résultats sur une ligne.
Par exemple dans l'onglet cas 2 et pour la ligne 2 :
Je veux rechercher la valeur A2 dans l'onglet règles de ségrégation et la colonne E
puis renvoyer les différents résultats présent dans la colonne G de l'onglet Ségrégation.

J'ai fait un filtre pour vous montrer le résultat que je souhaite obtenir.
Ci-joint le fichier de test.

J'ai fais plus ou moins le tour des méthodes sur internet, et j'en ai trouvé aucune pour me sortir de mon problème :/.

Je vous remercie de votre aide par avance

 

[CISCO]

Bonjour

Cf. en pièce jointe, avec une formule matricielle à valider avec les 3 touches Ctrl+maj+entrer, et à tirer vers la droite et vers le bas.

@ plus

 

[Dugenou]

Bonjour,
Une proposition en pj avec une formule matricielle (validée par la combinaison des 3 touches ctrl+maj+enter) se recopie en bas et à droite.
A ta disposition pour expliquer si besoin.
Cordialement

Edit : bonjour Cisco : tu es vraiment trop rapide ! ma solution est très proche de la tienne

 

[vgendron]

Hello tous

avec un bout de VBA (puisque je l'ai fait, mais Cisco a été plus rapide)

Sub Macro1()
application.screenupdating=false
'
' Macro1 Macro
'
With Sheets("Règle Ségrégation")
        .Cells.AutoFilter
End With
'
fin = Range("A" & Rows.Count).End(xlUp).Row
FinRègle = Sheets("Règle Ségrégation").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To fin
    critère = Range("A" & i)
  
    With Sheets("Règle Ségrégation")
        .Range("$A$1:$H$" & FinRègle).AutoFilter
        .Range("$A$1:$H$" & FinRègle).AutoFilter Field:=5, Criteria1:=critère
        On Error Resume Next
        .Range("G4:G" & FinRègle).SpecialCells(xlCellTypeVisible).Copy

    End With
    'Sheets("cas 2").Select  'ne sert à rien 
    Range("F" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True

Next i
End Sub
application.screenupdating=true

 

[manu75ka]

C'est exactement ce dont j'avais besoin.

Je vous remercie de votre aide

 

[manu75ka]

Je vous remercie tous de vos réponses. La méthode de Cisco a parfaitement fonctionné mais je vais testé les votre également pour apprendre de nouvelles choses et vous faire un feed back.

En tout cas merci de votre temps !

 

[manu75ka]

Je reviens vers vous car

Bonjour

Cf. en pièce jointe, avec une formule matricielle à valider avec les 3 touches Ctrl+maj+entrer, et à tirer vers la droite et vers le bas.

@ plus

Hello Cisco,

Je reviens vers toi car je viens de voir un petit problème dans ta formule, sauf erreur de ma part.
Par exemple pour la ligne 29, je devrais avoir 2 valeurs et j'en ai aucune.

Merci encore

 

[CISCO]

Bonsoir

Normal : Ma formule ne prend en comte que les données placées avant la ligne 22, alors que ton fichier réel va beaucoup plus loin. Il faut donc remplacer les 21 dans les formules par le n° de la dernière ligne contenant des informations dans ton fichier réel.

@ plus

 

[manu75ka]

i besoin.
Cordialement

Edit : bonjour Cisco : tu es vraiment trop rapide ! ma solution est très proche d

Oui c'était exactement ca, j'avais tenté modifier le 2 également d’où les réponses incohérentes.

Merci beaucoup

 

[manu75ka]

Bonjour

Cf. en pièce jointe, avec une formule matricielle à valider avec les 3 touches Ctrl+maj+entrer, et à tirer vers la droite et vers le bas.

@ plus

J'avais juste une derniere petite question. Ma 1ère ligne commence à 2, j'ai donc tenté de remplacer les 4 par un 2 mais les résultats deviennent alors complétements incohérents.
Pourrais tu m'éclairer merci

 

[CISCO]

Bonsoir

Dans ce cas, il faut remplacer les 4 dans les plages provenant de la feuille Règle... par un 2, et le -3 par un -1.

@ plus

 

[manu75ka]

Je vous remercie.

J'ai finalement remplacé tous les 4 par des 2 sauf celui de la ligne que j'ai laissé à 4.
Et ca semble avoir bien fonctionné.

Merci bcp