Recherchev mettant plusieurs valeur dans une cellule

[michaeldms]

Bonjour,

Malgrès mes recherches sur les différents forum Excel, je n'arrive pas à résoudre ce probléme.

J'ai deux tableaux sur deux feuilles différentes. Sur un de ces tableaux je souhaite qu'il y'ai une rechercheV qui mette les différentes valeurs trouvées dans une seule cellule.

Un formule autre que recherchev existe ou faut'il mettre une macro?

Merci beaucoup pour votre aide

[jfontaine]

Bonjour,

Je pense qu'au mieux, une formule restituera les données dans une cellule différente pour chaque occurrence.

Pour restituer dans une seule cellule, il faudra une macro.

Peux tu nous éclairer sur ton attente de cette macro.

[michaeldms]

Voici un exemple avec explications.

merci beaucoup pour votre aide

[Daranc]

Un truc comme ça à adapter pour le rendre dynamique

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub codage()
'Dim tabl( As Variant
With Sheets(1)
tabl = .Range("a3:e27").Value
End With
With Sheets(2)
For t = 3 To 7
ref = .Range("B" & t).Value
result = ""
For u = 1 To UBound(tabl, 1)
If tabl(u, 2) = ref Then
result = result & "/" & tabl(u, 5)
End If
Next
.Range("e" & t).Value = result
Next
End With
End Sub

[Stefalia]

Bonjour,
Est-ce important pour toi qu'un produit soit sur une seule ligne ?
Si non, tu peux faire un tableau croisé dynamique comme dans le fichier ci-dessous :

Stéphanie

[Daranc]

autrement il y a la fonction personalisé

Code :

1
2
3
4
5
6
7
8
9
10
Function concatene(tabl As Range, ref As Variant) As String
result = ""    ' initialisation 
tablo = tabl.Value    ' création du tablo
For t = 1 To UBound(tablo, 1)
If tablo(t, 2) = ref Then
result = result & "/" & Str(tablo(t, 5))  'ecriture de la chaine
End If
Next
concatene = Right(result, Len(result) - 1) ' pose du resultat + virer le / de début
End Function

ce qui fait que dans la feuille tu met

Code :

Concatene( plage , ref)

attention tel quel la plage est sur 5 colonnes de la feuille 1 ( de A à E) ce qui fait que le ramassage se fait sur la colonne 5 lorsque la condition référence est vrai