Concatenr des valeur

Bonjour

Dans la cellule A4 j'aimerais concatener les valeurs qui se trouvent en B3 jusqu'à P3 si dans la ligne 4 il y a un X (voir dossier annexé)

J'ai essayé avec diverse formule mais je n'y arrive pas, est-ce qu'il faut faire un code VBA?

Merci pour votre aide

Bonjour Giro,

A priori cette formule doit fonctionner.

=SI(B4="x";$B$3;"") & SI(C4="x";$C$3;"") & SI(D4="x";$D$3;"") & SI(E4="x";$E$3;"") & SI(F4="x";$F$3;"") & SI(G4="x";$G$3;"") & SI(H4="x";$H$3;"") & SI(I4="x";$I$3;"") & SI(J4="x";$J$3;"") & SI(K4="x";$K$3;"") & SI(L4="x";$L$3;"") & SI(M4="x";$M$3;"") & SI(N4="x";$N$3;"") & SI(O4="x";$O$3;"") & SI(P4="x";$P$3;"")

Mais on doit pouvoir faire plus court =)

A+

Bonjour Gabin37

La formule fonctionne et j'ai réussi a imbriquer la formule concatener.

Effectivement la formule en elle même est longue mais cela me suffit.

merci beaucoup

Bonjour,

Autre solution avec une fonction personnalisée

Formule en A4 et à tirer vers le bas:

=Concat(LIGNE();$B4:$P4)

la fonction personnalisée:

Option Compare Text
Function Concat(Lig As Long, Plage As Range) As String
    For i = 2 To 16
        If Cells(Lig, i) = "X" Then Concat = Concat & " " & Cells(3, i)
    Next i
End Function

le fichier

Cdlt

Bonjour !

Pour le plaisir et avec 365 :

=JOINDRE.TEXTE(" ";VRAI;SI(B4:P4="x";$B$3:$P$3;""))

En A4 et à tirer vers le bas.

Bonjour Arturo83

merci pour la fonction et le fichier j'ai essayé d'introduire la fonction dans les cellules et de copier coller la fonction personnalisée dans le module VBA,

dans mon document la fonction ne fonctionne pas, aurais-je oublié de faire quelque chose?

Salutations

Avec le fichier en exemple:

Si le ficher réel est légèrement différent, pourrais-je le voir(remplacez les données confidentielles par des données bidons)

Cdlt