Bonjour a vous,


J'ai trouvé sur le forum une function qui me semble très intéressante et si modifié pourrais répondre a un de mes besoins. (la function a été posté par Daranc)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function rmult(valcherch As Variant, x As Range, colonne As Long) As Variant
Dim u As Variant
Dim nb As Long
Dim boucle As Long
 
 
 
For boucle = 1 To x.Rows.Count
 
    If x(boucle, 1) = valcherch Then
        u = u & x(boucle, colonne) & "~"
        nb = nb + 1
    End If
 
Next boucle
 
 
rmult = u
 
End Function

Ce que je voudrais avoir comme résultat serais au lieu d'avoir un séparateur qui est ~ dans l'exemple ci-haut que les résultats sois copie dans une cellule différente dans la meme rangé

Par exemple dans la cellule a1 résultat1, cellue b1 résultat2, etc ...


merci encore une fois !!!