Discussion :

[raptor35]

bonjour à tous !

j'ai modifié une petite fonction pour "concatener" des valeurs dans une seul cellule suivant 1 critère ( date) présent dans une autre cellule.
j'aimerai ajouter un autre critère présent dans une autre cellule mais là je cale.
nouveau critère : si le pourcentage est supérieur à 30 %
j'ai toujours une erreur qui m'empêche de réussir !!!

vous trouverez ci-après le code de la fonction qui fonctionne !!!
le fichier excel est joint !!!
merci de votre aide !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function CONCAT_SI(R1 As Range, Rech As Range, R2 As Range)
 
Dim CL As Range
Dim CHN As String
 
For Each CL In R1
    If CL.Value = Rech.Value Then
        CHN = CHN & " / " & Cells(CL.Row, R2.Column).Value
    End If
Next
 
CONCAT_SI = Trim(CHN)
 
End Function