Fonction

Bonjour

Svp, j'ai besoin d'une fonction qui permet de concaténer des cellules , entourer chaque cellule avec guillemet et les sépares par des virgules

Ainsi le résultat est encadré par [ ]

exemple:

["Fruit","Price","IsOnSale","ExpireDate"]

voir aussi le fichier ci-joint

Merci pour vos réponses

bonjour,

une solution avec un fonction personnalisée, à mettre dans un nouveau module

Function jasonarray(r As Range) As String
    g = """"
    For Each e In r
        If s = "" Then s = g & e & g Else s = s & "," & g & e & g
    Next
    jasonarray = "[" & s & "]"
End Function

Bonjour

Un essai, si j'ai bien compris.

Bye !

Bonjour

merci beaucoup pour ces solution

Cordialement

Bonjour

je te remercie pour cette fonction

Function jsonarray(r As Range) As String

g = """"

For Each e In r

If s = "" Then s = g & e & g Else s = s & "," & g & e & g

Next

jsonarray = "[" & s & "]"

End Function

Cette fonction marche qu'avec des plages de cellules contiguës

Si tu peux je voudrais qu'elle prenne en charge des plages de cellules non contiguës. exp: jsonarray(a1:d1;f1 ;h1)

Merci pour ton aide

Bonjour

voici

Function jsonarray(ParamArray v()) As String
    g = """"
    For i = LBound(v) To UBound(v)
        If IsObject(v(i)) Then
            Set r = v(i)
            For Each e In r
                If s = "" Then s = g & e & g Else s = s & "," & g & e & g
            Next
        Else
            If s = "" Then s = g & v(i) & g Else s = s & "," & g & v(i) & g
        End If
    Next i
    jsonarray = "[" & s & "]"
End Function

Merci Beaucoup