XL 2019 la fonction SingleCellExtract Excel 2019

[Ultravga]

bonjour ,

je suis sous excel 2019 , j'ai voulu exécuté un code VBA avec une la fonction SingleCellExtract
sauf que j'ai eu comme résultat £NOM? comme si excel ne reconnait pas cette fonction sachant que la fonction s'exécute sans aucun problème sur un pc avec office 2010
d'avance merci

=SingleCellExtract(A2;A:B;2;",")

Function SingleCellExtract(LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
'Updateby Extendoffice
Dim I As Long
Dim xRet As String
For I = 1 To LookupRange.Columns(1).Cells.Count
If LookupRange.Cells(I, 1) = LookupValue Then
If xRet = "" Then
xRet = LookupRange.Cells(I, ColumnNumber) & Char
Else
xRet = xRet & "" & LookupRange.Cells(I, ColumnNumber) & Char
End If
End If
Next
SingleCellExtract = Left(xRet, Len(xRet) - 1)
End Function

 

[Hasco]

Bonjour,

Egalement sous 2019.
Votre fonction fait bien son travail sur mon pc.
Sur 2019 vous pouvez utiliser la fonction Joindre.Texte.
Pour y mettre une condition, utilisez la sous forme matricielle (Validée par CTRL+MAJ+ENTREE).
Exemple :

=JOINDRE.TEXTE(";";VRAI;SI(A1:A30="Juin";B1:B30;""))

Renverra les valeurs de B1:B30 concaténées si A1:A30 = "Juin"

Si vous tenez absolument à votre fonction vba, joignez un fichier représentatif du problème à votre demande/

Cordialement