Hi

Insert the line 'Application.volatile' at the beginning of the code.

-----------------------------------------
Option Explicit

Public Function Concat_If(xSource As Range, xCrit As String, Optional xItem
As Range) As String
Dim xCell As Range, xOffset As Long

Application.volatile
Concat_If = ""
.....




"felciano" a écrit dans le message de
...
On Aug 18, 1:39 am, "Charabeuh" wrote:
NB:

I have presumed that the values to compare (A1:A7) are strings.
If these values are numbers, the function seems to be ok but you
must replace the criteria "<=""abc""" with "<5" or put <5 in B1.

One more question: it looks like this function will not get
recalculated automatically. For example, if I change the values in one
of the ranges, the concatenated string does not update automatically.
Is there a way to flag the function to be re-calculated in the same
way that SUMIF and COUNTIF are handled?

Thanks,

Ramon